Skip to content
Snippets Groups Projects
Commit 74fafced authored by Robert Goldman's avatar Robert Goldman
Browse files

Revised docstrings.

parent c7632900
No related branches found
No related tags found
No related merge requests found
...@@ -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)))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment