X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Finit.lisp;h=08fb92e2c958a2b8c29df1c3a752c04afba16a80;hb=8dc064d2296902f01afd9107e89a81146e3771fe;hp=5c381fdccfc5b9a077d19ed79f99fc1d52f8519d;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index 5c381fd..08fb92e 100644
--- a/src/pcl/init.lisp
+++ b/src/pcl/init.lisp
@@ -24,9 +24,6 @@
 ;;;; specification.
 
 (in-package "SB-PCL")
-
-(sb-int:file-comment
-  "$Header$")
 
 (defmethod make-instance ((class symbol) &rest initargs)
   (apply #'make-instance (find-class class) initargs))
@@ -132,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
@@ -175,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