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) |
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) |
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) |
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) |
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) |
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) |
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) |