From 6714a3a15eadd9d1b0bd6e8f4214a00f84ad1270 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Wed, 7 Sep 2016 20:52:29 -0700
Subject: [PATCH] Fix mistake in test.

---
 tests/issues.lisp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/tests/issues.lisp b/tests/issues.lisp
index 40a2a96f6..26647dd26 100644
--- a/tests/issues.lisp
+++ b/tests/issues.lisp
@@ -302,9 +302,11 @@
 
 (define-test issue.30
     (:tag :issues)
-  (let* ((test-file #p"resources/issue-30.lisp")
+  (let* ((test-file #.(merge-pathnames #p"resources/issue-30.lisp" cl:*load-pathname*))
 	 (fasl-file (compile-file-pathname test-file)))
     ;; Compiling and loading the test file should succeed without
     ;; errors.
-    (assert-equal (list fasl-file nil nil)
-		  (compile-file test-file :load t))))
+    (assert-true (pathnamep test-file))
+    (assert-true (pathnamep fasl-file))
+    (assert-equalp (list fasl-file nil nil)
+		  (multiple-value-list (compile-file test-file :load t)))))
-- 
GitLab