;;;; 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)