/[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.4 by ram, Wed Jun 20 20:58:31 1990 UTC revision 1.11.1.5 by ram, Wed Jun 27 09:54:33 1990 UTC
# Line 572  Line 572 
572            ;; of INTERNAL-APPLY-LOOP which happens to be running in the            ;; of INTERNAL-APPLY-LOOP which happens to be running in the
573            ;; c::entry branch of INTERNAL-APPLY-LOOP.            ;; c::entry branch of INTERNAL-APPLY-LOOP.
574            (maybe-trace-funny-fun node ,name)            (maybe-trace-funny-fun node ,name)
575              ;;
576              ;; Discard the NLX-INFO arg...
577              (eval-stack-pop)
578            (return-from internal-apply-loop            (return-from internal-apply-loop
579                         (values :fell-through block node cont last-cont)))))))                         (values :fell-through block node cont last-cont)))))))
580    

Legend:
Removed from v.1.11.1.4  
changed lines
  Added in v.1.11.1.5

  ViewVC Help
Powered by ViewVC 1.1.5