On Wed, 2008-06-25 at 16:14 +0100, Luís Oliveira wrote:
Hello,
On Wed, Jun 25, 2008 at 4:09 PM, Antoine Allombert antoine.allombert@labri.fr wrote:
(cffi:with-foreign-pointer (ptr 2)
(setf (cffi:mem-ref ptr :int 0) 0) (setf (cffi:mem-ref ptr :int 1) 1) (let ((i 0)) (loop for i from 0 below 2 collect (cffi:mem-ref ptr :int i))))
HU> (setf *print-base* 16) 10 HU> (cffi:with-foreign-object (ptr :int 2) (setf (cffi:mem-ref ptr :int 0) #x07) (setf (cffi:mem-ref ptr :int 1) #x15) (values (cffi:mem-ref ptr :int 0) (cffi:mem-ref ptr :int 1))) 1507 15