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

Revised docstrings.

parent c7632900
......@@ -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)))
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