X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fexternal-format.impure.lisp;h=d1a5d38d4cf29c3e58cd261914e22c5851fbacde;hb=1714224f33ba559eab11af8827a78f9a5aebd698;hp=2cadc0ce121583d2ba566ee3ee13aa25d2931340;hpb=b41f8c974ccfba8a59ec2a6af843e8869e14be5f;p=sbcl.git

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