X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fexternal-format.impure.lisp;h=3a96fb7f8e957971a3a8c3427d257b01e76adc9b;hb=df871446529da0e83d670f35a9566c11d814be32;hp=99e2bdafe3983af7e594ca8cd0014acc2084a1f3;hpb=e7ef1082bd3e7f3851de9d90c5dbddf226a71382;p=sbcl.git

diff --git a/tests/external-format.impure.lisp b/tests/external-format.impure.lisp
index 99e2bda..3a96fb7 100644
--- a/tests/external-format.impure.lisp
+++ b/tests/external-format.impure.lisp
@@ -294,9 +294,9 @@
 ;;; on 2008-10-16 for more info.
 (with-test (:name (:character-coding-error-stream-external-format))
   (flet ((first-file-character ()
-           (with-open-file (stream *test-file* :external-format :utf-8)
+           (with-open-file (stream *test-path* :external-format :utf-8)
              (read-char stream))))
-    (with-open-file (stream *test-file*
+    (with-open-file (stream *test-path*
                             :direction :output
                             :if-exists :supersede
                             :element-type '(unsigned-byte 8))