diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-05 02:13:26 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-05 02:13:26 +0100 |
commit | d907d3d250c9a0f43b3497dcf5fa354be4ffc83f (patch) | |
tree | e9b264494ed4e18fbb7823eeae3d201e72104319 /Lisp/method-definition.lisp | |
parent | 1b2b509cd214ce604ce6ac58ef38ac6b5aec81e1 (diff) |
Add function COLLECT-METHODS.
darcs-hash:4c78479b2d67157304f041d700fceb34a3ed7721
Diffstat (limited to 'Lisp/method-definition.lisp')
-rw-r--r-- | Lisp/method-definition.lisp | 6 |
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) |