(forms
`(progn
(defknown ,cas-trans (,type ,slot-type ,slot-type)
- ,slot-type (unsafe))
+ ,slot-type ())
#!+compare-and-swap-vops
(def-casser ,cas-trans ,offset ,lowtag))))
(when init
(in-package "SB!C")
;;; the maximum number of SCs in any implementation
-(def!constant sc-number-limit 32)
+(def!constant sc-number-limit 40)
\f
;;; Modular functions