From 0c5b4d06a9c579d1ead2fe1c513c8045f8138681 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 15 May 1990 01:16:14 +0000
Subject: [PATCH] Rob left out an argument in his last fix.

---
 compiler/represent.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/represent.lisp b/compiler/represent.lisp
index 85a57fff2..77f7b3bca 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
-- 
GitLab