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

When an extra slot option is _not_ duplicated, the option is apassed as a singleton

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-28 11:45:27 +02:00
parent 04db7a27ae
commit 8e98c0b0c2
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/clos/slot.lsp
View file

@ -138,7 +138,10 @@
(:allocation (setf (getf output :allocation) value))
(:type (setf (getf output :type) value))
(:documentation (push value (getf output :documentation)))
(otherwise (push value (getf extra option)))))))))
(otherwise (if (or (getf extra option)
(getf options option))
(push value (getf extra option))
(setf (getf extra option) value)))))))))
(defun parse-slots (slots)
(do ((scan slots (cdr scan))