Warn on missing tags to remove and continue on.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Sun, 3 Feb 2013 03:00:04 +0000 (2 21:00 -0600)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Sun, 3 Feb 2013 03:00:04 +0000 (2 21:00 -0600)
lisp-unit.lisp

index dacd99c..58db3b8 100644 (file)
@@ -301,9 +301,9 @@ assertion.")
       (let ((table (package-tags package)))
         (unless (null table)
           (loop for tag in tags
-                always (remhash tag table)
-                collect tag into removed
-                finally (return removed))))))
+                unless (remhash tag table) do
+                (warn "No tag ~A in package ~A to remove."
+                      tag (package-name package)))))))
 
 ;;; Assert macros