diff --git a/code/filesys.lisp b/code/filesys.lisp index 5c7bd4a564105603206dbcadaa714fbfdd565eab..8519ab601520c1516e0fcb13015b8f7545ec5d95 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.32 1993/08/03 13:27:11 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.33 1993/08/03 13:57:35 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -561,13 +561,14 @@ (let ((name (pathname-name pathname)) (type (pathname-type pathname)) (version (pathname-version pathname))) - (cond ((null name) + (cond ((member name '(nil :unspecific)) (when (or (not verify-existance) (unix:unix-file-kind directory)) (funcall function directory))) ((or (pattern-p name) (pattern-p type) - (eq version :wild)) + (eq name :wild) + (eq type :wild)) (let ((dir (unix:open-dir directory))) (when dir (unwind-protect @@ -595,7 +596,7 @@ (let ((file (concatenate 'string directory name))) (unless (or (null type) (eq type :unspecific)) (setf file (concatenate 'string file "." type))) - (unless (member version '(nil :newest :wild)) + (unless (member version '(nil :newest :wild)) (setf file (concatenate 'string file "." (quick-integer-to-string version)))) (when (or (not verify-existance)