Skip to content
Snippets Groups Projects
Commit df09bfac authored by wlott's avatar wlott
Browse files

In ambiguous-files, don't merge in the name and type from defaults, and

check for subdirs, so that we get the trailing slash on them.
parent fac4a62e
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.5 1990/11/09 23:37:20 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.6 1990/11/17 05:40:13 wlott Exp $
;;; ;;;
;;; Ugly pathname functions for Spice Lisp. ;;; Ugly pathname functions for Spice Lisp.
;;; these functions are part of the standard Spice Lisp environment. ;;; these functions are part of the standard Spice Lisp environment.
...@@ -998,9 +998,12 @@ ...@@ -998,9 +998,12 @@
We look in the directory specified by Defaults as well as looking down We look in the directory specified by Defaults as well as looking down
the search list." the search list."
(directory (concatenate 'string (directory (concatenate 'string
(namestring (merge-pathnames pathname defaults)) (namestring
"*") (merge-pathnames pathname
:check-for-subdirs nil)) (make-pathname :defaults defaults
:name nil
:type nil)))
"*")))
;;; File-writable -- exported from extensions. ;;; File-writable -- exported from extensions.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment