/[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.6 by camm, Fri Oct 14 22:41:23 2005 UTC revision 1.7 by camm, Sat Oct 15 02:39:26 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)))    (:report
133        (lambda (condition stream)
134          (format stream "Read error on stream ~S:."
135                  (STREAM-ERROR-STREAM CONDITION)))))
136    
137  (DEFINE-CONDITION END-OF-FILE (STREAM-ERROR)  (DEFINE-CONDITION END-OF-FILE (STREAM-ERROR)
138    ()    ()
# Line 284  Line 287 
287                                      (type-error-datum condition)                                      (type-error-datum condition)
288                                      (type-error-expected-type condition)))))                                      (type-error-expected-type condition)))))
289    
 (define-condition internal-reader-error  
     (#+(or clos pcl) internal-error reader-error)  
   #-(or clos pcl)  
   ((function-name nil))  
   #+(or clos pcl)  
   ()  
   #-(or clos pcl)(:conc-name %%internal-reader-error-)  
   #-(or clos pcl)(:report (lambda (condition stream)  
                             (when (internal-error-function-name condition)  
                               (format stream "Error in ~S [or a callee]: "  
                                       (internal-error-function-name condition)))  
                             (format stream "Read error on stream ~S: ~S."  
                                     (reader-error-stream condition)  
                                     (reader-error-issue condition)))))  
   
290  (define-condition internal-package-error  (define-condition internal-package-error
291     (#+(or clos pcl) internal-error package-error)     (#+(or clos pcl) internal-error package-error)
292   #-(or clos pcl)   #-(or clos pcl)
# Line 323  Line 311 
311    #-(or clos pcl)(:conc-name %%internal-simple-program-error-)    #-(or clos pcl)(:conc-name %%internal-simple-program-error-)
312    #-(or clos pcl)(:report internal-simple-error-printer))    #-(or clos pcl)(:report internal-simple-error-printer))
313    
314    (define-condition internal-simple-reader-error
315        (#+(or clos pcl) internal-simple-error reader-error)
316      #-(or clos pcl)
317      ((function-name nil) format-string (format-arguments '()))
318      #+(or clos pcl)
319      ()
320      #-(or clos pcl)(:conc-name %%internal-simple-reader-error-)
321      #-(or clos pcl)(:report internal-simple-error-printer))
322    
323  (define-condition internal-simple-parse-error  (define-condition internal-simple-parse-error
324      (#+(or clos pcl) internal-simple-error parse-error)      (#+(or clos pcl) internal-simple-error parse-error)
325    #-(or clos pcl)    #-(or clos pcl)
# Line 441  Line 438 
438            (%%internal-simple-error-format-string condition))            (%%internal-simple-error-format-string condition))
439      #+kcl(internal-simple-program-error      #+kcl(internal-simple-program-error
440            (%%internal-simple-program-error-format-string condition))            (%%internal-simple-program-error-format-string condition))
441        #+kcl(internal-simple-reader-error
442              (%%internal-simple-reader-error-format-string condition))
443      #+kcl(internal-simple-parse-error      #+kcl(internal-simple-parse-error
444            (%%internal-simple-parse-error-format-string condition))            (%%internal-simple-parse-error-format-string condition))
445      #+kcl(internal-simple-control-error      #+kcl(internal-simple-control-error
# Line 460  Line 459 
459            (%%internal-simple-error-format-arguments condition))            (%%internal-simple-error-format-arguments condition))
460      #+kcl(internal-simple-program-error      #+kcl(internal-simple-program-error
461            (%%internal-simple-program-error-format-arguments condition))            (%%internal-simple-program-error-format-arguments condition))
462        #+kcl(internal-simple-reader-error
463              (%%internal-simple-reader-error-format-arguments condition))
464      #+kcl(internal-simple-parse-error      #+kcl(internal-simple-parse-error
465            (%%internal-simple-parse-error-format-arguments condition))            (%%internal-simple-parse-error-format-arguments condition))
466      #+kcl(internal-simple-control-error      #+kcl(internal-simple-control-error
# Line 473  Line 474 
474    (member type '(SIMPLE-CONDITION SIMPLE-WARNING SIMPLE-TYPE-ERROR SIMPLE-ERROR    (member type '(SIMPLE-CONDITION SIMPLE-WARNING SIMPLE-TYPE-ERROR SIMPLE-ERROR
475                   #+kcl internal-simple-error                   #+kcl internal-simple-error
476                   #+kcl internal-simple-program-error                   #+kcl internal-simple-program-error
477                     #+kcl internal-simple-reader-error
478                   #+kcl internal-simple-parse-error                   #+kcl internal-simple-parse-error
479                   #+kcl internal-simple-control-error                   #+kcl internal-simple-control-error
480                   #+kcl internal-simple-file-error                   #+kcl internal-simple-file-error

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

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