From 8e98c0b0c2057de2d657c6cbcee5b4438d9fdcbb Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 28 Apr 2012 11:45:27 +0200 Subject: [PATCH] When an extra slot option is _not_ duplicated, the option is apassed as a singleton --- src/clos/slot.lsp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/clos/slot.lsp b/src/clos/slot.lsp index 18eba1e4f..b485e1f76 100644 --- a/src/clos/slot.lsp +++ b/src/clos/slot.lsp @@ -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))