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
4b8e6a63
Commit
4b8e6a63
authored
Jan 11, 2013
by
Francois-Rene Rideau
Browse files
2.26.73: fix a logical-pathname issue on ECL.
Also, tweak some tests some more.
parent
950d4eeb
Changes
3
Hide whitespace changes
Inline
Side-by-side
system.lisp
View file @
4b8e6a63
...
...
@@ -140,6 +140,7 @@ located."
(
defmethod
builtin-system-p
((
s
system
))
(
let*
((
system
(
find-system
s
nil
))
(
sysdir
(
and
system
(
component-pathname
system
)))
(
truesysdir
(
and
sysdir
(
truename*
sysdir
)))
(
impdir
(
lisp-implementation-directory
:truename
t
)))
(
and
sysdir
impdir
(
pathname-match-p
(
true
name
sysdir
)
(
wilden
impdir
))
t
)))
(
and
true
sysdir
impdir
(
pathname-match-p
truesysdir
(
wilden
impdir
))
t
)))
test/test-force.script
View file @
4b8e6a63
...
...
@@ -15,6 +15,7 @@
(assert file1-date)
;; unforced, date should stay same
(touch-file "test-force.asd" :timestamp date1)
(touch-file "file1.lisp" :timestamp date1)
(touch-file file1 :timestamp date2)
(asdf:operate 'asdf:load-op 'test-force)
...
...
test/test-logical-pathname.script
View file @
4b8e6a63
...
...
@@ -31,7 +31,7 @@
(setf *central-registry* '())
(initialize-source-registry
'(:source-registry (:directory #p"ASDF:test;") :ignore-inherited-configuration))
(load-system :test-logical-pathname :force t))
(load-system :test-logical-pathname :force
t :verbose
t))
#-(or xcl gcl<2.7)
(progn
...
...
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