0.6.8.9:

[sbcl.git] / src / compiler / generic / early-vm.lisp

diff --git a/src/compiler/generic/early-vm.lisp b/src/compiler/generic/early-vm.lisp
index 10636b6..c5f8a94 100644 (file)
--- a/src/compiler/generic/early-vm.lisp
+++ b/src/compiler/generic/early-vm.lisp
@@ -9,8 +9,6 @@
 
 (in-package "SB!VM")
 
-(eval-when (:compile-toplevel :execute :load-toplevel)
-
 (defconstant lowtag-bits 3
   #!+sb-doc
   "Number of bits at the low end of a pointer used for type information.")
@@ -31,8 +29,6 @@
   #!+sb-doc
   "Mask to extract the type from a header word.")
 
-); eval-when
-
 ;;; FIXME: Couldn't/shouldn't these be DEFCONSTANT instead of DEFPARAMETER?
 (defparameter *target-most-positive-fixnum* (1- (ash 1 29))
   #!+sb-doc