X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbyte-types.lisp;h=2b7d5f32262515f752b569a61d024b3bbdb86216;hb=d4bc11580fa8bce443d57d44b41fd3c342e1e412;hp=8f7824ed2fac58360ac166ee9dfcdc6b6a8215bb;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/byte-types.lisp b/src/code/byte-types.lisp
index 8f7824e..2b7d5f3 100644
--- a/src/code/byte-types.lisp
+++ b/src/code/byte-types.lisp
@@ -10,14 +10,11 @@
 ;;;; files for more information.
 
 (in-package "SB!C")
-
-(file-comment
-  "$Header$")
 
 ;;;; 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
 (eval-when (:compile-toplevel :load-toplevel :execute)