From e6e947b18ce0b6a5f62523adade5d7ffaefbac59 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
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(+)

(limited to 'Lisp')

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