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))) |
133 |
|
|
134 |
(DEFINE-CONDITION END-OF-FILE (STREAM-ERROR) |
(DEFINE-CONDITION END-OF-FILE (STREAM-ERROR) |
135 |
() |
() |
284 |
(type-error-datum condition) |
(type-error-datum condition) |
285 |
(type-error-expected-type condition))))) |
(type-error-expected-type condition))))) |
286 |
|
|
287 |
|
(define-condition internal-reader-error |
288 |
|
(#+(or clos pcl) internal-error reader-error) |
289 |
|
#-(or clos pcl) |
290 |
|
((function-name nil)) |
291 |
|
#+(or clos pcl) |
292 |
|
() |
293 |
|
#-(or clos pcl)(:conc-name %%internal-reader-error-) |
294 |
|
#-(or clos pcl)(:report (lambda (condition stream) |
295 |
|
(when (internal-error-function-name condition) |
296 |
|
(format stream "Error in ~S [or a callee]: " |
297 |
|
(internal-error-function-name condition))) |
298 |
|
(format stream "Read error on stream ~S: ~S." |
299 |
|
(reader-error-stream condition) |
300 |
|
(reader-error-issue condition))))) |
301 |
|
|
302 |
(define-condition internal-package-error |
(define-condition internal-package-error |
303 |
(#+(or clos pcl) internal-error package-error) |
(#+(or clos pcl) internal-error package-error) |
304 |
#-(or clos pcl) |
#-(or clos pcl) |
332 |
#-(or clos pcl)(:conc-name %%internal-simple-parse-error-) |
#-(or clos pcl)(:conc-name %%internal-simple-parse-error-) |
333 |
#-(or clos pcl)(:report internal-simple-error-printer)) |
#-(or clos pcl)(:report internal-simple-error-printer)) |
334 |
|
|
|
(define-condition internal-simple-reader-error |
|
|
(#+(or clos pcl) internal-simple-error reader-error) |
|
|
#-(or clos pcl) |
|
|
((function-name nil) format-string (format-arguments '())) |
|
|
#+(or clos pcl) |
|
|
() |
|
|
#-(or clos pcl)(:conc-name %%internal-simple-reader-error-) |
|
|
#-(or clos pcl)(:report internal-simple-error-printer)) |
|
|
|
|
335 |
(define-condition internal-simple-control-error |
(define-condition internal-simple-control-error |
336 |
(#+(or clos pcl) internal-simple-error control-error) |
(#+(or clos pcl) internal-simple-error control-error) |
337 |
#-(or clos pcl) |
#-(or clos pcl) |