summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/defpackage.lisp2
-rw-r--r--Lisp/method-definition.lisp4
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