X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcallback.impure.lisp;h=8dd89d739c1d5d328b71ba604c3cba2a27108fa7;hb=ad0133544b3497c34e656ba2519cee5dfd70e828;hp=fe250405cab2ca7ee6c3c93a2c380e26b1576b66;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/callback.impure.lisp b/tests/callback.impure.lisp
index fe25040..8dd89d7 100644
--- a/tests/callback.impure.lisp
+++ b/tests/callback.impure.lisp
@@ -14,7 +14,7 @@
 (in-package :cl-user)
 
 ;;; callbacks only on a few platforms
-#-(or darwin x86)
+#-(or (and ppc darwin) x86)
 (quit :unix-status 104)
 
 ;;; simple callback for a function
@@ -126,4 +126,3 @@
 
 (assert (= 26 (alien-funcall foo)))
 
-(quit :unix-status 104)