/[gcl]/gcl/clcs/condition-definitions.lisp
ViewVC logotype

Diff of /gcl/clcs/condition-definitions.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Wed Oct 9 03:46:33 2002 UTC revision 1.4 by camm, Mon Oct 14 05:24:42 2002 UTC
# Line 136  Line 136 
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)
# Line 223  Line 231 
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)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26