136 |
(PACKAGE) |
(PACKAGE) |
137 |
#+(or clos pcl) |
#+(or clos pcl) |
138 |
((PACKAGE :initarg :PACKAGE |
((PACKAGE :initarg :PACKAGE |
139 |
:reader PACKAGE-ERROR-PACKAGE))) |
:reader PACKAGE-ERROR-PACKAGE) |
140 |
|
(MESSAGE :initarg :MESSAGE |
141 |
|
:reader PACKAGE-ERROR-MESSAGE)) |
142 |
|
(:report |
143 |
|
(lambda (condition stream) |
144 |
|
(format stream "A package error occurred on ~S: ~S." |
145 |
|
(PACKAGE-ERROR-PACKAGE CONDITION) |
146 |
|
(PACKAGE-ERROR-MESSAGE CONDITION))))) |
147 |
|
|
148 |
|
|
149 |
(DEFINE-CONDITION CELL-ERROR (ERROR) |
(DEFINE-CONDITION CELL-ERROR (ERROR) |
150 |
#-(or clos pcl) |
#-(or clos pcl) |
231 |
(type-error-expected-type condition))))) |
(type-error-expected-type condition))))) |
232 |
|
|
233 |
(define-condition internal-package-error |
(define-condition internal-package-error |
234 |
(#+(or clos pcl) internal-error simple-condition) |
(#+(or clos pcl) internal-error package-error) |
235 |
#-(or clos pcl) |
#-(or clos pcl) |
236 |
((function-name nil)) |
((function-name nil)) |
237 |
#+(or clos pcl) |
#+(or clos pcl) |
238 |
() |
() |
239 |
#-(or clos pcl)(:conc-name %%internal-package-error-) |
#-(or clos pcl)(:conc-name %%internal-package-error-) |
240 |
#-(or clos pcl)(:report (lambda (condition stream) |
#-(or clos pcl)(:report (lambda (condition stream) |
241 |
(when (internal-error-function-name condition) |
(when (internal-error-function-name condition) |
242 |
(format stream "Error in ~S [or a callee]: " |
(format stream "Error in ~S [or a callee]: " |
243 |
(internal-error-function-name condition))) |
(internal-error-function-name condition))) |
244 |
(format stream "A package error occurred on ~S." |
(format stream "A package error occurred on ~S: ~S." |
245 |
(type-error-datum condition))))) |
(package-error-package condition) |
246 |
|
(package-error-message condition))))) |
247 |
|
|
248 |
(define-condition internal-simple-program-error |
(define-condition internal-simple-program-error |
249 |
(#+(or clos pcl) internal-simple-error program-error) |
(#+(or clos pcl) internal-simple-error program-error) |