diff --git a/code/error.lisp b/code/error.lisp index 6d60c40918c8a479fbfc45dd78d877cc4be5945a..4a087053b339e08b3601a7b031f158b760ce676e 100644 --- a/code/error.lisp +++ b/code/error.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.53 1998/12/19 15:52:07 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.54 1999/01/09 11:12:17 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -915,10 +915,17 @@ ((pathname :reader file-error-pathname :initarg :pathname))) ;;; INTERNAL -(define-condition simple-file-error (simple-condition file-error)()) (define-condition simple-program-error (simple-condition program-error)()) (define-condition simple-control-error (simple-condition control-error)()) +(define-condition simple-file-error (simple-condition file-error) () + (:report + (lambda (condition stream) + (format stream "~&~@<File-error in function ~S: ~3i~:_~?~:>" + (condition-function-name condition) + (simple-condition-format-control condition) + (simple-condition-format-arguments condition))))) + (define-condition package-error (error) ((package :reader package-error-package :initarg :package)))