diff --git a/uiop/backward-driver.lisp b/uiop/backward-driver.lisp index 5a9b40995a6da3afc15a09107005a4ff06420fb9..1f67d91c26fc43c129d7a994e7eea1344b307d60 100644 --- a/uiop/backward-driver.lisp +++ b/uiop/backward-driver.lisp @@ -43,22 +43,29 @@ ;; Backward compatibility for ASDF 2.27 to 3.1.4 (defun user-configuration-directories () - "Determine user configuration directories. -DEPRECATED. Use uiop:config-pathnames instead." + "Return the current user's list of user configuration directories +for configuring common-lisp. + DEPRECATED. Use uiop:config-pathnames instead." (config-pathnames "common-lisp")) (defun system-configuration-directories () - "Determine system user configuration directories. -DEPRECATED. Use uiop:config-system-pathnames instead." + "Return the list of system configuration directories for common-lisp. + DEPRECATED. Use uiop:config-system-pathnames instead." (config-system-pathnames "common-lisp")) (defun in-first-directory (dirs x &key (direction :input)) - "Find first file in the list of configuration DIRS with subpathname X that exists (for direction :input or :probe) -or just the first one (for direction :output or :io). DEPRECATED." + "Finds the first appropriate file named X in the list of DIRS for I/O +in DIRECTION \(which may be :INPUT, :OUTPUT, :IO, or :PROBE). + If direction is :INPUT or :PROBE, will return the first extant file named +X in one of the DIRS. + If direction is :OUTPUT or :IO, will simply return the file named X in the +first element of DIRS that exists. DEPRECATED." (find-preferred-file (mapcar #'(lambda (dir) (subpathname (ensure-directory-pathname dir) x)) dirs) :direction direction)) (defun in-user-configuration-directory (x &key (direction :input)) - "return pathname under user configuration directory, subpathname X. DEPRECATED." + "Return the file named X in the user configuration directory for common-lisp. +DEPRECATED." (find-config-pathname "common-lisp" x direction)) (defun in-system-configuration-directory (x &key (direction :input)) - "return pathname under system configuration directory, subpathname X. DEPRECATED." + "Return the pathname for the file named X under the system configuration directory +for common-lisp. DEPRECATED." (find-preferred-file (config-system-pathnames "common-lisp" x) :direction direction)))