X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-cl.lisp;h=f8a1aa2f9d8c54497876b7e3f3f1e3e42b3d159d;hb=860543cc7ba0266e41e1d41ac9b6a208f3795f1a;hp=aae673c4b8f56d0ff2c34337e58e0e490d29e6f5;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/early-cl.lisp b/src/code/early-cl.lisp
index aae673c..f8a1aa2 100644
--- a/src/code/early-cl.lisp
+++ b/src/code/early-cl.lisp
@@ -11,15 +11,11 @@
 
 (in-package "SB!KERNEL")
 
-(file-comment
-  "$Header$")
-
 ;;; Common Lisp special variables which have SB-XC versions
 (proclaim '(special sb!xc:*macroexpand-hook*))
 
-;;; the Common Lisp defined type specifier symbols
-(declaim (type list *standard-type-names*))
-(defparameter *standard-type-names*
+;;; the Common Lisp defined type spec symbols
+(defparameter *!standard-type-names* 
   '(array atom bignum bit bit-vector character compiled-function
     complex cons double-float extended-char fixnum float function
     hash-table integer keyword list long-float nil null number package