summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-07 00:55:15 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-07 00:55:15 +0100
commitad9ece8b32dcf6a7b0fee2e1503b6cc0be66003f (patch)
tree7effea4145d8b748c12c368edb1a9b379b8d60b5
parent5f83cd7ee8cd3e1860f111b8f4b89afdc0b97d00 (diff)
INTERN-CALLBACK-NAME: Correctly distinguish callbacks by the classes they are defined for.
darcs-hash:3eb9e5d6e38eede09a912519cc1c10c216dc02ac
-rw-r--r--Lisp/method-definition.lisp3
1 files changed, 2 insertions, 1 deletions
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp
index 451732c..ec3138c 100644
--- a/Lisp/method-definition.lisp
+++ b/Lisp/method-definition.lisp
@@ -390,9 +390,10 @@ __define-objective-c-generic-function__.
(defun intern-callback-name (method)
(or (gethash method *callback-names* nil)
(setf (gethash method *callback-names* nil)
- (intern (format nil "~A ~A"
+ (intern (format nil "~A ~S ~A"
(generic-function-name
(method-generic-function method))
+ (class-name (second (method-specializers method)))
(sort (copy-list (method-qualifiers method))
#'string<
:key #'string))