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