Introduce macro DEFINE-OBJECTIVE-C-GENERIC-FUNCTION.

darcs-hash:407ea76ee108cb03e819c6d5027b828a1232e24b

1 files changed, 12 insertions, 0 deletions

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)