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
...@@ -60,7 +60,7 @@ ...@@ -60,7 +60,7 @@
(if (and v1 v2 v3 v4 v5 v6 (eql v7 t) v8) t (if (and v1 v2 v3 v4 v5 v6 (eql v7 t) v8) t
(list v1 v2 v3 v4 v5 v6 v7 v8))) (list v1 v2 v3 v4 v5 v6 v7 v8)))
(progn (progn
(load target-pathname) (load output-truename)
(funcall funname))))))) (funcall funname)))))))
(deftest compile-file.1 (deftest compile-file.1
...@@ -141,7 +141,8 @@ ...@@ -141,7 +141,8 @@
(let ((s (open "foo.fasl" :direction :output :if-exists :supersede (let ((s (open "foo.fasl" :direction :output :if-exists :supersede
:if-does-not-exist :create))) :if-does-not-exist :create)))
(close s) (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)) :output-file s))
t nil) 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