Commit 271bf1e0 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Merge branch 'fix-bad-system'

parents c7b0b625 198c91ac
......@@ -290,10 +290,11 @@ system names contained using COERCE-NAME. Return the result."
(nest
(with-asdf-cache ())
(let* ((name (coerce-name name))
(source-file (if sfp source-file (resolve-symlinks* (load-pathname))))
(asd-name (and source-file
(equalp "asd" (pathname-type source-file))
(pathname-name source-file)))
(source-file (if sfp source-file (resolve-symlinks* (load-pathname))))))
(flet ((fix-case (x) (if (logical-pathname-p source-file) (string-downcase x) x))))
(let* ((asd-name (and source-file
(equal "asd" (fix-case (pathname-type source-file)))
(fix-case (pathname-name source-file))))
(primary-name (primary-system-name name)))
(when (and asd-name (not (equal asd-name primary-name)))
(warn (make-condition 'bad-system-name :source-file source-file :name name))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment