From c72aaa5723f1496a985398508b21edab4e76ae6d Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sun, 7 Feb 2010 11:20:41 +0100
Subject: [PATCH] Remove useless compiler note about keywords being reused

---
 src/cmp/cmpwt.lsp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index 234b8d0be..16f5f72cc 100644
--- a/src/cmp/cmpwt.lsp
+++ b/src/cmp/cmpwt.lsp
@@ -246,9 +246,7 @@
   (let ((x (search keywords *permanent-objects*
 		   :test #'(lambda (k record) (eq k (first record))))))
     (if x
-	(progn
-	  (cmpnote "~@<Reusing keywords lists for ~_~A~@:>" keywords)
-	  (second (elt *permanent-objects* x)))
+        (second (elt *permanent-objects* x))
 	(prog1
 	    (add-object (pop keywords) :duplicate t :permanent t)
 	  (dolist (k keywords)