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