From 74fafced6e6fecaa4e17814c21a0d535b924c37c Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@sift.net>
Date: Sun, 26 Apr 2015 21:07:00 -0500
Subject: [PATCH] Revised docstrings.

---
 uiop/backward-driver.lisp | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/uiop/backward-driver.lisp b/uiop/backward-driver.lisp
index 5a9b4099..1f67d91c 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)))
-- 
GitLab