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