0.9.1.14:

[sbcl.git] / src / pcl / defclass.lisp

diff --git a/src/pcl/defclass.lisp b/src/pcl/defclass.lisp
index cf7562a..e4277f9 100644 (file)
--- a/src/pcl/defclass.lisp
+++ b/src/pcl/defclass.lisp
@@ -148,7 +148,7 @@
                                            DEFCLASS ~S.~:>" 
                         :format-arguments (list key class-name)))
                (push key arg-names)
-               (push ``(,',key ,,(make-initfunction val) ,',val) initargs))
+               (push ``(,',key ,',val ,,(make-initfunction val)) initargs))
              (setf default-initargs t)
              (push `(:direct-default-initargs (list ,@(nreverse initargs))) 
                    canonized-options)))