X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fenc-cn.impure.lisp;h=ebb7c84cd5072fd9ba2a8822913e297118288329;hb=1cba0af01f5107ab384d0d8b94b1f6330b3d0ef4;hp=a978d1fe2baf5535c6b30d01ff82bde3a860be62;hpb=b8a674ddb8346a360be6c2ea7df2bfd0434cb65c;p=sbcl.git

diff --git a/tests/enc-cn.impure.lisp b/tests/enc-cn.impure.lisp
index a978d1f..ebb7c84 100644
--- a/tests/enc-cn.impure.lisp
+++ b/tests/enc-cn.impure.lisp
@@ -1,7 +1,7 @@
 ;;; -*- coding: utf-8 -*-
 ;;; enc-cn.impure.lisp: test case for enc-cn.lisp and enc-cn-tbl.lisp
 #-sb-unicode
-(sb-ext:quit :unix-status 104)
+(sb-ext:exit :code 104)
 
 ;; use "1AＡあ胡玥姮" for tests
 (let ((str (coerce '(#\u0031 #\u0041 #\uff21 #\u3042 #\u80e1 #\u73a5 #\u59ee)