60 |
(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 |
61 |
(list v1 v2 v3 v4 v5 v6 v7 v8))) |
(list v1 v2 v3 v4 v5 v6 v7 v8))) |
62 |
(progn |
(progn |
63 |
(load target-pathname) |
(load output-truename) |
64 |
(funcall funname))))))) |
(funcall funname))))))) |
65 |
|
|
66 |
(deftest compile-file.1 |
(deftest compile-file.1 |
141 |
(let ((s (open "foo.fasl" :direction :output :if-exists :supersede |
(let ((s (open "foo.fasl" :direction :output :if-exists :supersede |
142 |
:if-does-not-exist :create))) |
:if-does-not-exist :create))) |
143 |
(close s) |
(close s) |
144 |
(compile-file-test "compile-file-test-file.lsp" 'compile-file-test-fun.1 |
(compile-file-test "compile-file-test-file.lsp" |
145 |
|
'compile-file-test-fun.1 |
146 |
:output-file s)) |
:output-file s)) |
147 |
t nil) |
t nil) |
148 |
|
|