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
asdf
asdf
Commits
b85a0252
Commit
b85a0252
authored
Apr 14, 2010
by
Francois-Rene Rideau
Browse files
1.677: more places need use merge-pathnames*.
GNUmakefile to clean *.bak.
parent
fe8c75ed
Changes
2
Hide whitespace changes
Inline
Side-by-side
GNUmakefile
View file @
b85a0252
...
...
@@ -38,7 +38,7 @@ website-copy: FORCE
bin/rsync-cp.sh tmp/asdf.lisp
$(webhome_private)
clean_dirs
=
$(sourceDirectory)
clean_extensions
=
fasl dfsl cfsl fasl fas lib dx32fsl lx64fsl lx32fsl o
clean_extensions
=
fasl dfsl cfsl fasl fas lib dx32fsl lx64fsl lx32fsl o
bak
clean
:
FORCE
@
for
dir
in
$(clean_dirs)
;
do
\
...
...
asdf.lisp
View file @
b85a0252
...
...
@@ -60,7 +60,7 @@
(
eval-when
(
:load-toplevel
:compile-toplevel
:execute
)
(
let*
((
asdf-version
;; the 1+ hair is to ensure that we don't do an inadvertent find and replace
(
subseq
"VERSION:1.67
6
"
(
1+
(
length
"VERSION"
))))
(
subseq
"VERSION:1.67
7
"
(
1+
(
length
"VERSION"
))))
#+
allegro
(
excl::*autoload-package-name-alist*
nil
)
(
existing-asdf
(
find-package
:asdf
))
(
versym
'
#:*asdf-version*
)
...
...
@@ -677,7 +677,7 @@ actually-existing directory."
"Resolve as much of a pathname as possible"
(
block
nil
(
when
(
typep
p
'logical-pathname
)
(
return
p
))
(
let*
((
p
(
merge-pathnames
p
))
(
let*
((
p
(
merge-pathnames
*
p
))
(
directory
(
pathname-directory
p
)))
(
when
(
typep
p
'logical-pathname
)
(
return
p
))
(
ignore-errors
(
return
(
truename
p
)))
...
...
@@ -1794,7 +1794,7 @@ details."
(
if
*resolve-symlinks*
(
resolve-symlinks
(
or
*load-truename*
*compile-file-truename*
))
*load-pathname*
)))))
(
or
(
and
pathname-supplied-p
(
merge-pathnames
pathname
file-pathname
))
(
or
(
and
pathname-supplied-p
(
merge-pathnames
*
pathname
file-pathname
))
file-pathname
(
current-directory
))))
...
...
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