117 |
(DEFINE-CONDITION PARSE-ERROR (ERROR) |
(DEFINE-CONDITION PARSE-ERROR (ERROR) |
118 |
()) |
()) |
119 |
|
|
120 |
|
(DEFINE-CONDITION PRINT-NOT-READABLE (ERROR) |
121 |
|
()) |
122 |
|
|
123 |
(DEFINE-CONDITION STREAM-ERROR (ERROR) |
(DEFINE-CONDITION STREAM-ERROR (ERROR) |
124 |
#-(or clos pcl) |
#-(or clos pcl) |
125 |
(STREAM) |
(STREAM) |
127 |
((STREAM :initarg :STREAM |
((STREAM :initarg :STREAM |
128 |
:reader STREAM-ERROR-STREAM))) |
:reader STREAM-ERROR-STREAM))) |
129 |
|
|
130 |
|
(DEFINE-CONDITION READER-ERROR (PARSE-ERROR STREAM-ERROR) |
131 |
|
()) |
132 |
|
|
133 |
(DEFINE-CONDITION END-OF-FILE (STREAM-ERROR) |
(DEFINE-CONDITION END-OF-FILE (STREAM-ERROR) |
134 |
() |
() |
135 |
(:REPORT (LAMBDA (CONDITION STREAM) |
(:REPORT (LAMBDA (CONDITION STREAM) |
170 |
(:REPORT (LAMBDA (CONDITION STREAM) |
(:REPORT (LAMBDA (CONDITION STREAM) |
171 |
(FORMAT STREAM "The variable ~S is unbound." |
(FORMAT STREAM "The variable ~S is unbound." |
172 |
(CELL-ERROR-NAME CONDITION))))) |
(CELL-ERROR-NAME CONDITION))))) |
173 |
|
|
174 |
|
(DEFINE-CONDITION UNBOUND-SLOT (CELL-ERROR) |
175 |
|
() |
176 |
|
(:REPORT (LAMBDA (CONDITION STREAM) |
177 |
|
(FORMAT STREAM "The slot ~S is unbound." |
178 |
|
(CELL-ERROR-NAME CONDITION))))) |
179 |
|
|
180 |
(DEFINE-CONDITION UNDEFINED-FUNCTION (CELL-ERROR) |
(DEFINE-CONDITION UNDEFINED-FUNCTION (CELL-ERROR) |
181 |
() |
() |
196 |
(DEFINE-CONDITION FLOATING-POINT-OVERFLOW (ARITHMETIC-ERROR) |
(DEFINE-CONDITION FLOATING-POINT-OVERFLOW (ARITHMETIC-ERROR) |
197 |
()) |
()) |
198 |
|
|
199 |
|
(DEFINE-CONDITION FLOATING-POINT-INVALID-OPERATION (ARITHMETIC-ERROR) |
200 |
|
()) |
201 |
|
|
202 |
|
(DEFINE-CONDITION FLOATING-POINT-INEXACT (ARITHMETIC-ERROR) |
203 |
|
()) |
204 |
|
|
205 |
(DEFINE-CONDITION FLOATING-POINT-UNDERFLOW (ARITHMETIC-ERROR) |
(DEFINE-CONDITION FLOATING-POINT-UNDERFLOW (ARITHMETIC-ERROR) |
206 |
()) |
()) |
207 |
|
|