diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-07 00:55:15 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-07 00:55:15 +0100 |
| commit | ad9ece8b32dcf6a7b0fee2e1503b6cc0be66003f (patch) | |
| tree | 7effea4145d8b748c12c368edb1a9b379b8d60b5 | |
| parent | 5f83cd7ee8cd3e1860f111b8f4b89afdc0b97d00 (diff) | |
INTERN-CALLBACK-NAME: Correctly distinguish callbacks by the classes they are defined for.
darcs-hash:3eb9e5d6e38eede09a912519cc1c10c216dc02ac
| -rw-r--r-- | Lisp/method-definition.lisp | 3 |
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)) |