Skip to content
Snippets Groups Projects
Commit 00cb25ff authored by ram's avatar ram
Browse files

...and also fixed the slot accesses in that branch to be BASIC-COMBINATION

rather than COMBINATION.
parent 9995965f
No related branches found
No related tags found
No related merge requests found
...@@ -187,8 +187,8 @@ ...@@ -187,8 +187,8 @@
(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 'basic-combination) (cond ((and refp dest (typep dest 'basic-combination)
(eq (combination-kind dest) :local) (eq (basic-combination-kind dest) :local)
(eq (combination-fun dest) cont)) (eq (basic-combination-fun dest) cont))
:unused) :unused)
((and leaf (typep leaf 'global-var) ((and leaf (typep leaf 'global-var)
(eq (global-var-kind leaf) :global-function) (eq (global-var-kind leaf) :global-function)
......
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