Commit 74fafced authored by Robert Goldman's avatar Robert Goldman

Revised docstrings.

parent c7632900
...@@ -43,22 +43,29 @@ ...@@ -43,22 +43,29 @@
;; Backward compatibility for ASDF 2.27 to 3.1.4 ;; Backward compatibility for ASDF 2.27 to 3.1.4
(defun user-configuration-directories () (defun user-configuration-directories ()
"Determine user configuration directories. "Return the current user's list of user configuration directories
DEPRECATED. Use uiop:config-pathnames instead." for configuring common-lisp.
DEPRECATED. Use uiop:config-pathnames instead."
(config-pathnames "common-lisp")) (config-pathnames "common-lisp"))
(defun system-configuration-directories () (defun system-configuration-directories ()
"Determine system user configuration directories. "Return the list of system configuration directories for common-lisp.
DEPRECATED. Use uiop:config-system-pathnames instead." DEPRECATED. Use uiop:config-system-pathnames instead."
(config-system-pathnames "common-lisp")) (config-system-pathnames "common-lisp"))
(defun in-first-directory (dirs x &key (direction :input)) (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) "Finds the first appropriate file named X in the list of DIRS for I/O
or just the first one (for direction :output or :io). DEPRECATED." 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 (find-preferred-file
(mapcar #'(lambda (dir) (subpathname (ensure-directory-pathname dir) x)) dirs) (mapcar #'(lambda (dir) (subpathname (ensure-directory-pathname dir) x)) dirs)
:direction direction)) :direction direction))
(defun in-user-configuration-directory (x &key (direction :input)) (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)) (find-config-pathname "common-lisp" x direction))
(defun in-system-configuration-directory (x &key (direction :input)) (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))) (find-preferred-file (config-system-pathnames "common-lisp" x) :direction direction)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment