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 > <[EMAIL PROTECTED]> 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
--
Stelian Ionescu a.k.a. fe[nl]ix
Quidquid latine dictum sit, altum videtur.
signature.asc
Description: This is a digitally signed message part
_______________________________________________ cffi-devel mailing list cffi-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
