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

diff --git a/tests/callback.impure.lisp b/tests/callback.impure.lisp
index a06b13a..bb62a68 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
 
@@ -130,7 +130,7 @@
 
 ;;; callbacks with void return values
 
-(with-test (:name void-return)
+(with-test (:name :void-return)
   (sb-alien::alien-lambda void ()
     (values)))