From d907d3d250c9a0f43b3497dcf5fa354be4ffc83f Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 5 Mar 2008 02:13:26 +0100
Subject: Add function COLLECT-METHODS.

darcs-hash:4c78479b2d67157304f041d700fceb34a3ed7721
---
 Lisp/method-definition.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'Lisp/method-definition.lisp')

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)
-- 
cgit v1.2.3