X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos-cache.impure.lisp;h=46e1a1abe48b175c0c3e106ec2143c78d7cc2b13;hb=9e7a18990d8cfe726edca3450f84510f5676a3e1;hp=c3e07d62caf7925fb4db4c1f7b77d843423b21fe;hpb=5fdb9edd71a21b3697ba6f407aca270060ef173c;p=sbcl.git

diff --git a/tests/clos-cache.impure.lisp b/tests/clos-cache.impure.lisp
index c3e07d6..46e1a1a 100644
--- a/tests/clos-cache.impure.lisp
+++ b/tests/clos-cache.impure.lisp
@@ -72,7 +72,7 @@
     (error (e)
       (note "~&Error in cache test in ~S:~%~A~%...aborting"
             sb-thread:*current-thread* e)
-      (sb-ext:quit :unix-status 1)))
+      (sb-ext:exit :code 1)))
   (note "/~S done" sb-thread:*current-thread*))
 
 #+sb-thread