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/libobjcl.lisp          | 1 +
 Lisp/method-definition.lisp | 1 +
 2 files changed, 2 insertions(+)

(limited to 'Lisp')

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index f13d298..394672e 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -162,6 +162,7 @@
 
 (defcfun ("objcl_add_method" %objcl-add-method) :void
   (class :pointer)
+  (class-name :string)
   (method-name :pointer)
   (callback :pointer)
   (argc :int)
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