diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-06 23:06:07 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-06 23:06:07 +0100 |
| commit | 2764ecfdb8adf6ae57668f173e55628cb721e96f (patch) | |
| tree | b13a27b4a57aa010151ca43af94609c1e879d7db /Lisp | |
| parent | 230184a4f786ee656871fe30abc20033c669b90d (diff) | |
Make DEFINE-OBJECTIVE-C-METHOD macroexpand correctly even if the receiving class has not yet been defined.
darcs-hash:8556a7cb9a41f5fb6530fef6fa71b222b61af44b
Diffstat (limited to 'Lisp')
| -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 741c6ca..a58b530 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -209,8 +209,8 @@ __super__" finally (let ((super-args-sym (gensym)) (captured-args-sym (gensym)) (class-arg-sym (gensym)) - (class-name (class-name (find-objc-class - (cadar lambda-list))))) + (class-name (intern (symbol-name (cadar lambda-list)) + '#:objective-c-classes))) (return `(defmethod ,(intern (symbol-name name) '#:objective-c-methods) |