X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Ffast-init.lisp;h=45303b42714e7a164b2b1a66014fdf838ae9251f;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=37200f3032dbb99bf1e78a69952cabc6b6f26cd2;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/pcl/fast-init.lisp b/src/pcl/fast-init.lisp
index 37200f3..45303b4 100644
--- a/src/pcl/fast-init.lisp
+++ b/src/pcl/fast-init.lisp
@@ -24,9 +24,6 @@
 ;;;; specification.
 
 (in-package "SB-PCL")
-
-(sb-int:file-comment
-  "$Header$")
 
 (defvar *compile-make-instance-functions-p* nil)
 
@@ -602,7 +599,7 @@
 	 (wrapper (class-wrapper class))
 	 (constants (when simple-p
 		      (make-list (wrapper-no-of-instance-slots wrapper)
-				 ':initial-element *slot-unbound*)))
+				 ':initial-element +slot-unbound+)))
 	 (slots (class-slots class))
 	 (slot-names (mapcar #'slot-definition-name slots))
 	 (slots-key (mapcar #'(lambda (slot)
@@ -850,8 +847,8 @@
 	   `((unless ,(if *inline-iis-instance-locations-p*
 			  (typecase location
 			    (fixnum `(not (eq (%instance-ref slots ,(const location))
-					      ',*slot-unbound*)))
-			    (cons `(not (eq (cdr ,(const location)) ',*slot-unbound*)))
+					      +slot-unbound+)))
+			    (cons `(not (eq (cdr ,(const location)) +slot-unbound+)))
 			    (t default))
 			  `(instance-boundp-internal pv slots ,(const pv-offset)
 			    ,default