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
asdf
asdf
Commits
c3f01caa
Commit
c3f01caa
authored
Feb 19, 2010
by
Francois-Rene Rideau
Browse files
1.622: a fix for component-relative-pathname to somehow work with logical pathname hosts.
(Thanks to janderson for the bug report and patch.)
parent
e1732766
Changes
1
Hide whitespace changes
Inline
Side-by-side
asdf.lisp
View file @
c3f01caa
...
...
@@ -208,7 +208,7 @@
;; This parameter isn't actually user-visible
;; -- please use the exported function ASDF:ASDF-VERSION below.
;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(
subseq
"VERSION:1.62
0
"
(
1+
(
length
"VERSION"
))))
(
subseq
"VERSION:1.62
2
"
(
1+
(
length
"VERSION"
))))
(
defun
asdf-version
()
"Exported interface to the version of ASDF currently installed. A string.
...
...
@@ -1028,10 +1028,15 @@ to `~a` which is not a directory.~@:>"
filename
))))
(
defmethod
component-relative-pathname
((
component
source-file
))
(
merge-component-relative-pathname
(
slot-value
component
'relative-pathname
)
(
component-name
component
)
(
source-file-type
component
(
component-system
component
))))
;; This binding of *default-pathname-defaults* is required notably because
;; it will provide the default host to the above make-pathname, which may
;; crucially matter to e.g. people somehow using logical-pathnames.
(
let
((
*default-pathname-defaults*
(
component-pathname
(
component-parent
component
))))
(
merge-component-relative-pathname
(
slot-value
component
'relative-pathname
)
(
component-name
component
)
(
source-file-type
component
(
component-system
component
)))))
;;;; -------------------------------------------------------------------------
;;;; Operations
...
...
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