diff --git a/uiop/configuration.lisp b/uiop/configuration.lisp index 674884488735fc6c035dddb722ed2c3d2a9a8c99..c8ebfe88905cd943806162d0e7f53ffe76cc660e 100644 --- a/uiop/configuration.lisp +++ b/uiop/configuration.lisp @@ -352,10 +352,10 @@ returns pathnames for directories that contain all of the configuration informat `(,(config-home-pathname 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)) "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)) (defun find-data-pathname (&optional app more (direction :input))