/[cmucl]/src/compiler/eval.lisp
ViewVC logotype

Diff of /src/compiler/eval.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by ram, Fri Feb 9 11:47:49 1990 UTC revision 1.8 by ram, Fri Feb 9 12:00:04 1990 UTC
# Line 225  Line 225 
225    (let* ((eval-fun (get-eval-function x))    (let* ((eval-fun (get-eval-function x))
226           (lambda (eval-function-lambda eval-fun)))           (lambda (eval-function-lambda eval-fun)))
227      (if lambda      (if lambda
228          (values lambda nil (or (eval-function-name eval-fun) lambda))          (values lambda nil (eval-function-name eval-fun))
229          (let ((fun (c::functional-entry-function          (let ((fun (c::functional-entry-function
230                      (eval-function-definition eval-fun))))                      (eval-function-definition eval-fun))))
231            (values (c::functional-inline-expansion fun)            (values (c::functional-inline-expansion fun)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5