0.9.2.13:

[sbcl.git] / tests / eucjp.impure.lisp

diff --git a/tests/eucjp.impure.lisp b/tests/eucjp.impure.lisp
index e16a033..f4d90ed 100644 (file)
--- a/tests/eucjp.impure.lisp
+++ b/tests/eucjp.impure.lisp
@@ -1,3 +1,6 @@
+#-sb-unicode
+(sb-ext:quit :unix-status 104)
+
 (let ((p "eucjp-test.data")
       (eucjp "eucjp-test-eucjp.data")
       (utf8 "eucjp-test-utf8.data"))