X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefclass.lisp;h=e4277f90ae2b2c43228ce8c9732a7f5635e4acb7;hb=8ae1a092ca40928020e48a588f6c47d18d334efe;hp=cf7562a5b2c280fdda12f8d95e98ec886272835a;hpb=f51e60af46a5133d791f3f303f2057380181aca1;p=sbcl.git

diff --git a/src/pcl/defclass.lisp b/src/pcl/defclass.lisp
index cf7562a..e4277f9 100644
--- 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)))