(defoptimizer (%nip-values ir2-convert) ((last-nipped last-preserved
&rest moved)
node block)
- #!-(or x86 alpha)
- (bug "%NIP-VALUES is not implemented on this platform.")
- #!+(or x86 alpha)
(let (;; pointer immediately after the nipped block
(2after (lvar-info (lvar-value last-nipped)))
;; pointer to the first nipped word