0.9.2.13:

[sbcl.git] / tests / external-format.impure.lisp

diff --git a/tests/external-format.impure.lisp b/tests/external-format.impure.lisp
index f5a0f48..d1a5d38 100644 (file)
--- a/tests/external-format.impure.lisp
+++ b/tests/external-format.impure.lisp
@@ -15,6 +15,9 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
+#-sb-unicode
+(sb-ext:quit :unix-status 104)
+
 (defmacro do-external-formats ((xf &optional result) &body body)
   (let ((nxf (gensym)))
     `(dolist (,nxf sb-impl::*external-formats* ,result)
@@ -131,4 +134,6 @@
       (when p
        (delete-file p)))))
 
+(delete-file "external-format-test.txt")
+
 (sb-ext:quit :unix-status 104)