From 614297426c173788c3d6d0c12a425d45d834e9ee Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 12 Mar 2008 15:26:00 +0100
Subject: Pass class names instead of classes to
 ENSURE-GENERIC-FUNCTION-USING-CLASS.

darcs-hash:3309224dd0ddc7ea67830b7ff1a04b2cf49ecd43
---
 Lisp/method-definition.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Lisp')

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
-- 
cgit v1.2.3