Commit a0a4d93f authored by Eric Timmons's avatar Eric Timmons
Browse files

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

This ensures that primary-system-name gives the name of the primary system when
passed a package-inferred-system object.

Add test to catch this regression in the future.
parent 245e2cfb
......@@ -138,7 +138,7 @@ otherwise return a default system name computed from PACKAGE-NAME."
(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)))
Supports Markdown
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