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 +
 1 file changed, 1 insertion(+)

(limited to 'Lisp/libobjcl.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)
-- 
cgit v1.2.3