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
271bf1e0
Commit
271bf1e0
authored
Apr 03, 2017
by
Francois-Rene Rideau
Browse files
Merge branch 'fix-bad-system'
parents
c7b0b625
198c91ac
Changes
1
Hide whitespace changes
Inline
Side-by-side
parse-defsystem.lisp
View file @
271bf1e0
...
@@ -290,10 +290,11 @@ system names contained using COERCE-NAME. Return the result."
...
@@ -290,10 +290,11 @@ system names contained using COERCE-NAME. Return the result."
(
nest
(
nest
(
with-asdf-cache
())
(
with-asdf-cache
())
(
let*
((
name
(
coerce-name
name
))
(
let*
((
name
(
coerce-name
name
))
(
source-file
(
if
sfp
source-file
(
resolve-symlinks*
(
load-pathname
))))
(
source-file
(
if
sfp
source-file
(
resolve-symlinks*
(
load-pathname
))))))
(
asd-name
(
and
source-file
(
flet
((
fix-case
(
x
)
(
if
(
logical-pathname-p
source-file
)
(
string-downcase
x
)
x
))))
(
equalp
"asd"
(
pathname-type
source-file
))
(
let*
((
asd-name
(
and
source-file
(
pathname-name
source-file
)))
(
equal
"asd"
(
fix-case
(
pathname-type
source-file
)))
(
fix-case
(
pathname-name
source-file
))))
(
primary-name
(
primary-system-name
name
)))
(
primary-name
(
primary-system-name
name
)))
(
when
(
and
asd-name
(
not
(
equal
asd-name
primary-name
)))
(
when
(
and
asd-name
(
not
(
equal
asd-name
primary-name
)))
(
warn
(
make-condition
'bad-system-name
:source-file
source-file
:name
name
))))
(
warn
(
make-condition
'bad-system-name
:source-file
source-file
:name
name
))))
...
...
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