Commit 261b1dca authored by pfdietz's avatar pfdietz

Load output-truename in the compile-file tests, since load is not guaranteed...

Load output-truename in the compile-file tests, since load is not guaranteed to work on pathname designators that are streams.
parent 17fc7b85
......@@ -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)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment