X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-cl.lisp;h=8bee41ccdd4b48e40fa0b218824a05cd3725d181;hb=4f4906712a4fa98880fb0f8f036ca2add541b8a1;hp=46c6c8814beafdc730a9f4ca11bb56cfc51b0808;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/early-cl.lisp b/src/code/early-cl.lisp
index 46c6c88..8bee41c 100644
--- a/src/code/early-cl.lisp
+++ b/src/code/early-cl.lisp
@@ -12,11 +12,10 @@
 (in-package "SB!KERNEL")
 
 ;;; Common Lisp special variables which have SB-XC versions
-(proclaim '(special sb!xc:*macroexpand-hook*))
+(proclaim '(special sb!xc:*macroexpand-hook* sb!xc:*gensym-counter*))
 
-;;; 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