\f
;;; If value can be represented as an immediate constant, then return
;;; the appropriate SC number, otherwise return NIL.
\f
;;; If value can be represented as an immediate constant, then return
;;; the appropriate SC number, otherwise return NIL.
(or (eql sc (sc-number-or-lose 'zero))
(eql sc (sc-number-or-lose 'null))
(eql sc (sc-number-or-lose 'immediate))))
(or (eql sc (sc-number-or-lose 'zero))
(eql sc (sc-number-or-lose 'null))
(eql sc (sc-number-or-lose 'immediate))))
;;; This function is called by debug output routines that want a
;;; pretty name for a TN's location. It returns a thing that can be
;;; printed with PRINC.
;;; This function is called by debug output routines that want a
;;; pretty name for a TN's location. It returns a thing that can be
;;; printed with PRINC.