(move nl0 object)
(inst li cfunc (make-fixup "debug_print" :foreign))
(inst li temp (make-fixup "call_into_c" :foreign))
(inst jal lip temp)
(inst nop)
(when cur-nfp
(move nl0 object)
(inst li cfunc (make-fixup "debug_print" :foreign))
(inst li temp (make-fixup "call_into_c" :foreign))
(inst jal lip temp)
(inst nop)
(when cur-nfp