/[cmucl]/src/code/lispinit.lisp
ViewVC logotype

Diff of /src/code/lispinit.lisp

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

revision 1.60 by dtc, Thu Sep 14 14:31:52 2000 UTC revision 1.61 by dtc, Mon Oct 16 17:31:47 2000 UTC
# Line 599  Line 599 
599                        (t                        (t
600                         (format t "~&Received EOF.~%")))))))))))                         (format t "~&Received EOF.~%")))))))))))
601    
 (defun %handled-top-level ()  
   "Wrap %top-level read-eval-print loop in an error handler for *batch-mode*."  
   (handler-case  
       (progn  
         (%top-level)  
         (quit))  
     (error (cond)  
       (format *error-output* "Error in batch processing:~%~A" cond)  
       (throw '%end-of-the-world 1))))  
   
602    
603  ;;; %Halt  --  Interface  ;;; %Halt  --  Interface
604  ;;;  ;;;

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

  ViewVC Help
Powered by ViewVC 1.1.5