- (:save-p :compute-only)))))
- (:none
- (with-unique-names (fixup)
- (values
- `((let ((fixup (make-fixup ',name :assembly-routine)))
- (inst ldil fixup ,fixup)
- (inst be fixup lisp-heap-space ,fixup :nullify t)))
- `((:temporary (:scs (any-reg) :from (:eval 0) :to (:eval 1))
- ,fixup)))))))