[cello-cvs] CVS cello/cffi-extender

[ktilton]

Update of /project/cello/cvsroot/cello/cffi-extender
In directory clnet:/tmp/cvs-serv637/cffi-extender

Modified Files:
	arrays.lisp 
Log Message:


--- /project/cello/cvsroot/cello/cffi-extender/arrays.lisp	2006/08/31 17:34:47	1.3
+++ /project/cello/cvsroot/cello/cffi-extender/arrays.lisp	2006/09/05 23:05:36	1.4
@@ -169,9 +169,18 @@
 (defun elti (v n)
   (ff-elt v :int n))
 
+(defun eltc (v n)
+  (ff-elt v :char n))
+
 (defun (setf elti) (value v n)
   (setf (ff-elt v :int n) (coerce value 'integer)))
 
+(defun (setf eltuc) (value v n)
+  (setf (ff-elt v :unsigned-char n) value))
+
+(defun eltuc (v n)
+  (ff-elt v :unsigned-char n))
+
 (defun eltf (v n)
   (ff-elt v :float n))
 
@@ -194,7 +203,7 @@
   `(mem-aref ,pa :pointer ,n))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (export '(ffx-reset
+  (export '(ffx-reset eltc eltuc
            ff-elt ff-list
            eltf eltd elti fgn-pa
            with-ff-array-elements