Index: /trunk/ccl/lib/macros.lisp
===================================================================
--- /trunk/ccl/lib/macros.lisp	(revision 5819)
+++ /trunk/ccl/lib/macros.lisp	(revision 5820)
@@ -2357,5 +2357,4 @@
 
 (defun define-callback (name args body env)
-  #+ppc-target
   (let* ((stack-word (gensym))
          (stack-ptr (gensym))
@@ -2421,16 +2420,9 @@
                 ,doc
               ,woi
-              ,monitor))))))
-  #-ppc-target
-  (funcall (backend-define-callback *target-backend*)
-           name
-           args
-           body
-           env))
+              ,monitor)))))))
 
 
 (defun defcallback-body (&rest args)
   (declare (dynamic-extent args))
-  #+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))
@@ -2460,7 +2452,5 @@
         `(handler-case ,body
           (,condition-name (,cond) (,error-return-function ,cond ,stack-ptr (%inc-ptr ,stack-ptr ,error-delta)))))
-      body)))
-  #-ppc-target
-  (apply (backend-defcallback-body *target-backend*) args))
+      body))))