(defregtn zero any-reg)
(defregtn null descriptor-reg)
(defregtn code descriptor-reg)
+ (defregtn lip descriptor-reg)
(defregtn alloc any-reg)
(defregtn nargs any-reg)
(if (static-symbol-p value)
(sc-number-or-lose 'immediate)
nil))))
+
+(!def-vm-support-routine boxed-immediate-sc-p (sc)
+ (or (eql sc (sc-number-or-lose 'zero))
+ (eql sc (sc-number-or-lose 'null))
+ (eql sc (sc-number-or-lose 'immediate))))
\f
;;;; function call parameters