mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove useless compiler note about keywords being reused

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-07 11:20:41 +01:00
parent d013d603f0
commit c72aaa5723
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpwt.lsp
View file

@ -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)