diff --git a/compiler/eval.lisp b/compiler/eval.lisp index 3f575dde71260f1df117d9281a9925b56e37b885..96e5b463864691b7763b4025e28dd074802ec93b 100644 --- a/compiler/eval.lisp +++ b/compiler/eval.lisp @@ -225,7 +225,7 @@ (let* ((eval-fun (get-eval-function x)) (lambda (eval-function-lambda eval-fun))) (if lambda - (values lambda nil (or (eval-function-name eval-fun) lambda)) + (values lambda nil (eval-function-name eval-fun)) (let ((fun (c::functional-entry-function (eval-function-definition eval-fun)))) (values (c::functional-inline-expansion fun)