Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 5814)
+++ /trunk/ccl/lib/macros.lisp	(revision 5815)
@@ -2357,5 +2357,5 @@
 
 (defun define-callback (name args body env)
-  #+(or linuxppc-target (and darwinppc-target 32-bit-target))
+  #+ppc-target
   (let* ((stack-word (gensym))
          (stack-ptr (gensym))
@@ -2422,5 +2422,5 @@
               ,woi
               ,monitor))))))
-  #-(or linuxppc-target (and darwinppc-target 32-bit-target))
+  #-ppc-target
   (funcall (backend-define-callback *target-backend*)
            name
@@ -2432,5 +2432,5 @@
 (defun defcallback-body (&rest args)
   (declare (dynamic-extent args))
-  #+(or linuxppc-target (and darwinppc-target 32-bit-target))
+  #+ppc-target
   (destructuring-bind (stack-ptr fp-args-ptr lets rlets inits dynamic-extent-decls other-decls body return-type struct-return-arg error-return error-delta) args
       (let* ((result (gensym))
@@ -2461,5 +2461,5 @@
           (,condition-name (,cond) (,error-return-function ,cond ,stack-ptr (%inc-ptr ,stack-ptr ,error-delta)))))
       body)))
-  #-(or linuxppc-target (and darwinppc-target 32-bit-target))
+  #-ppc-target
   (apply (backend-defcallback-body *target-backend*) args))