From be664d99fd7fea868fef71d5d53cabb6e132bd1d Mon Sep 17 00:00:00 2001
From: "Thomas M. Hermann" <thomas.m.hermann@odonata-research.com>
Date: Sat, 2 Feb 2013 20:57:39 -0600
Subject: [PATCH] Warn on missing tests to remove and continue on.

Do no collect the removed names, the collected list wasn't used.
---
 lisp-unit.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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
-- 
2.11.4.GIT