X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftype-init.lisp;h=0c128258cf202d2c3dabecfe1c9b4a1799af2a6f;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=ff7b4a2674427c26a23c8f7204a64f2905bbdf02;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/type-init.lisp b/src/code/type-init.lisp
index ff7b4a2..0c12825 100644
--- a/src/code/type-init.lisp
+++ b/src/code/type-init.lisp
@@ -17,9 +17,6 @@
 
 (in-package "SB!KERNEL")
 
-(file-comment
-  "$Header$")
-
 ;;; built-in classes
 (/show0 "beginning type-init.lisp")
 (dolist (x *built-in-classes*)
@@ -46,7 +43,7 @@
 
 ;;; built-in symbol type specifiers
 (/show0 "precomputing built-in symbol type specifiers")
-(precompute-types *standard-type-names*)
+(precompute-types *!standard-type-names*)
 
 ;;; FIXME: It should be possible to do this in the cross-compiler,
 ;;; but currently the cross-compiler's type system is too dain-bramaged to