[Git][cmucl/cmucl][issue-157-directory-no-magic-wildcarding] Need to merge the directory pathname with defaults

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch issue-157-directory-no-magic-wildcarding at cmucl / cmucl


Commits:
d5b02338 by Raymond Toy at 2023-03-08T08:43:59-08:00
Need to merge the directory pathname with defaults

If we don't then logical pathnames don't work, among other things.  In
particular the following ansi-tests were failling:

DIRECTORY.8, OPEN.OUTPUT.28, OPEN.OUTPUT.35, OPEN.IO.28, OPEN.IO.35,
OPEN.PROBE.12, OPEN.PROBE.13, OPEN.PROBE.14, OPEN.PROBE.15,
OPEN.PROBE.16, OPEN.PROBE.17, OPEN.PROBE.18, OPEN.PROBE.19,
OPEN.PROBE.20, OPEN.ERROR.4, OPEN.ERROR.5, OPEN.ERROR.6, OPEN.ERROR.7,
OPEN.ERROR.8, OPEN.ERROR.9, OPEN.ERROR.10, OPEN.ERROR.11,
OPEN.ERROR.12, OPEN.ERROR.13, OPEN.ERROR.14.

With this change, the ansi-tests suite passes.

- - - - -


1 changed file:

- src/code/filesys.lisp


Changes:

=====================================
src/code/filesys.lisp
=====================================
@@ -1120,7 +1120,9 @@ optionally keeping some of the most recent old versions."
 	       (setf prev elem))
 	     (nreverse results))))
     (let ((results nil))
-      (enumerate-search-list (pathname pathname)
+      (enumerate-search-list
+	  (pathname (merge-pathnames pathname
+				     *default-pathname-defaults*))
 	(enumerate-matches (name pathname nil :follow-links follow-links)
 	  (when (or all
 		    (let ((slash (position #\/ name :from-end t)))



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d5b023387b05012738abd70139463ac1f525b413

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d5b023387b05012738abd70139463ac1f525b413
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20230308/e5fc2d00/attachment.html>