X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fexternal-format.impure.lisp;h=d1a5d38d4cf29c3e58cd261914e22c5851fbacde;hb=1ce0ed2dc780758503d284e981768bd505564a88;hp=f5a0f483ee7bd5405fa9e4604cedef3feceb50b7;hpb=7b5628003e3016985952908016219b872ed48811;p=sbcl.git

diff --git a/tests/external-format.impure.lisp b/tests/external-format.impure.lisp
index f5a0f48..d1a5d38 100644
--- 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)