diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 22:55:33 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 22:55:33 +0100 |
| commit | e6e947b18ce0b6a5f62523adade5d7ffaefbac59 (patch) | |
| tree | 72e2d8e025938b1d8aaa751740e2adc606173be3 | |
| parent | b450583841e5661383a2dff9408e23ea3e313b5a (diff) | |
Export DEFOBJCGENERIC and DEFOBJCMETHOD.
darcs-hash:215ba7f141aaf113da4111f9dc76b3a6e45e8321
| -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 |