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