![](https://secure.gravatar.com/avatar/475d746a8cc0a2c1d6329a90e9ff0831.jpg?s=120&d=mm&r=g)
25 Jun
2008
25 Jun
'08
3:23 p.m.
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 -- Stelian Ionescu a.k.a. fe[nl]ix Quidquid latine dictum sit, altum videtur.