From: Thomas M. Hermann <thomas.m.hermann@odonata-research.com>
Date: Sun, 3 Feb 2013 03:00:04 +0000 (-0600)
Subject: Warn on missing tags to remove and continue on.
X-Git-Tag: 0.9.4~1^2~2
X-Git-Url: https://repo.or.cz/w/lisp-unit.git/commitdiff_plain/be35edd77f9d276ba756f278f853dd105b54214e

Warn on missing tags to remove and continue on.
---

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index dacd99c..58db3b8 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -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