X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler-test-util.lisp;h=938af5cf19dcaededbd4aafa899360a49cac7dae;hb=7254da92a1ba1bf8bc5a2e78a29d993f272d526e;hp=a21f04fefb192a7e2aafa456bc06e444deab065c;hpb=eca61f35572d371982ebb601d0edefe5c9a942ae;p=sbcl.git

diff --git a/tests/compiler-test-util.lisp b/tests/compiler-test-util.lisp
index a21f04f..938af5c 100644
--- a/tests/compiler-test-util.lisp
+++ b/tests/compiler-test-util.lisp
@@ -95,7 +95,7 @@
   `(check-consing t ',form (lambda () ,form) ,times))
 
 (defun file-compile (toplevel-forms &key load)
-  (let* ((lisp "compile-impure-tmp.lisp")
+  (let* ((lisp (merge-pathnames "file-compile-tmp.lisp"))
          (fasl (compile-file-pathname lisp)))
     (unwind-protect
          (progn