316 |
#-(or clos pcl)(:conc-name %%internal-simple-parse-error-) |
#-(or clos pcl)(:conc-name %%internal-simple-parse-error-) |
317 |
#-(or clos pcl)(:report internal-simple-error-printer)) |
#-(or clos pcl)(:report internal-simple-error-printer)) |
318 |
|
|
319 |
|
(define-condition internal-simple-reader-error |
320 |
|
(#+(or clos pcl) internal-simple-error reader-error) |
321 |
|
#-(or clos pcl) |
322 |
|
((function-name nil) format-string (format-arguments '())) |
323 |
|
#+(or clos pcl) |
324 |
|
() |
325 |
|
#-(or clos pcl)(:conc-name %%internal-simple-reader-error-) |
326 |
|
#-(or clos pcl)(:report internal-simple-error-printer)) |
327 |
|
|
328 |
(define-condition internal-simple-control-error |
(define-condition internal-simple-control-error |
329 |
(#+(or clos pcl) internal-simple-error control-error) |
(#+(or clos pcl) internal-simple-error control-error) |
330 |
#-(or clos pcl) |
#-(or clos pcl) |