(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(define-vop (debug-cur-sp)
(:translate current-sp)
(:policy :fast-safe)
(emit-label done)
(assemble (*elsewhere*)
(emit-label bogus)
- (inst mov code *nil-value*)
+ (inst mov code nil-value)
(inst jmp done)))))
(define-vop (code-from-lra code-from-mumble)