Commit c214ef22 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Add missing dependency.

Don't normalize away last component in a component name that has dots.
parent 84c77c33
......@@ -30,7 +30,7 @@
(defsystem asdf-dependency-grovel
:components ((:file "package")
(:file "variables" :depends-on ("package"))
(:file "classes" :depends-on ("package"))
(:file "classes" :depends-on ("package" "variables"))
(:file "asdf-classes" :depends-on ("package"))
(:file "grovel" :depends-on ("package" "variables" "classes" "asdf-classes"))
(:file "asdf-ops" :depends-on ("package" "variables" "grovel"))
......
......@@ -633,7 +633,7 @@
:defaults pathname))
(defun normalized-component-name (component)
(pathname-name (make-pathname :defaults (asdf:component-name component))))
(pathname-name (asdf:component-relative-pathname component)))
;; Currently used only by initially-grovel-dependencies.
(defun output-component-file (stream dependencies &key
......
......@@ -362,7 +362,7 @@
#'clause-second-element)
(clause-contents :shadowing-import-from
#'clause-second-element))
:do (signal-user (canonical-package-name use) 'defpackage))
:do (signal-user use 'defpackage))
;; Signal imports of symbols (they need to exist before they can
;; be imported).
(when *check-internal-symbols-p*
......
......@@ -61,6 +61,9 @@
failed))
(length failed)))
;(trace asdf:perform asdf-dependency-grovel:signal-user asdf-dependency-grovel:signal-provider)
;; Currently unused (commented out in the test script).
;; (defun check-base-deps ()
;; (asdf:oos 'asdf-dependency-grovel:compare-dependency-op :test-serial))
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