;; 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)))