From 5404156f115b6d9cc6b11eaa9206c702616d7840 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sat, 19 Dec 1998 16:09:14 +0000
Subject: [PATCH] Rework errors into simple-file-error's. Based on patches from
 Peter Van Eynde.

---
 code/pathname.lisp | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/code/pathname.lisp b/code/pathname.lisp
index 2301603ae..d74d384a9 100644
--- a/code/pathname.lisp
+++ b/code/pathname.lisp
@@ -4,7 +4,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.33 1998/02/09 15:19:39 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.34 1998/12/19 16:09:14 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1458,7 +1458,10 @@ a host-structure or string."
 			   *logical-hosts*)))
        (if (or found (not errorp))
 	   found
-	   (error "Logical host not yet defined: ~S" thing))))
+	   (error 'simple-file-error
+		  :pathname thing
+		  :format-control "Logical host not yet defined: ~S"
+		  :format-arguments (list thing)))))
     (logical-host thing)))
 
 
@@ -1795,7 +1798,10 @@ a host-structure or string."
   (typecase pathname
     (logical-pathname
      (dolist (x (logical-host-canon-transls (%pathname-host pathname))
-		(error "No translation for ~S" pathname))
+		(error 'simple-file-error
+		       :pathname pathname
+		       :format-control "No translation for ~S"
+		       :format-arguments (list pathname)))
        (destructuring-bind (from to) x
 	 (when (pathname-match-p pathname from)
 	   (return (translate-logical-pathname
-- 
GitLab