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