Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Jan Moringen
asdf
Commits
74fafced
Commit
74fafced
authored
Apr 26, 2015
by
Robert Goldman
Browse files
Revised docstrings.
parent
c7632900
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/backward-driver.lisp
View file @
74fafced
...
...
@@ -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
()
"
D
et
ermine
system
user
configuration directories.
DEPRECATED. Use uiop:config-system-pathnames instead."
"
R
et
urn 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
)))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment