Commit e271fb89 authored by Robert Goldman's avatar Robert Goldman

Merge branch 'fix-primary-system-name-for-inferred-systems' into 'master'

Set source file of package-inferred-systems to source file of primary system

See merge request asdf/asdf!93
parents 5424cec2 a0a4d93f
......@@ -138,7 +138,7 @@ otherwise return a default system name computed from PACKAGE-NAME."
previous
(eval `(defsystem ,system
:class package-inferred-system
:source-file nil
:source-file ,(system-source-file top)
:pathname ,dir
:depends-on ,dependencies
:around-compile ,around-compile
......
......@@ -12,3 +12,7 @@
;; Test that around-compile is inherited by inferred systems.
(assert-equal 3 (symbol-call :package-inferred-system-test/a :add10 1)) ;; add10 must have been compiled in base 2
;; Test that primary system name returns the correct value when called with a
;; package-inferred-system object.
(assert-equal "package-inferred-system-test" (primary-system-name (find-system :package-inferred-system-test/a/x)))
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