X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbyte-types.lisp;h=2b7d5f32262515f752b569a61d024b3bbdb86216;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=4dae88cec6ff15078338df0c3fb72bf7b13d393c;hpb=95a6db7329b91dd90d165dd4057b9b5098d34aa2;p=sbcl.git

diff --git a/src/code/byte-types.lisp b/src/code/byte-types.lisp
index 4dae88c..2b7d5f3 100644
--- a/src/code/byte-types.lisp
+++ b/src/code/byte-types.lisp
@@ -14,10 +14,11 @@
 ;;;; types
 
 (deftype stack-pointer ()
-  `(integer 0 ,(1- most-positive-fixnum)))
+  `(integer 0 ,(1- sb!vm:*target-most-positive-fixnum*)))
 
 ;;; KLUDGE: bare numbers, no documentation, ick.. -- WHN 19990701
-(defconstant max-pc (1- (ash 1 24)))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defconstant max-pc (1- (ash 1 24))))
 
 (deftype pc ()
   `(integer 0 ,max-pc))