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