/[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.1 by wlott, Tue Feb 6 11:28:50 1990 UTC revision 1.2 by ram, Wed Feb 7 12:07:22 1990 UTC
# Line 498  Line 498 
498                     (setf block (c::nlx-info-target nlx-info))                     (setf block (c::nlx-info-target nlx-info))
499                     (setf cont last-cont)))))                     (setf cont last-cont)))))
500           (c::%unwind-protect           (c::%unwind-protect
501            (eval-stack-pop) ;Through away some cleanup thing.            ;; Cleanup function not pushed due to special-case :UNUSED
502              ;; annotation in ANNOTATE-COMPONENT-FOR-EVAL.
503            (let* ((nlx-info (eval-stack-pop))            (let* ((nlx-info (eval-stack-pop))
504                   (fell-through-p nil)                   (fell-through-p nil)
505                   (stack-top *eval-stack-top*))                   (stack-top *eval-stack-top*))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5