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

Do not be so picky and retrieve the list of arguments after a class option.

Browse source
This commit is contained in:
jjgarcia 2006-03-20 09:01:00 +00:00
parent feba5a9f69
commit a2fc3fc878
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/clos/defclass.lsp
View file

@ -83,7 +83,7 @@
(setf option-name :direct-default-initargs)
(parse-default-initargs (rest option)))
(otherwise
(or (last option-name 0) (last option-name)))))
(list 'quote (rest option)))))
(setf options (list* option-name option-value options))))
`(eval-when (compile load eval)
(ensure-class ',name :direct-superclasses ',superclasses