diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-12 15:26:00 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-12 15:26:00 +0100 |
| commit | 614297426c173788c3d6d0c12a425d45d834e9ee (patch) | |
| tree | ede0f4ef8bdacbb82227292b5f46a7829350bd0b | |
| parent | ba7223d79163795d1b1f29698254ec628dc01538 (diff) | |
Pass class names instead of classes to ENSURE-GENERIC-FUNCTION-USING-CLASS.
darcs-hash:3309224dd0ddc7ea67830b7ff1a04b2cf49ecd43
| -rw-r--r-- | Lisp/method-definition.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 2d42843..ad3b45a 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -239,9 +239,9 @@ __super__" nil ',real-name :generic-function-class - (find-class 'objective-c-generic-function) + 'objective-c-generic-function :method-class - (find-class 'objective-c-method)))) + 'objective-c-method))) (defmethod ,real-name argtypes-start ,@type-specifiers argtypes-end ,@qualifiers |