X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fctor.lisp;h=f73b65817c1e59d2346e3044c7187c25b3317b8f;hb=d6f9676ae94419cb5544c45821a8d31adbc1fbe8;hp=4237d1cfab89d0cb76b1dcb3d2b1837be1e2ca61;hpb=503ad9d8685b335a69dc667dec4ce48f1a03af98;p=sbcl.git

diff --git a/src/pcl/ctor.lisp b/src/pcl/ctor.lisp
index 4237d1c..f73b658 100644
--- a/src/pcl/ctor.lisp
+++ b/src/pcl/ctor.lisp
@@ -870,8 +870,8 @@
                                             ,value-form))))
                              (not-boundp-form ()
                                (if (member slotd sbuc-slots :test #'eq)
-                                   `(slot-boundp-using-class
-                                     ,class .instance. ,slotd)
+                                   `(not (slot-boundp-using-class
+                                          ,class .instance. ,slotd))
                                    `(eq (clos-slots-ref .slots. ,i)
                                         +slot-unbound+))))
                         (ecase kind