diff options
Diffstat (limited to 'Lisp/libobjcl.lisp')
-rw-r--r-- | Lisp/libobjcl.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 79734cc..f28d4b8 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -112,6 +112,13 @@ (slot-name :string) (value-out :pointer)) +(defcfun ("objcl_get_slot" %objcl-get-slot) :pointer + (class :pointer) ; Class + (slot-name :string)) + +(defcfun ("objcl_get_slot_offset" %objcl-get-slot-offset) :long + (slot :pointer)) + (defcfun ("objcl_class_direct_slots" %objcl-class-direct-slots) :pointer (class :pointer) ; Class (count :pointer) ; unsigned int |