diff --git a/compiler/eval.lisp b/compiler/eval.lisp index efae44373418253b838637abc503a5ccb85ba242..d00a98491b7bd3dea7b4cb0c20aacb29f2850fe1 100644 --- a/compiler/eval.lisp +++ b/compiler/eval.lisp @@ -620,12 +620,12 @@ (cond ((eq ,kind :full) (do-combination :full nil ,type)) ((eq ,kind :local) - (let* ((,lambda (c::ref-leaf (c::continuation-use fun))) + (let* ((,lambda (c::ref-leaf (c::continuation-use ,fun))) ,@letp-bind) ,local-branch)) - ((eq (c::continuation-info fun) :unused) + ((eq (c::continuation-info ,fun) :unused) (assert (typep ,kind 'c::function-info)) - (do-funny-function (c::continuation-function-name fun))) + (do-funny-function (c::continuation-function-name ,fun))) (t (assert (typep ,kind 'c::function-info)) (do-combination :full nil ,type))))))