From be27ce573881d548f933089ff738f27a11f52fd3 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Fri, 9 Jan 2004 04:11:07 +0000 Subject: [PATCH] DIRECTORY is supposed to merge the given pathname with *DEFAULT-PATHNAME-DEFAULTS* --- code/filesys.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/code/filesys.lisp b/code/filesys.lisp index b8685e1e2..b26fa1a6f 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.76 2003/08/05 16:31:24 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.77 2004/01/09 04:11:07 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -961,7 +961,8 @@ optionally keeping some of the most recent old versions." (pathname (merge-pathnames pathname (make-pathname :name :wild :type :wild - :version :wild) + :version :wild + :defaults *default-pathname-defaults*) :wild)) (enumerate-matches (name pathname nil :follow-links follow-links) (when (or all -- GitLab