Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp	(revision 5800)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp	(revision 5801)
@@ -24,96 +24,5 @@
 
 
-#+eabi-target
-(defun define-ppc32-eabi-callback (name args body env)
-  (let* ((stack-word (gensym))
-         (stack-ptr (gensym))
-         (result-type-spec :void)
-         (args args)
-         (woi nil)
-	 (monitor nil)
-         (need-struct-arg)
-         (struct-return-arg-name)
-         (error-return nil))
-    (collect ((arg-names)
-              (arg-specs))
-      (let* ((spec (car (last args)))
-             (rtype (ignore-errors (parse-foreign-type spec))))
-        (setq need-struct-arg (typep rtype 'foreign-record-type))
-        (if rtype
-          (setq result-type-spec spec args (butlast args))))
-      
-    (loop
-      (when (null args) (return))
-      (if (eq (car args) :without-interrupts)
-        (setq woi (cadr args) args (cddr args))
-	(if (eq (car args) :monitor-exception-ports)
-	  (setq monitor (cadr args) args (cddr args))
-          (if (eq (car args) :error-return)
-            (setq error-return
-                  (warn "~s not yet implemented on this platform"
-                        :error-return)
-                  args (cddr args))
-            (if need-struct-arg
-              (setq struct-return-arg-name (pop args) need-struct-arg nil)
-            (progn
-              (arg-specs (pop args))
-              (arg-names (pop args))))))))
-      (multiple-value-bind (rlets lets dynamic-extent-names inits foreign-return-type)
-          (funcall (ftd-callback-bindings-function *target-ftd*)
-                   stack-ptr (arg-names) (arg-specs) result-type-spec struct-return-arg-name)
-        (multiple-value-bind (body decls doc) (parse-body body env t)
-          `(progn
-            (declaim (special ,name))
-            (define-callback-function
-                (nfunction ,name
-                 (lambda (,stack-word)
-                   (declare (ignorable ,stack-word))
-                   (block ,name
-                     (with-macptrs ((,stack-ptr))
-                       (%setf-macptr-to-object ,stack-ptr ,stack-word)
-                       ,(defcallback-body  stack-ptr
-                                           lets
-                                           rlets
-                                           inits
-                                           `(declare (dynamic-extent ,@dynamic-extent-names))
-                                           decls
-                                           body
-                                           foreign-return-type
-                                           struct-return-arg-name
-                                           error-return
-                                           0
-                                           )))))
-                ,doc
-              ,woi
-              ,monitor)))))))
-
-#+eabi-target
-(defun defcallback-body-ppc32-eabi (stack-ptr lets rlets inits dynamic-extent-decls other-decls body return-type struct-return-arg error-return error-delta)
-  (let* ((result (gensym))
-         (condition-name (if (atom error-return) 'error (car error-return)))
-         (error-return-function (if (atom error-return) error-return (cadr error-return)))
-         (body
-   	  `(rlet ,rlets
-            (let ,lets
-              ,dynamic-extent-decls
-              ,@other-decls
-              ,@inits
-              (let ((,result (progn ,@body)))
-                (declare (ignorable ,result))
-                ,@(progn
-                   ;; Coerce SINGLE-FLOAT result to DOUBLE-FLOAT
-                   (when (typep return-type 'foreign-single-float-type)
-                     (setq result `(float ,result 0.0d0)))
-                   nil)
-                ,(funcall (ftd-callback-return-value-function *target-ftd*)
-                          stack-ptr
-                          result
-                          return-type
-                          struct-return-arg))))))
-    (if error-return
-      (let* ((cond (gensym)))
-        `(handler-case ,body
-          (,condition-name (,cond) (,error-return-function ,cond ,stack-ptr (%inc-ptr ,stack-ptr ,error-delta)))))
-      body)))
+
 
 #+poweropen-target