diff --git a/test/test-program.script b/test/test-program.script index a31bba906526fb20da92b57ad102d47008d00c3a..38bff4cb5530c0ab18f263db7dfbe50c749b7649 100644 --- a/test/test-program.script +++ b/test/test-program.script @@ -108,8 +108,8 @@ #+(or ecl mkcl) (progn (DBG "Now create an program without UIOP") - (assert (probe-file (asdf/bundle::asdf-library-pathname))) - (assert (probe-file (asdf/bundle::compiler-library-pathname))) + (assert (probe-file (asdf/bundle::system-module-pathname "asdf"))) + (assert (probe-file (asdf/bundle::system-module-pathname "cmp"))) (def-test-system hello-no-uiop :class program-system :no-uiop t