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