diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-03 18:33:47 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-03 18:33:47 +0100 |
| commit | b47bc1b65a3db942bb7e7b2e9b62ddc92d98ca8f (patch) | |
| tree | f287eb9dde13cbe24360f0be7b83716d6287738c /Lisp | |
| parent | 7736eab7d8a7b415dba3676a495c0ac3b2e28020 (diff) | |
Avoid calling objcl_class_name on unregistered classes.
darcs-hash:ea38f791e7f2bdc840e92709e1b915d985cc9700
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/libobjcl.lisp | 1 | ||||
| -rw-r--r-- | Lisp/method-definition.lisp | 1 |
2 files changed, 2 insertions, 0 deletions
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) |