Inherit FP modes for new threads on Windows.

[sbcl.git] / src / code / early-cl.lisp

diff --git a/src/code/early-cl.lisp b/src/code/early-cl.lisp
index f8a1aa2..8bee41c 100644 (file)
--- a/src/code/early-cl.lisp
+++ b/src/code/early-cl.lisp
@@ -12,10 +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 spec symbols
-(defparameter *!standard-type-names* 
+(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