From 9995965f339e2eeb87a88d907e390aa973ab66a6 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 7 Feb 1990 11:28:54 +0000
Subject: [PATCH] In ANNOTATE-COMPONENT-FOR-EVAL, changed the local call
 function test to look for a BASIC-COMBINATION dest rather than COMBINATION. 
 This was causing the function continuations for MV-binds to be annotated
 :MULTIPLE.

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

diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp
index 512c548f6..778b95e2b 100644
--- a/compiler/eval-comp.lisp
+++ b/compiler/eval-comp.lisp
@@ -186,7 +186,7 @@
 	     (refp (typep node 'ref))
 	     (leaf (if refp (ref-leaf node))))
 	(setf (continuation-info cont)
-	      (cond ((and refp dest (typep dest 'combination)
+	      (cond ((and refp dest (typep dest 'basic-combination)
 			  (eq (combination-kind dest) :local)
 			  (eq (combination-fun dest) cont))
 		     :unused)
-- 
GitLab