/[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.2 by camm, Wed Jun 12 17:46:12 2002 UTC revision 1.3 by camm, Wed Oct 9 03:46:33 2002 UTC
# Line 222  Line 222 
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)

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

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