From 619b17ce5eb96b3cfd5f2d94174270a31e46871c Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 19 Feb 2008 12:54:49 +0100
Subject: Reimplement slot reading.

darcs-hash:bdef9c8f4c3fb2121456295da23fbe679265a15b
---
 Lisp/libobjcl.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'Lisp/libobjcl.lisp')

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
-- 
cgit v1.2.3