From b47bc1b65a3db942bb7e7b2e9b62ddc92d98ca8f Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 3 Mar 2008 18:33:47 +0100
Subject: Avoid calling objcl_class_name on unregistered classes.

darcs-hash:ea38f791e7f2bdc840e92709e1b915d985cc9700
---
 Lisp/method-definition.lisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Lisp/method-definition.lisp')

diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp
index f368423..1ed0b9c 100644
--- a/Lisp/method-definition.lisp
+++ b/Lisp/method-definition.lisp
@@ -130,6 +130,7 @@
                 do (setf (mem-aref arg-typestring-buffer :string i)
                          (allocate-temp typestring)))
           (%objcl-add-method (pointer-to class)
+                             (symbol->objc-class-name (class-name class))
                              (pointer-to method-name)
                              callback
                              (- (length arg-typestrings) 2)
-- 
cgit v1.2.3