>From d54dcdd497a9b47cfa8f604ebf763fce029a2b5f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 9 Sep 2016 15:23:44 +0200
Subject: [PATCH 8/9] tests: fix test-program function call

---
 test/test-program.script | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/test-program.script b/test/test-program.script
index fb48fab..bef7f7c 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -110,8 +110,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
-- 
2.9.3

