boot19.lisp 269 Bytes
Newer Older
toy's avatar
toy committed
1 2 3 4 5 6 7 8 9
;; For Sparc only, to make these constants available when building
;; from a release that didn't have these defined.

#+sparc
(in-package :vm)
#+sparc
(defconstant pseudo-atomic-value (ash 1 (1- vm:lowtag-bits)))
#+sparc
(defconstant pseudo-atomic-interrupted-value 1)