128 |
:reader STREAM-ERROR-STREAM))) |
:reader STREAM-ERROR-STREAM))) |
129 |
|
|
130 |
(DEFINE-CONDITION READER-ERROR (PARSE-ERROR STREAM-ERROR) |
(DEFINE-CONDITION READER-ERROR (PARSE-ERROR STREAM-ERROR) |
131 |
((ISSUE :initarg :ISSUE |
() |
132 |
:reader READER-ERROR-ISSUE))) |
(:report |
133 |
|
(lambda (condition stream) |
134 |
|
(format stream "Read error on stream ~S:." |
135 |
|
(STREAM-ERROR-STREAM CONDITION))))) |
136 |
|
|
137 |
(DEFINE-CONDITION END-OF-FILE (STREAM-ERROR) |
(DEFINE-CONDITION END-OF-FILE (STREAM-ERROR) |
138 |
() |
() |
287 |
(type-error-datum condition) |
(type-error-datum condition) |
288 |
(type-error-expected-type condition))))) |
(type-error-expected-type condition))))) |
289 |
|
|
|
(define-condition internal-reader-error |
|
|
(#+(or clos pcl) internal-error reader-error) |
|
|
#-(or clos pcl) |
|
|
((function-name nil)) |
|
|
#+(or clos pcl) |
|
|
() |
|
|
#-(or clos pcl)(:conc-name %%internal-reader-error-) |
|
|
#-(or clos pcl)(:report (lambda (condition stream) |
|
|
(when (internal-error-function-name condition) |
|
|
(format stream "Error in ~S [or a callee]: " |
|
|
(internal-error-function-name condition))) |
|
|
(format stream "Read error on stream ~S: ~S." |
|
|
(reader-error-stream condition) |
|
|
(reader-error-issue condition))))) |
|
|
|
|
290 |
(define-condition internal-package-error |
(define-condition internal-package-error |
291 |
(#+(or clos pcl) internal-error package-error) |
(#+(or clos pcl) internal-error package-error) |
292 |
#-(or clos pcl) |
#-(or clos pcl) |
311 |
#-(or clos pcl)(:conc-name %%internal-simple-program-error-) |
#-(or clos pcl)(:conc-name %%internal-simple-program-error-) |
312 |
#-(or clos pcl)(:report internal-simple-error-printer)) |
#-(or clos pcl)(:report internal-simple-error-printer)) |
313 |
|
|
314 |
|
(define-condition internal-simple-reader-error |
315 |
|
(#+(or clos pcl) internal-simple-error reader-error) |
316 |
|
#-(or clos pcl) |
317 |
|
((function-name nil) format-string (format-arguments '())) |
318 |
|
#+(or clos pcl) |
319 |
|
() |
320 |
|
#-(or clos pcl)(:conc-name %%internal-simple-reader-error-) |
321 |
|
#-(or clos pcl)(:report internal-simple-error-printer)) |
322 |
|
|
323 |
(define-condition internal-simple-parse-error |
(define-condition internal-simple-parse-error |
324 |
(#+(or clos pcl) internal-simple-error parse-error) |
(#+(or clos pcl) internal-simple-error parse-error) |
325 |
#-(or clos pcl) |
#-(or clos pcl) |
438 |
(%%internal-simple-error-format-string condition)) |
(%%internal-simple-error-format-string condition)) |
439 |
#+kcl(internal-simple-program-error |
#+kcl(internal-simple-program-error |
440 |
(%%internal-simple-program-error-format-string condition)) |
(%%internal-simple-program-error-format-string condition)) |
441 |
|
#+kcl(internal-simple-reader-error |
442 |
|
(%%internal-simple-reader-error-format-string condition)) |
443 |
#+kcl(internal-simple-parse-error |
#+kcl(internal-simple-parse-error |
444 |
(%%internal-simple-parse-error-format-string condition)) |
(%%internal-simple-parse-error-format-string condition)) |
445 |
#+kcl(internal-simple-control-error |
#+kcl(internal-simple-control-error |
459 |
(%%internal-simple-error-format-arguments condition)) |
(%%internal-simple-error-format-arguments condition)) |
460 |
#+kcl(internal-simple-program-error |
#+kcl(internal-simple-program-error |
461 |
(%%internal-simple-program-error-format-arguments condition)) |
(%%internal-simple-program-error-format-arguments condition)) |
462 |
|
#+kcl(internal-simple-reader-error |
463 |
|
(%%internal-simple-reader-error-format-arguments condition)) |
464 |
#+kcl(internal-simple-parse-error |
#+kcl(internal-simple-parse-error |
465 |
(%%internal-simple-parse-error-format-arguments condition)) |
(%%internal-simple-parse-error-format-arguments condition)) |
466 |
#+kcl(internal-simple-control-error |
#+kcl(internal-simple-control-error |
474 |
(member type '(SIMPLE-CONDITION SIMPLE-WARNING SIMPLE-TYPE-ERROR SIMPLE-ERROR |
(member type '(SIMPLE-CONDITION SIMPLE-WARNING SIMPLE-TYPE-ERROR SIMPLE-ERROR |
475 |
#+kcl internal-simple-error |
#+kcl internal-simple-error |
476 |
#+kcl internal-simple-program-error |
#+kcl internal-simple-program-error |
477 |
|
#+kcl internal-simple-reader-error |
478 |
#+kcl internal-simple-parse-error |
#+kcl internal-simple-parse-error |
479 |
#+kcl internal-simple-control-error |
#+kcl internal-simple-control-error |
480 |
#+kcl internal-simple-file-error |
#+kcl internal-simple-file-error |