From a07f6efec88a0c0892a967f56819e86ba312b727 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sat, 9 Jan 1999 11:12:17 +0000 Subject: [PATCH] Add a specific report function for the simple-file-error condition. Based on patches from Peter Van Eynde. --- code/error.lisp | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/code/error.lisp b/code/error.lisp index 6d60c4091..4a087053b 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))) -- GitLab