0.6.10.21:

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

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index 3144965..08fb92e 100644 (file)
--- a/src/pcl/init.lisp
+++ b/src/pcl/init.lisp
@@ -129,13 +129,13 @@
 
 (defmethod shared-initialize
     ((instance slot-object) slot-names &rest initargs)
-  (when (eq slot-names 't)
+  (when (eq slot-names t)
     (return-from shared-initialize
       (call-initialize-function
        (initialize-info-shared-initialize-t-function
        (initialize-info (class-of instance) initargs))
        instance initargs)))
-  (when (eq slot-names 'nil)
+  (when (eq slot-names nil)
     (return-from shared-initialize
       (call-initialize-function
        (initialize-info-shared-initialize-nil-function
@@ -172,12 +172,12 @@
                                                           instance
                                                           slotd)
                                   val)
-                            (return 't))))
+                            (return t))))
          ;; Try to initialize the slot from its initform.
          (if (and slot-names
-                  (or (eq slot-names 't)
+                  (or (eq slot-names t)
                       (memq slot-name slot-names))
-                  (or (and (not std-p) (eq slot-names 't))
+                  (or (and (not std-p) (eq slot-names t))
                       (not (slot-boundp-using-class class instance slotd))))
              (let ((initfunction (slot-definition-initfunction slotd)))
                (when initfunction