From 63d4e0c558cff8269bd74ba878567a2cb1354e6b Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 20 Feb 1991 14:41:16 +0000
Subject: [PATCH] Weakened assertion in IR1-CONVERT-MV-CALL.

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

diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp
index 7a6ea10b9..3de7dbe3f 100644
--- a/compiler/ir1opt.lisp
+++ b/compiler/ir1opt.lisp
@@ -1325,7 +1325,7 @@
 		(change-ref-leaf ref fun)
 		(assert (eq (basic-combination-kind node) :full))
 		(local-call-analyze *current-component*)
-		(assert (eq (functional-kind (ref-leaf ref)) :mv-let)))))))))
+		(assert (eq (basic-combination-kind node) :local)))))))))
 
   (undefined-value))
 
-- 
GitLab