Skip to content
Snippets Groups Projects
Commit 261b1dca authored by pfdietz's avatar pfdietz
Browse files

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
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment