Changeset 5820

Timestamp:

Jan 30, 2007, 6:01:24 AM (18 years ago)

Author:

Gary Byers

Message:

Use new callback interface unconditionally. (A day's work turned into
2 weeks, somehow.)

File:

• trunk/ccl/lib/macros.lisp (modified) (3 diffs)

trunk/ccl/lib/macros.lisp

@@ -2357 +2357 @@
 
 (defun define-callback (name args body env)
-  #+ppc-target
   (let* ((stack-word (gensym))
          (stack-ptr (gensym))
@@ -2421 +2420 @@
                 ,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 +2452 @@
         `(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))))