X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcallback.impure.lisp;h=d08bb700dff63ac34ee2b0126a2e40cd96078865;hb=b14aefb22fd710673b1a1005add3c0425713d2a0;hp=a06b13a6ff0968c8d57d99c88a32c31ac189f1db;hpb=511f4325a18532f48f8c6f99e0a63862b7b25aed;p=sbcl.git

diff --git a/tests/callback.impure.lisp b/tests/callback.impure.lisp
index a06b13a..d08bb70 100644
--- a/tests/callback.impure.lisp
+++ b/tests/callback.impure.lisp
@@ -1,4 +1,4 @@
-;;;; package lock tests with side effects
+;;;; callback tests with side effects
 
 ;;;; This software is part of the SBCL system. See the README file for
 ;;;; more information.
@@ -15,7 +15,7 @@
 
 ;;; callbacks only on a few platforms
 #-alien-callbacks
-(quit :unix-status 104)
+(exit :code 104)
 
 ;;; simple callback for a function