/[gcl]/gcl/clcs/condition-definitions.lisp
ViewVC logotype

Diff of /gcl/clcs/condition-definitions.lisp

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:43:55 1999 UTC revision 1.2 by camm, Wed Jun 12 17:46:12 2002 UTC
# Line 26  Line 26 
26  (DEFINE-CONDITION SERIOUS-CONDITION (CONDITION)  (DEFINE-CONDITION SERIOUS-CONDITION (CONDITION)
27    ())    ())
28    
29  (DEFINE-CONDITION lisp:ERROR (SERIOUS-CONDITION)  (DEFINE-CONDITION ERROR (SERIOUS-CONDITION)
30    ())    ())
31    
32  (DEFUN SIMPLE-CONDITION-PRINTER (CONDITION STREAM)  (DEFUN SIMPLE-CONDITION-PRINTER (CONDITION STREAM)
# Line 54  Line 54 
54    #-(or clos pcl)(:CONC-NAME %%SIMPLE-WARNING-)    #-(or clos pcl)(:CONC-NAME %%SIMPLE-WARNING-)
55    #-(or clos pcl)(:REPORT SIMPLE-CONDITION-PRINTER))    #-(or clos pcl)(:REPORT SIMPLE-CONDITION-PRINTER))
56    
57  (DEFINE-CONDITION SIMPLE-ERROR (#+(or clos pcl) SIMPLE-CONDITION lisp:ERROR)  (DEFINE-CONDITION SIMPLE-ERROR (#+(or clos pcl) SIMPLE-CONDITION ERROR)
58    #-(or clos pcl)    #-(or clos pcl)
59    (FORMAT-STRING (FORMAT-ARGUMENTS '()))    (FORMAT-STRING (FORMAT-ARGUMENTS '()))
60    #+(or clos pcl)    #+(or clos pcl)
# Line 68  Line 68 
68    
69  (DEFINE-CONDITION STORAGE-EXHAUSTED (STORAGE-CONDITION) ())  (DEFINE-CONDITION STORAGE-EXHAUSTED (STORAGE-CONDITION) ())
70    
71  (DEFINE-CONDITION TYPE-ERROR (lisp:ERROR)  (DEFINE-CONDITION TYPE-ERROR (ERROR)
72    #-(or clos pcl)    #-(or clos pcl)
73    (DATUM EXPECTED-TYPE)    (DATUM EXPECTED-TYPE)
74    #+(or clos pcl)    #+(or clos pcl)
# Line 105  Line 105 
105                (CASE-FAILURE-NAME CONDITION)                (CASE-FAILURE-NAME CONDITION)
106                (CASE-FAILURE-POSSIBILITIES CONDITION)))))                (CASE-FAILURE-POSSIBILITIES CONDITION)))))
107    
108  (DEFINE-CONDITION PROGRAM-ERROR (lisp:ERROR)  (DEFINE-CONDITION PROGRAM-ERROR (ERROR)
109    ())    ())
110    
111  (DEFINE-CONDITION CONTROL-ERROR (lisp:ERROR)  (DEFINE-CONDITION CONTROL-ERROR (ERROR)
112    ())    ())
113    
114  (DEFINE-CONDITION STREAM-ERROR (lisp:ERROR)  (DEFINE-CONDITION STREAM-ERROR (ERROR)
115    #-(or clos pcl)    #-(or clos pcl)
116    (STREAM)    (STREAM)
117    #+(or clos pcl)    #+(or clos pcl)
# Line 124  Line 124 
124               (FORMAT STREAM "Unexpected end of file on ~S."               (FORMAT STREAM "Unexpected end of file on ~S."
125                       (STREAM-ERROR-STREAM CONDITION)))))                       (STREAM-ERROR-STREAM CONDITION)))))
126    
127  (DEFINE-CONDITION FILE-ERROR (lisp:ERROR)  (DEFINE-CONDITION FILE-ERROR (ERROR)
128    #-(or clos pcl)    #-(or clos pcl)
129    (PATHNAME)    (PATHNAME)
130    #+(or clos pcl)    #+(or clos pcl)
131    ((PATHNAME :initarg :PATHNAME    ((PATHNAME :initarg :PATHNAME
132               :reader FILE-ERROR-PATHNAME)))               :reader FILE-ERROR-PATHNAME)))
133    
134  (DEFINE-CONDITION PACKAGE-ERROR (lisp:ERROR)  (DEFINE-CONDITION PACKAGE-ERROR (ERROR)
135    #-(or clos pcl)    #-(or clos pcl)
136    (PACKAGE)    (PACKAGE)
137    #+(or clos pcl)    #+(or clos pcl)
138    ((PACKAGE :initarg :PACKAGE    ((PACKAGE :initarg :PACKAGE
139              :reader PACKAGE-ERROR-PACKAGE)))              :reader PACKAGE-ERROR-PACKAGE)))
140    
141  (DEFINE-CONDITION CELL-ERROR (lisp:ERROR)  (DEFINE-CONDITION CELL-ERROR (ERROR)
142    #-(or clos pcl)    #-(or clos pcl)
143    (NAME)    (NAME)
144    #+(or clos pcl)    #+(or clos pcl)
# Line 157  Line 157 
157               (FORMAT STREAM "The function ~S is undefined."               (FORMAT STREAM "The function ~S is undefined."
158                       (CELL-ERROR-NAME CONDITION)))))                       (CELL-ERROR-NAME CONDITION)))))
159    
160  (DEFINE-CONDITION ARITHMETIC-ERROR (lisp:ERROR)  (DEFINE-CONDITION ARITHMETIC-ERROR (ERROR)
161    #-(or clos pcl)    #-(or clos pcl)
162    (OPERATION OPERANDS)    (OPERATION OPERANDS)
163    #+(or clos pcl)    #+(or clos pcl)
# Line 178  Line 178 
178    
179  #+kcl  #+kcl
180  (progn  (progn
181  (define-condition internal-error (lisp:error)  (define-condition internal-error ( error)
182    #-(or clos pcl)    #-(or clos pcl)
183    ((function-name nil))    ((function-name nil))
184    #+(or clos pcl)    #+(or clos pcl)

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

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