Skip to content
Snippets Groups Projects
Commit 9995965f authored by ram's avatar ram
Browse files

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.
parent e1993bc0
No related branches found
No related tags found
No related merge requests found
...@@ -186,7 +186,7 @@ ...@@ -186,7 +186,7 @@
(refp (typep node 'ref)) (refp (typep node 'ref))
(leaf (if refp (ref-leaf node)))) (leaf (if refp (ref-leaf node))))
(setf (continuation-info cont) (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-kind dest) :local)
(eq (combination-fun dest) cont)) (eq (combination-fun dest) cont))
:unused) :unused)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment