From 2764ecfdb8adf6ae57668f173e55628cb721e96f Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 6 Mar 2008 23:06:07 +0100 Subject: Make DEFINE-OBJECTIVE-C-METHOD macroexpand correctly even if the receiving class has not yet been defined. darcs-hash:8556a7cb9a41f5fb6530fef6fa71b222b61af44b --- Lisp/method-definition.lisp | 4 ++-- 1 file 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) -- cgit v1.2.3