diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp index 512c548f6163bf2c073d25892df438c60621d02b..778b95e2b248c774011ea64b0ae3f032f4f99c0a 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)