'fp-complex-double-zero
'fp-complex-double-immediate)))))
+(!def-vm-support-routine boxed-immediate-sc-p (sc)
+ (eql sc (sc-number-or-lose 'immediate)))
\f
;;;; miscellaneous function call parameters
(!def-vm-support-routine combination-implementation-style (node)
(declare (type sb!c::combination node) (ignore node))
(values :default nil))
-
-(defun primitive-type-indirect-cell-type (ptype)
- (declare (ignore ptype))
- nil)