/[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.11.1.1 by ram, Tue Jun 5 19:35:49 1990 UTC revision 1.11.1.2 by ram, Wed Jun 6 14:04:30 1990 UTC
# Line 229  Line 229 
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)
232                    (if (or (c::functional-fenv fun)                    (if (let ((env (c::functional-lexenv fun)))
233                            (c::functional-venv fun)                          (or (c::lexenv-functions env)
234                            (c::functional-benv fun)                              (c::lexenv-variables env)
235                            (c::functional-tenv fun))                              (c::lexenv-blocks env)
236                                (c::lexenv-tags env)))
237                        t nil)                        t nil)
238                    (or (eval-function-name eval-fun)                    (or (eval-function-name eval-fun)
239                        (c::component-name                        (c::component-name
# Line 980  Line 981 
981                (arg-doc (c::functional-arg-documentation real-fun)))                (arg-doc (c::functional-arg-documentation real-fun)))
982           (cond ((c:lambda-eval-info-function (c::leaf-info leaf)))           (cond ((c:lambda-eval-info-function (c::leaf-info leaf)))
983                 ((and (zerop (length calling-closure))                 ((and (zerop (length calling-closure))
984                       (null (c::functional-fenv real-fun)))                       (null (c::lexenv-functions
985                                (c::functional-lexenv real-fun))))
986                  (let* ((res (make-interpreted-function                  (let* ((res (make-interpreted-function
987                               (c::functional-inline-expansion real-fun)))                               (c::functional-inline-expansion real-fun)))
988                         (eval-fun (get-eval-function res)))                         (eval-fun (get-eval-function res)))

Legend:
Removed from v.1.11.1.1  
changed lines
  Added in v.1.11.1.2

  ViewVC Help
Powered by ViewVC 1.1.5