X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Finit.lisp;h=a4f5e3aaff98300ba9ebeef8cbd639cef56478bd;hb=80f222325e1f677e5cf8de01c6990906fa47f65d;hp=ee7e2e397872eca36099b35252937e2b18ce797d;hpb=b305d276b905654e4877cc49d03a2d3c9187cdff;p=sbcl.git

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index ee7e2e3..a4f5e3a 100644
--- a/src/pcl/init.lisp
+++ b/src/pcl/init.lisp
@@ -123,8 +123,8 @@
 		       (let ((initfn (slot-definition-initfunction slotd)))
 			 (when initfn
 			   (funcall initfn)))))
-	       (unless (or (slot-boundp-using-class class instance slotd)
-			   (null (slot-definition-initfunction slotd)))
+	       (unless (or (null (slot-definition-initfunction slotd))
+			   (slot-boundp-using-class class instance slotd))
 		 (setf (slot-value-using-class class instance slotd)
 		       (funcall (slot-definition-initfunction slotd)))))))
     (let* ((class (class-of instance))