clisp from CVS head, cffi-051229.tar.gz
[4]> (asdf:operate 'asdf:test-op :cffi-tests) Doing 101 pending tests of 101 tests total. ... Test CFFI-TESTS::FUNCALL.VARARGS.DOUBLE failed Form: (CFFI:WITH-FOREIGN-POINTER-AS-STRING (CFFI-TESTS::S 100) (SETF (CFFI:MEM-REF CFFI-TESTS::S :CHAR) 0) (CFFI:FOREIGN-FUNCALL "sprintf" :POINTER CFFI-TESTS::S :STRING "%.2f" :DOUBLE (COERCE PI 'DOUBLE-FLOAT) :VOID)) Expected value: "3.14" Actual value: #<error during printing> ... Test CFFI-TESTS::STRUCT.NAMES failed Form: (CFFI:FOREIGN-SLOT-NAMES 'CFFI-TESTS::XPTO) Expected value: (CFFI-TESTS::TV-SECS CFFI-TESTS::TV-USECS) Actual value: (CFFI-TESTS::TV-USECS CFFI-TESTS::TV-SECS). ... 2 out of 101 total tests failed: CFFI-TESTS::FUNCALL.VARARGS.DOUBLE, CFFI-TESTS::STRUCT.NAMES.
Thanks!