From b450583841e5661383a2dff9408e23ea3e313b5a Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 4 Mar 2008 22:54:09 +0100 Subject: Introduce macro DEFINE-OBJECTIVE-C-GENERIC-FUNCTION. darcs-hash:407ea76ee108cb03e819c6d5027b828a1232e24b --- Lisp/method-definition.lisp | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'Lisp/method-definition.lisp') diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 7e71f31..d97c2a8 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -75,6 +75,18 @@ ,@body))))))) +(defmacro define-objective-c-generic-function (name lambda-list &body options) + `(defgeneric ,name ,lambda-list + ,@(unless (position :generic-function-class + options + :key #'car) + `((:generic-function-class objcl:objective-c-generic-function))) + ,@(unless (position :method-class + options + :key #'car) + `((:method-class objcl:objective-c-method))))) + + (defvar *callback-names* (make-hash-table :test #'eql)) (defun intern-callback-name (method) -- cgit v1.2.3