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