0.pre7.126:

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

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index 5c381fd..927eb47 100644 (file)
--- a/src/pcl/init.lisp
+++ b/src/pcl/init.lisp
@@ -24,9 +24,6 @@
 ;;;; specification.
 
 (in-package "SB-PCL")
-
-(sb-int:file-comment
-  "$Header$")
 \f
 (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
@@ -199,12 +196,12 @@
          (check-initargs-2-list initargs class legal error-p)))))
 
 (defun check-initargs-values (class call-list)
-  (let ((methods (mapcan #'(lambda (call)
-                            (if (consp call)
-                                (copy-list (compute-applicable-methods
-                                            (gdefinition (car call))
-                                            (cdr call)))
-                                (list call)))
+  (let ((methods (mapcan (lambda (call)
+                          (if (consp call)
+                              (copy-list (compute-applicable-methods
+                                          (gdefinition (car call))
+                                          (cdr call)))
+                              (list call)))
                         call-list))
        (legal (apply #'append (mapcar #'slot-definition-initargs
                                       (class-slots class)))))