222 |
(type-error-datum condition) |
(type-error-datum condition) |
223 |
(type-error-expected-type condition))))) |
(type-error-expected-type condition))))) |
224 |
|
|
225 |
|
(define-condition internal-package-error |
226 |
|
(#+(or clos pcl) internal-error simple-condition) |
227 |
|
#-(or clos pcl) |
228 |
|
((function-name nil)) |
229 |
|
#+(or clos pcl) |
230 |
|
() |
231 |
|
#-(or clos pcl)(:conc-name %%internal-package-error-) |
232 |
|
#-(or clos pcl)(:report (lambda (condition stream) |
233 |
|
(when (internal-error-function-name condition) |
234 |
|
(format stream "Error in ~S [or a callee]: " |
235 |
|
(internal-error-function-name condition))) |
236 |
|
(format stream "A package error occurred on ~S." |
237 |
|
(type-error-datum condition))))) |
238 |
|
|
239 |
(define-condition internal-simple-program-error |
(define-condition internal-simple-program-error |
240 |
(#+(or clos pcl) internal-simple-error program-error) |
(#+(or clos pcl) internal-simple-error program-error) |
241 |
#-(or clos pcl) |
#-(or clos pcl) |