Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Jan Moringen
asdf
Commits
039494bc
Commit
039494bc
authored
Nov 18, 2015
by
Francois-Rene Rideau
Browse files
Remove some ASDF 2 driver functions.
Not used in Quicklisp.
parent
62c4eb4f
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/backward-driver.lisp
View file @
039494bc
...
...
@@ -6,8 +6,7 @@
:uiop/pathname
:uiop/stream
:uiop/os
:uiop/image
:uiop/run-program
:uiop/lisp-build
:uiop/configuration
)
(
:export
#:coerce-pathname
#:component-name-to-pathname-components
#+
(
or
clasp
ecl
mkcl
)
#:compile-file-keeping-object
#:coerce-pathname
#:user-configuration-directories
#:system-configuration-directories
#:in-first-directory
#:in-user-configuration-directory
#:in-system-configuration-directory
))
...
...
@@ -18,27 +17,11 @@
(
with-upgradability
()
(
defun
coerce-pathname
(
name
&key
type
defaults
)
;; For backward-compatibility only, for people using internals
;; Reported users in quicklisp: hu.dwim.asdf
, asdf-utils, xcvb
;; Will be removed after 201
4-01-16
.
;; Reported users in quicklisp
2015-11
: hu.dwim.asdf
(removed in next release)
;; Will be removed after 201
5-12
.
;;(warn "Please don't use ASDF::COERCE-PATHNAME. Use ASDF/PATHNAME:PARSE-UNIX-NAMESTRING.")
(
parse-unix-namestring
name
:type
type
:defaults
defaults
))
(
defun
component-name-to-pathname-components
(
unix-style-namestring
&key
force-directory
force-relative
)
;; Will be removed after 2014-01-16.
;; (warn "Please don't use ASDF::COMPONENT-NAME-TO-PATHNAME-COMPONENTS, use SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS")
(
multiple-value-bind
(
relabs
path
filename
file-only
)
(
split-unix-namestring-directory-components
unix-style-namestring
:ensure-directory
force-directory
)
(
declare
(
ignore
file-only
))
(
when
(
and
force-relative
(
not
(
eq
relabs
:relative
)))
(
error
(
compatfmt
"~@<Absolute pathname designator not allowed: ~3i~_~S~@:>"
)
unix-style-namestring
))
(
values
relabs
path
filename
)))
#+
(
or
clasp
ecl
mkcl
)
(
defun
compile-file-keeping-object
(
&rest
args
)
(
apply
#'
compile-file*
args
))
;; Backward compatibility for ASDF 2.27 to 3.1.4
(
defun
user-configuration-directories
()
"Return the current user's list of user configuration directories
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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