From e6e947b18ce0b6a5f62523adade5d7ffaefbac59 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 4 Mar 2008 22:55:33 +0100 Subject: Export DEFOBJCGENERIC and DEFOBJCMETHOD. darcs-hash:215ba7f141aaf113da4111f9dc76b3a6e45e8321 --- Lisp/defpackage.lisp | 2 ++ Lisp/method-definition.lisp | 4 ++++ 2 files changed, 6 insertions(+) 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 -- cgit v1.2.3