X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fenc-jpn.impure.lisp;h=132adda4c39f915d1884aa49441d2762391402ff;hb=1e786e1a23a1f2276ec2dbe197dcc31a53b43738;hp=9851be44a208563b2c915c9184ee87bcb2f389d1;hpb=0d5ff04e2ced1cbb2979dd1a7fcfd7ba3d6da7c1;p=sbcl.git

diff --git a/tests/enc-jpn.impure.lisp b/tests/enc-jpn.impure.lisp
index 9851be4..132adda 100644
--- 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)