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

The extra options for direct slots must also be grouped into lists

Browse source
This commit is contained in:
Juanjo Garcia-Ripoll 2012-04-27 17:06:08 +02:00
parent d8547c5531
commit c21807d17c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/clos/slot.lsp
View file

@ -114,7 +114,7 @@
(value nil)
(extra nil))
((null options)
(nconc output (nreverse extra)))
(nconc output extra))
(let ((option (pop options)))
(when (endp options)
(si::simple-program-error
@ -138,7 +138,7 @@
(:allocation (setf (getf output :allocation) value))
(:type (setf (getf output :type) value))
(:documentation (push value (getf output :documentation)))
(otherwise (setf extra (list* value option extra)))))))))
(otherwise (push value (getf extra option)))))))))
(defun parse-slots (slots)
(do ((scan slots (cdr scan))