144 |
(compile-file-test "compile-file-test-file-4.lsp" 'compile-file-test-fun.4)) |
(compile-file-test "compile-file-test-file-4.lsp" 'compile-file-test-fun.4)) |
145 |
t foo) |
t foo) |
146 |
|
|
147 |
;;; Add tests for *compile-file-truename*, *compile-file-pathname* |
;;; Tests for *compile-file-truename*, *compile-file-pathname* |
148 |
|
|
149 |
|
(deftest compile-file.16 |
150 |
|
(let* ((file #p"compile-file-test-file-5.lsp") |
151 |
|
(target-pathname (compile-file-pathname file)) |
152 |
|
(*compile-print* nil) |
153 |
|
(*compile-verbose* nil)) |
154 |
|
(when (probe-file target-pathname) |
155 |
|
(delete-file target-pathname)) |
156 |
|
(compile-file file) |
157 |
|
(load target-pathname) |
158 |
|
(values |
159 |
|
(equalpt (truename file) (funcall 'compile-file-test-fun.5)) |
160 |
|
(equalpt (pathname (merge-pathnames file)) |
161 |
|
(funcall 'compile-file-test-fun.5a)))) |
162 |
|
t t) |
163 |
|
|
164 |
;;; Error cases |
;;; Error cases |
165 |
|
|