diff options
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) |