On Thu, Apr 29, 2010 at 8:50 AM, Juan Jose Garcia-Ripoll juanjose.garciaripoll@googlemail.com wrote:

...

CFFI> (macroexpand-1 '(foreign-funcall "foo" :boolean))    (NOT (ZEROP (%FOREIGN-FUNCALL "foo" (:INT) ...)))

Or did you mean something else?

I mean reading and writing data into foreign types, not calling functions.

Ah, yes. That too.

CFFI> (swank-backend:compiler-macroexpand '(mem-aref p :boolean 4)) (NOT (ZEROP (%MEM-REF P :INT 16)))

CFFI> (swank-backend:compiler-macroexpand '(%MEM-REF P :INT 16)) (SB-SYS:SIGNED-SAP-REF-32 P 16)