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:

 	       (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)))