Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: d013d60)
Remove useless compiler note about keywords being reused
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 10:20:41 +0000 (11:20 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 10:20:41 +0000 (11:20 +0100)
src/cmp/cmpwt.lsp patch | blob | blame | history

diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index 234b8d0..16f5f72 100644 (file)
--- 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)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)