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

src/clos/method.lsp: use the (APPEND ... NIL) idiom to ensure that a fresh list is produced.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-11-14 17:36:55 +01:00
parent b69d02dac6
commit 8265f44396
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/clos/method.lsp
View file

@ -68,7 +68,8 @@
(setf lambda-list
(append (subseq lambda-list 0 x)
'(&allow-other-keys)
(and x (subseq lambda-list x))))))
(and x (subseq lambda-list x))
nil))))
(let* ((class-declarations
(nconc (loop for name in required-parameters
for type in specializers