/[gcl]/gcl/clcs/gcl_clcs_condition_definitions.lisp
ViewVC logotype

Diff of /gcl/clcs/gcl_clcs_condition_definitions.lisp

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

revision 1.5 by camm, Wed Oct 12 03:06:30 2005 UTC revision 1.6 by camm, Fri Oct 14 22:41:23 2005 UTC
# Line 128  Line 128 
128             :reader STREAM-ERROR-STREAM)))             :reader STREAM-ERROR-STREAM)))
129    
130  (DEFINE-CONDITION READER-ERROR (PARSE-ERROR STREAM-ERROR)  (DEFINE-CONDITION READER-ERROR (PARSE-ERROR STREAM-ERROR)
131    ())    ((ISSUE :initarg :ISSUE
132              :reader READER-ERROR-ISSUE)))
133    
134  (DEFINE-CONDITION END-OF-FILE (STREAM-ERROR)  (DEFINE-CONDITION END-OF-FILE (STREAM-ERROR)
135    ()    ()
# Line 283  Line 284 
284                                      (type-error-datum condition)                                      (type-error-datum condition)
285                                      (type-error-expected-type condition)))))                                      (type-error-expected-type condition)))))
286    
287    (define-condition internal-reader-error
288        (#+(or clos pcl) internal-error reader-error)
289      #-(or clos pcl)
290      ((function-name nil))
291      #+(or clos pcl)
292      ()
293      #-(or clos pcl)(:conc-name %%internal-reader-error-)
294      #-(or clos pcl)(:report (lambda (condition stream)
295                                (when (internal-error-function-name condition)
296                                  (format stream "Error in ~S [or a callee]: "
297                                          (internal-error-function-name condition)))
298                                (format stream "Read error on stream ~S: ~S."
299                                        (reader-error-stream condition)
300                                        (reader-error-issue condition)))))
301    
302  (define-condition internal-package-error  (define-condition internal-package-error
303     (#+(or clos pcl) internal-error package-error)     (#+(or clos pcl) internal-error package-error)
304   #-(or clos pcl)   #-(or clos pcl)
# Line 316  Line 332 
332    #-(or clos pcl)(:conc-name %%internal-simple-parse-error-)    #-(or clos pcl)(:conc-name %%internal-simple-parse-error-)
333    #-(or clos pcl)(:report internal-simple-error-printer))    #-(or clos pcl)(:report internal-simple-error-printer))
334    
 (define-condition internal-simple-reader-error  
     (#+(or clos pcl) internal-simple-error reader-error)  
   #-(or clos pcl)  
   ((function-name nil) format-string (format-arguments '()))  
   #+(or clos pcl)  
   ()  
   #-(or clos pcl)(:conc-name %%internal-simple-reader-error-)  
   #-(or clos pcl)(:report internal-simple-error-printer))  
   
335  (define-condition internal-simple-control-error  (define-condition internal-simple-control-error
336      (#+(or clos pcl) internal-simple-error control-error)      (#+(or clos pcl) internal-simple-error control-error)
337    #-(or clos pcl)    #-(or clos pcl)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26