Skip to content
Snippets Groups Projects
Commit 80a57a8c authored by Robert Goldman's avatar Robert Goldman
Browse files

Comment tweak.

parent 74fafced
No related branches found
No related tags found
No related merge requests found
...@@ -352,10 +352,10 @@ returns pathnames for directories that contain all of the configuration informat ...@@ -352,10 +352,10 @@ returns pathnames for directories that contain all of the configuration informat
`(,(config-home-pathname app more) `(,(config-home-pathname app more)
,@(config-search-pathnames app more)))) ,@(config-search-pathnames app more))))
;; FIXME: AFAICT although this says "find FILE," it is often used to find a DIRECTORY.
(defun find-preferred-file (files &key (direction :input)) (defun find-preferred-file (files &key (direction :input))
"Find first file in the list of FILES that exists (for direction :input or :probe) "Find first file in the list of FILES that exists (for direction :input or :probe)
or just the first one (for direction :output or :io)." or just the first one (for direction :output or :io).
Note that when we say \"file\" here, the files in question may be directories."
(find-if (ecase direction ((:probe :input) 'probe-file*) ((:output :io) 'identity)) files)) (find-if (ecase direction ((:probe :input) 'probe-file*) ((:output :io) 'identity)) files))
(defun find-data-pathname (&optional app more (direction :input)) (defun find-data-pathname (&optional app more (direction :input))
......
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