From: Thomas M. Hermann Date: Sun, 3 Feb 2013 02:57:39 +0000 (-0600) Subject: Warn on missing tests to remove and continue on. X-Git-Tag: 0.9.4~1^2~3 X-Git-Url: https://repo.or.cz/w/lisp-unit.git/commitdiff_plain/be664d99fd7fea868fef71d5d53cabb6e132bd1d Warn on missing tests to remove and continue on. Do no collect the removed names, the collected list wasn't used. --- diff --git a/lisp-unit.lisp b/lisp-unit.lisp index 5290ddc..dacd99c 100644 --- a/lisp-unit.lisp +++ b/lisp-unit.lisp @@ -251,9 +251,9 @@ assertion.") (unless (null table) ;; Remove tests (loop for name in names - always (remhash name table) - collect name into removed - finally (return removed)) + unless (remhash name table) do + (warn "No test ~A in package ~A to remove." + name (package-name package))) ;; Remove tests from tags (loop with tags = (package-tags package) for tag being each hash-key in tags