From 0e709c1272f13069c12feec51b04e5034c0a5247 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 30 Apr 1990 10:21:09 +0000 Subject: [PATCH] Fixed argument order to EMIT-CONTEXT-TEMPLATE in EMIT-ARG-MOVES. --- compiler/represent.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/represent.lisp b/compiler/represent.lisp index f3609caa3..f00b018c4 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 -- GitLab