/[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.2 by ram, Wed Jun 6 14:04:30 1990 UTC revision 1.11.1.3 by ram, Fri Jun 15 15:39:02 1990 UTC
# Line 838  Line 838 
838                      (values (if incoming-values (eval-stack-pop))))                      (values (if incoming-values (eval-stack-pop))))
839                 (cond                 (cond
840                  ((eq (c::lambda-environment lambda)                  ((eq (c::lambda-environment lambda)
841                       (c::lambda-environment                       (c::block-environment (c::continuation-block cont)))
                       (c::block-lambda  
                        (c::continuation-block cont))))  
842                   ;; Local exit.                   ;; Local exit.
843                   ;; Fixup stack top and massage values for destination.                   ;; Fixup stack top and massage values for destination.
844                   (eval-stack-set-top                   (eval-stack-set-top
# Line 1051  Line 1049 
1049                              (position ele current-closure-vars                              (position ele current-closure-vars
1050                                        :test #'eq))))                                        :test #'eq))))
1051                  (c::nlx-info                  (c::nlx-info
1052                   (if (eq (c::lambda-environment                   (if (eq (c::block-environment (c::nlx-info-target ele))
                           (c::block-lambda (c::nlx-info-target ele)))  
1053                           current-env)                           current-env)
1054                       (eval-stack-local                       (eval-stack-local
1055                        frame-ptr                        frame-ptr
1056                        (c:entry-node-info-nlx-tag                        (c:entry-node-info-nlx-tag
1057                         (cdr (assoc ;; entry node for non-local extent                         (cdr (assoc ;; entry node for non-local extent
1058                               (c::continuation-use                               (c::cleanup-mess-up (c::nlx-info-cleanup ele))
                               (c::cleanup-start (c::nlx-info-cleanup ele)))  
1059                               (c::lambda-eval-info-entries                               (c::lambda-eval-info-entries
1060                                (c::lambda-info                                (c::lambda-info
1061                                 ;; lambda INTERNAL-APPLY-LOOP tosses around.                                 ;; lambda INTERNAL-APPLY-LOOP tosses around.

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

  ViewVC Help
Powered by ViewVC 1.1.5