0.9.5.13:

[sbcl.git] / tests / callback.impure.lisp

diff --git a/tests/callback.impure.lisp b/tests/callback.impure.lisp
index fe25040..8dd89d7 100644 (file)
--- 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)