From 574de6976e25fb20a0ddf28de62f2e3b749a6d24 Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Wed, 14 Mar 2001 13:44:18 +0000 Subject: [PATCH] Somehow omitted a key component of rev 1.44. This fixes find-logical-host so it does what was intended. --- code/pathname.lisp | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/code/pathname.lisp b/code/pathname.lisp index 616a52a2d..a2efc69df 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.45 2001/03/13 02:10:29 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.46 2001/03/14 13:44:18 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1496,8 +1496,14 @@ a host-structure or string." (defun find-logical-host (thing &optional (errorp t)) (etypecase thing (string - (let ((found (gethash (logical-word-or-lose thing) - *logical-hosts*))) + (let ((found (or (gethash (logical-word-or-lose thing) + *logical-hosts*) + (and *autoload-translations* + (handler-case + (load-logical-pathname-translations thing) + (error () nil)) + (gethash (logical-word-or-lose thing) + *logical-hosts*))))) (if (or found (not errorp)) found (error 'simple-file-error @@ -1506,7 +1512,6 @@ a host-structure or string." :format-arguments (list thing))))) (logical-host thing))) - ;;; INTERN-LOGICAL-HOST -- Internal ;;; ;;; Given a logical host name or host, return a logical host, creating a new -- GitLab