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

Diff of /gcl/clcs/clcs_condition_definitions.lisp

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

revision 1.1 by camm, Wed Feb 26 22:21:34 2003 UTC revision 1.2 by camm, Fri Oct 3 16:03:14 2003 UTC
# Line 111  Line 111 
111  (DEFINE-CONDITION CONTROL-ERROR (ERROR)  (DEFINE-CONDITION CONTROL-ERROR (ERROR)
112    ())    ())
113    
114    (DEFINE-CONDITION PARSE-ERROR (ERROR)
115      ())
116    
117  (DEFINE-CONDITION STREAM-ERROR (ERROR)  (DEFINE-CONDITION STREAM-ERROR (ERROR)
118    #-(or clos pcl)    #-(or clos pcl)
119    (STREAM)    (STREAM)
# Line 254  Line 257 
257    #-(or clos pcl)(:conc-name %%internal-simple-program-error-)    #-(or clos pcl)(:conc-name %%internal-simple-program-error-)
258    #-(or clos pcl)(:report internal-simple-error-printer))    #-(or clos pcl)(:report internal-simple-error-printer))
259    
260    (define-condition internal-simple-parse-error
261        (#+(or clos pcl) internal-simple-error parse-error)
262      #-(or clos pcl)
263      ((function-name nil) format-string (format-arguments '()))
264      #+(or clos pcl)
265      ()
266      #-(or clos pcl)(:conc-name %%internal-simple-parse-error-)
267      #-(or clos pcl)(:report internal-simple-error-printer))
268    
269  (define-condition internal-simple-control-error  (define-condition internal-simple-control-error
270      (#+(or clos pcl) internal-simple-error control-error)      (#+(or clos pcl) internal-simple-error control-error)
271    #-(or clos pcl)    #-(or clos pcl)
# Line 334  Line 346 
346       (%%internal-type-error-function-name condition))       (%%internal-type-error-function-name condition))
347      (internal-simple-program-error      (internal-simple-program-error
348       (%%internal-simple-program-error-function-name condition))       (%%internal-simple-program-error-function-name condition))
349        (internal-simple-parse-error
350         (%%internal-simple-parse-error-function-name condition))
351      (internal-simple-control-error      (internal-simple-control-error
352       (%%internal-simple-control-error-function-name condition))       (%%internal-simple-control-error-function-name condition))
353      (internal-unbound-variable        (internal-unbound-variable  
# Line 361  Line 375 
375            (%%internal-simple-error-format-string condition))            (%%internal-simple-error-format-string condition))
376      #+kcl(internal-simple-program-error      #+kcl(internal-simple-program-error
377            (%%internal-simple-program-error-format-string condition))            (%%internal-simple-program-error-format-string condition))
378        #+kcl(internal-simple-parse-error
379              (%%internal-simple-parse-error-format-string condition))
380      #+kcl(internal-simple-control-error      #+kcl(internal-simple-control-error
381            (%%internal-simple-control-error-format-string condition))            (%%internal-simple-control-error-format-string condition))
382      #+kcl(internal-simple-file-error      #+kcl(internal-simple-file-error
# Line 378  Line 394 
394            (%%internal-simple-error-format-arguments condition))            (%%internal-simple-error-format-arguments condition))
395      #+kcl(internal-simple-program-error      #+kcl(internal-simple-program-error
396            (%%internal-simple-program-error-format-arguments condition))            (%%internal-simple-program-error-format-arguments condition))
397        #+kcl(internal-simple-parse-error
398              (%%internal-simple-parse-error-format-arguments condition))
399      #+kcl(internal-simple-control-error      #+kcl(internal-simple-control-error
400            (%%internal-simple-control-error-format-arguments condition))            (%%internal-simple-control-error-format-arguments condition))
401      #+kcl(internal-simple-file-error      #+kcl(internal-simple-file-error
# Line 389  Line 407 
407    (member type '(SIMPLE-CONDITION SIMPLE-WARNING SIMPLE-TYPE-ERROR SIMPLE-ERROR    (member type '(SIMPLE-CONDITION SIMPLE-WARNING SIMPLE-TYPE-ERROR SIMPLE-ERROR
408                   #+kcl internal-simple-error                   #+kcl internal-simple-error
409                   #+kcl internal-simple-program-error                   #+kcl internal-simple-program-error
410                     #+kcl internal-simple-parse-error
411                   #+kcl internal-simple-control-error                   #+kcl internal-simple-control-error
412                   #+kcl internal-simple-file-error                   #+kcl internal-simple-file-error
413                   #+kcl internal-simple-stream-error)))                   #+kcl internal-simple-stream-error)))

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

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