From c21807d17cbf30c5cfb424c04ebeef57f7a82408 Mon Sep 17 00:00:00 2001 From: Juanjo Garcia-Ripoll Date: Fri, 27 Apr 2012 17:06:08 +0200 Subject: [PATCH] The extra options for direct slots must also be grouped into lists --- src/clos/slot.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/clos/slot.lsp b/src/clos/slot.lsp index 87d687cfd..18eba1e4f 100644 --- a/src/clos/slot.lsp +++ b/src/clos/slot.lsp @@ -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))