(in-package "SB!VM")
-(file-comment
- "$Header$")
-
(define-vop (reset-stack-pointer)
(:args (ptr :scs (any-reg)))
(:generator 1
(:generator 0
(move list arg)
(move start esp-tn) ; WARN pointing 1 below
- (inst mov nil-temp *nil-value*)
+ (inst mov nil-temp nil-value)
LOOP
(inst cmp list nil-temp)