summaryrefslogtreecommitdiff
path: root/Lisp/method-definition.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp/method-definition.lisp')
-rw-r--r--Lisp/method-definition.lisp6
1 files changed, 4 insertions, 2 deletions
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp
index 41f1f84..cbfc344 100644
--- a/Lisp/method-definition.lisp
+++ b/Lisp/method-definition.lisp
@@ -69,7 +69,8 @@
else
collect :id into type-specifiers
finally (return
- `(defmethod ,name
+ `(defmethod ,(intern (symbol-name name)
+ '#:objective-c-methods)
argtypes-start ,@type-specifiers argtypes-end
,@qualifiers ,lambda-list
,@body)))))))
@@ -80,7 +81,8 @@
(defmacro define-objective-c-generic-function (name lambda-list &body options)
- `(defgeneric ,name ,lambda-list
+ `(defgeneric ,(intern (symbol-name name) '#:objective-c-methods)
+ ,lambda-list
,@(unless (position :generic-function-class
options
:key #'car)