diff options
| -rw-r--r-- | Lisp/defpackage.lisp | 2 | ||||
| -rw-r--r-- | Lisp/method-definition.lisp | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/Lisp/defpackage.lisp b/Lisp/defpackage.lisp index 21bf284..234e3d0 100644 --- a/Lisp/defpackage.lisp +++ b/Lisp/defpackage.lisp @@ -48,6 +48,8 @@ #+(or) #:define-objc-union #:define-objective-c-generic-function #:define-objective-c-method + #:defobjcgeneric + #:defobjcmethod ;; Special variables #:*trace-method-calls* diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index d97c2a8..7342c4a 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -75,6 +75,10 @@ ,@body))))))) +(defmacro defobjcgeneric (name lambda-list &body options) + `(define-objective-c-generic-function ,name ,lambda-list ,@options)) + + (defmacro define-objective-c-generic-function (name lambda-list &body options) `(defgeneric ,name ,lambda-list ,@(unless (position :generic-function-class |