0.6.8.12:

[sbcl.git] / src / code / byte-types.lisp

diff --git a/src/code/byte-types.lisp b/src/code/byte-types.lisp
index 6e30dc0..4dae88c 100644 (file)
--- a/src/code/byte-types.lisp
+++ b/src/code/byte-types.lisp
@@ -17,8 +17,7 @@
   `(integer 0 ,(1- most-positive-fixnum)))
 
 ;;; KLUDGE: bare numbers, no documentation, ick.. -- WHN 19990701
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (defconstant max-pc (1- (ash 1 24))))
+(defconstant max-pc (1- (ash 1 24)))
 
 (deftype pc ()
   `(integer 0 ,max-pc))