diff --git a/ansi-tests/compile-file.lsp b/ansi-tests/compile-file.lsp index bb9eb9f542840868b7832e272e9225e151113ac6..1d2d7443ba5141c5c02724ad5e31ff8b19346f0e 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)