diff --git a/compiler/represent.lisp b/compiler/represent.lisp index f3609caa32c11bc1d3c5ec2d62ecfd9361bf6703..f00b018c4994b0bf27011e135319543ca465e8c4 100644 --- a/compiler/represent.lisp +++ b/compiler/represent.lisp @@ -368,7 +368,7 @@ (make-representation-tn (first (primitive-type-scs *any-primitive-type*)))) - (emit-context-template node block nfp-tn vop) + (emit-context-template node block vop nfp-tn) (assert (not (sc-number-stack-p (tn-sc nfp-tn)))) nfp-tn))) (new (emit-move-arg-template node block res val-tn this-fp