X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-impl.lisp;h=c3bcaeef87f846a95ea8ccc3af9465d3ff22bc65;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=6c8b33f7ecd026addb870a6426e65433eeee8050;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/early-impl.lisp b/src/code/early-impl.lisp
index 6c8b33f..c3bcaee 100644
--- a/src/code/early-impl.lisp
+++ b/src/code/early-impl.lisp
@@ -9,16 +9,13 @@
 
 (in-package "SB!IMPL")
 
-(file-comment
- "$Header$")
-
 ;;; entries in STATIC-SYMBOLS table, references to which can be compiled
 ;;; as though they're special variables
 (declaim (special *posix-argv*
 		  *!initial-fdefn-objects*
 		  *read-only-space-free-pointer*
-		  *static-space-free-pointer*
-		  *initial-dynamic-space-free-pointer*
+		  sb!vm:*static-space-free-pointer*
+		  sb!vm:*initial-dynamic-space-free-pointer*
 		  *current-catch-block*
 		  *current-unwind-protect-block*
 		  sb!c::*eval-stack-top*
@@ -45,7 +42,6 @@
 		  sb!vm::*fp-constant-lg2*
 		  sb!vm::*fp-constant-ln2*
 		  sb!vm::*scavenge-read-only-space*
-		  sb!vm::*control-stacks*
 		  sb!pcl::..slot-unbound..
 		  sb!vm::*x86-cgc-active-p*
 		  sb!vm::*static-blue-bag*))