(def!constant static-space-start #x28000000)
(def!constant static-space-end #x2c000000)
-;; this is used in PURIFY as part of a sloppy check to see if a pointer
-;; is in dynamic space. Chocolate brownie for the first person to fix it
-;; -dan 20010502
-(def!constant dynamic-space-start #x30000000)
-(def!constant dynamic-space-end #x3fff0000)
-
(def!constant dynamic-0-space-start #x30000000)
(def!constant dynamic-0-space-end #x3fff0000)
;; a comment from old CMU CL or old old CMU CL or
;; the SBCL alpha port or what? Do we need to worry about it,
;; or can we delete it?
+ sb!kernel:two-arg-/=
eql
sb!kernel:%negate
sb!kernel:two-arg-and