Fix make-array transforms.

[sbcl.git] / tests / enc-jpn.impure.lisp

diff --git a/tests/enc-jpn.impure.lisp b/tests/enc-jpn.impure.lisp
index 9851be4..132adda 100644 (file)
--- a/tests/enc-jpn.impure.lisp
+++ b/tests/enc-jpn.impure.lisp
@@ -1,6 +1,6 @@
 ;; -*- coding: utf-8 -*-
 #-sb-unicode
-(sb-ext:quit :unix-status 104)
+(sb-ext:exit :code 104)
 
 ;; use "AｱＡあ漾燹釭" for tests
 (let ((str (coerce '(#\u0041 #\uff71 #\uff21 #\u3042 #\u6f3e #\u71f9 #\u91ed)