X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbit-bash.lisp;h=f9611cf19be58c61e14581d71426d768474a379d;hb=d4bc11580fa8bce443d57d44b41fd3c342e1e412;hp=1a9752d360f57934e50da8857bec4f5cbf652420;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/bit-bash.lisp b/src/code/bit-bash.lisp
index 1a9752d..f9611cf 100644
--- a/src/code/bit-bash.lisp
+++ b/src/code/bit-bash.lisp
@@ -13,8 +13,6 @@
 
 ;;;; constants and types
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-
 (defconstant unit-bits sb!vm:word-bits
   #!+sb-doc
   "The number of bits to process at a time.")
@@ -23,6 +21,9 @@
   #!+sb-doc
   "The maximum number of bits that can be delt with during a single call.")
 
+;;; FIXME: Do we really need EVAL-WHEN around these DEFTYPEs?
+(eval-when (:compile-toplevel :load-toplevel :execute)
+
 (deftype unit ()
   `(unsigned-byte ,unit-bits))