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