Ignore:
Timestamp:
10/30/08 06:30:25 (13 years ago)
Author:
astalla
Message:

Introduced jmake-invocation-handler and jmake-proxy.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/scripting/j/src/org/armedbear/lisp/java.lisp

    r11368 r11369  
    102102        (push method-name method-names-and-defs)))
    103103    (apply #'%jimplement-interface interface method-names-and-defs)))
     104
     105(defun jmake-invocation-handler (function)
     106  (%jmake-invocation-handler function))
     107
     108(defun jmake-proxy (interface invocation-handler)
     109  (let ((handler (if (functionp invocation-handler)
     110         (jmake-invocation-handler invocation-handler)
     111         invocation-handler)))
     112    (%jmake-proxy (jclass interface) handler)))
    104113
    105114(defun jobject-class (obj)
Note: See TracChangeset for help on using the changeset viewer.