From 261b1dca8d0fad0156f3b51c8789126a43e3ba68 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Wed, 8 Jun 2005 01:01:46 +0000
Subject: [PATCH] Load output-truename in the compile-file tests, since load is
 not guaranteed to work on pathname designators that are streams.

---
 ansi-tests/compile-file.lsp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/compile-file.lsp b/ansi-tests/compile-file.lsp
index bb9eb9f5..1d2d7443 100644
--- a/ansi-tests/compile-file.lsp
+++ b/ansi-tests/compile-file.lsp
@@ -60,7 +60,7 @@
 	   (if (and v1 v2 v3 v4 v5 v6 (eql v7 t) v8) t
 	     (list v1 v2 v3 v4 v5 v6 v7 v8)))
 	 (progn
-	   (load target-pathname)
+	   (load output-truename)
 	   (funcall funname)))))))
 
 (deftest compile-file.1
@@ -141,7 +141,8 @@
   (let ((s (open "foo.fasl" :direction :output :if-exists :supersede
 		 :if-does-not-exist :create)))
     (close s)
-    (compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1
+    (compile-file-test "compile-file-test-file.lsp"
+		       'compile-file-test-fun.1
 		       :output-file s))
   t nil)
 
-- 
GitLab