diff --git a/compiler/represent.lisp b/compiler/represent.lisp index 85a57fff2af97f7086c6e44b054dbcde161e9d52..77f7b3bcade52fbdc9d8f356189651da449df977 100644 --- a/compiler/represent.lisp +++ b/compiler/represent.lisp @@ -371,7 +371,7 @@ (emit-context-template node block (template-or-lose 'compute-old-nfp) - nfp-tn) + nfp-tn vop) (assert (not (sc-number-stack-p (tn-sc nfp-tn)))) nfp-tn))) (new (emit-move-arg-template node block res val-tn this-fp