From aa27fcc24dbe8ce5b1e46deee91f28396764b963 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 27 Sep 2004 19:06:35 +0000
Subject: [PATCH] Do not signal errors when a version is given without a name. 
 This needs to be rethought because there's confusion on what pathnames can be
 printed readably or not.

In particular (probe-file "logical-host:dir;") gets an error because
there's a merge-pathname that creates a pathname without a name, but
version :newest.
---
 code/filesys.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/filesys.lisp b/code/filesys.lisp
index 1344f7fe7..a78311e91 100644
--- a/code/filesys.lisp
+++ b/code/filesys.lisp
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.82 2004/09/13 17:42:40 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.83 2004/09/27 19:06:35 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -447,6 +447,7 @@
 	  (error "Cannot specify the type without a file: ~S" pathname))
 	(strings ".")
 	(strings (unparse-unix-piece type)))
+      #+(or)
       (when (and version (not name))
 	;; We don't want version without a name, because when we try
 	;; to read #p".~*~" back, the name is "", not NIL.
-- 
GitLab