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/d5b023387b05012738abd701...