Someone at #lisp (thanks to _3b) on freenode

helped me by patching this file

cffi/src/cffi-openmcl.lisp

184,187c184,189

< #+32-bit-target (:long %get-signed-long)

< #+64-bit-target (:long ccl::%%get-signed-longlong)

< #+32-bit-target (:unsigned-long %get-unsigned-long)

< #+64-bit-target (:unsigned-long ccl::%%get-unsigned-longlong)

---

> #+(or 32-bit-target windows) (:long %get-signed-long)

> #+(and 64-bit-target

> (not windows)) (:long ccl::%%get-signed-longlong)

> #+(or 32-bit-target windows) (:unsigned-long %get-unsigned-long)

> #+(and 64-bit-target

> (not windows)) (:unsigned-long ccl::%%get-unsigned-longlong)

The values are still wrong for some function calls.

But it does not crash anymore.

Greets Louis

Von: Louis Höfler [mailto:louis.hoefler@gmx.de]
Gesendet: Freitag, 30. Juli 2010 14:22
An: cffi-devel@common-lisp.net
Betreff: [cffi-devel] Using cffi with ccl on windows 64bit

Hello everyone. I try to use cffi on windows 64bit.

I recompiled the testlibraries with vs2010.

If I run the test I get this:

(require 'asdf)

(setf asdf:*central-registry*

'(*default-pathname-defaults*

#P"C:\\Users\\Lis\\Documents\\work\\trivial-features\\"

#P"C:\\Users\\Lis\\Documents\\work\\babel\\"

#P"C:\\Users\\Lis\\Documents\\work\\rt\\"

#P"C:\\Users\\Lis\\Documents\\work\\alexandria\\"

#P"C:\\Users\\Lis\\Documents\\work\\cffi\\"

))

(asdf:load-system 'trivial-features)

(asdf:load-system 'babel)

(asdf:load-system 'alexandria)

(asdf:load-system 'rt)

(asdf:load-system 'cffi)

(asdf:load-system 'cffi-tests)

(asdf:test-system 'cffi-tests)

;;;;;;;;;;;;;;;;;;;; OUTPUT

C:\Users\Lis\Documents\work\lisp_ccl>SET PATH=C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program Files (x86)\Common Files\Softimage;C:\Program Files\Common Files\Softimage;c:\Program Files (x86)\Microsoft SQL Server\100\Tools\Binn\;c:\Program Files\Microsoft SQL Server\100\Tools\Binn\;c:\Program Files\Microsoft SQL Server\100\DTS\Binn\;C:\Program Files\Intel\WiFi\bin\;C:\Program Files\Common Files\Intel\WirelessCommon\;C:\Program Files\ThinkPad\Bluetooth Software\;C:\Program Files\ThinkPad\Bluetooth Software\syswow64;;C:\Users\Lis\Documents\work\cffi\tests\libtest\x64\Debug;C:\Users\Lis\Documents\work\cffi\tests\libtest2\x64\Debug

C:\Users\Lis\Documents\work\lisp_ccl>C:\ccl\wx86cl64.exe -e "(load \"C:\\Users\\Lis\\Documents\\work\\lisp_ccl\\cffi_test.lisp\")"

; loading system definition from C:/Users/Lis/Documents/work/trivial-features/trivial-features.asd into #<Package "ASDF0">

; registering #<SYSTEM TRIVIAL-FEATURES #x210076D07D> as TRIVIAL-FEATURES

; loading system definition from C:/Users/Lis/Documents/work/babel/babel.asd into #<Package "ASDF0">

; registering #<SYSTEM BABEL #x21007FBAAD> as BABEL

; loading system definition from C:/Users/Lis/Documents/work/alexandria/alexandria.asd into #<Package "ASDF0">

; registering #<SYSTEM :ALEXANDRIA #x210080329D> as ALEXANDRIA

; loading system definition from C:/Users/Lis/Documents/work/rt/rt.asd into #<Package "ASDF0">

; registering #<SYSTEM :RT #x2100AFC34D> as RT

; loading system definition from C:/Users/Lis/Documents/work/cffi/cffi.asd into #<Package "ASDF0">

; registering #<SYSTEM CFFI #x2100B2CBFD> as CFFI

; loading system definition from C:/Users/Lis/Documents/work/cffi/cffi-tests.asd into #<Package "ASDF0">

; registering #<SYSTEM CFFI-TESTS #x2100C426AD> as CFFI-TESTS

;Compiler warnings for "home:Documents;work;cffi;tests;funcall.lisp.newest" :

; In (EXPAND-TO-FOREIGN (T CHECK-NIL-SKIP-TYPE)): Unused lexical variable VAL

; Warning: COMPILE-FILE warned while performing #<COMPILE-OP NIL #x2100AB2C5D> on #<CL-SOURCE-FILE "funcall" #x2100AB98BD>.

; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE)>, in process listener(1).

; Warning: Redefining test FOREIGN-ALLOC.6

; While executing: REGRESSION-TEST::REPORT-ERROR, in process listener(1).

;;; running tests (uncompiled)

Doing 235 pending tests of 235 tests total.

FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2 FUNCALL.LONG FUNCALL.LONG-LONG

FUNCALL.FLOAT FUNCALL.DOUBLE FUNCALL.STRING.1 FUNCALL.STRING.2 FUNCALL.STRING.3

FUNCALL.VARARGS.CHAR FUNCALL.VARARGS.INT FUNCALL.VARARGS.LONG

Test FUNCALL.VARARGS.DOUBLE failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SETF (MEM-REF S :CHAR) 0) (FOREIGN-FUNCALL "sprintf" :POINTER S :STRING "%.2f" :DOUBLE (COERCE PI 'DOUBLE-FLOAT) :INT))

Expected value: "3.14"

Actual value: "f".

FUNCALL.VARARGS.STRING

Test FUNCALL.DOUBLE26 failed

Form: (FOREIGN-FUNCALL "sum_double26" :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE)

Expected value: 81.64D0

Actual value: 75.36D0.

Test FUNCALL.FLOAT26 failed

Form: (FOREIGN-FUNCALL "sum_float26" :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT)

Expected value: 130.0

Actual value: 120.0.

FUNCALL.F-S-P.1 FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL DEFCFUN.CHAR

DEFCFUN.DOCSTRING DEFCFUN.INT DEFCFUN.LONG DEFCFUN.LONG-LONG DEFCFUN.FLOAT

DEFCFUN.DOUBLE DEFCFUN.STRING.1 DEFCFUN.STRING.2 DEFCFUN.STRING.3

DEFCFUN.NOARGS

Test DEFCFUN.NOOP failed

Form: (NOOP)

Expected values:

Actual value: NIL.

DEFCFUN.VARARGS.DOCSTRINGS DEFCFUN.VARARGS.CHAR DEFCFUN.VARARGS.SHORT

DEFCFUN.VARARGS.INT DEFCFUN.VARARGS.LONG

Test DEFCFUN.VARARGS.FLOAT failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :FLOAT (FLOAT PI)))

Expected value: "3.14"

Actual value: "f".

Test DEFCFUN.VARARGS.DOUBLE failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :DOUBLE (FLOAT PI 1.0D0)))

Expected value: "3.14"

Actual value: "f".

DEFCFUN.VARARGS.STRING

Test DEFCFUN.BFF.1 failed

Form: (SUM-127-NO-LL 1442906394 520035521 -4715 50335 -13557.0 -30892.0D0 24061483 -23737.0 22 2348 4986 104895680 8073.0D0 -571698147 102484400 (MAKE-POINTER 507907275) 12733353 7824 -1275845284 13602.0 (MAKE-POINTER 286958390) -8042.0 -773681663 -1289932452 31199 -154985357 -170994216 16845.0D0 177 218969221 2794350893 6068863 26327 127699339 (MAKE-POINTER 184352771) 18512.0D0 -12345.0D0 -179853040 -19981 37268 -792845398 116 -1084653028 50494 (MAKE-POINTER 2105239646) -1710519651 1557813312 2839.0D0 90 180 30580.0 -532698978 8623 9537.0D0 -10882 54 184357206 14929.0 -8190.0 -25615.0 (MAKE-POINTER 235310526) (MAKE-POINTER 220476977) 7476055 1576685 -117 -11781 31479 23282640 (MAKE-POINTER 8627281) -17834.0 10391.0D0 -1904504370 114393659 -17062 637873619 16078 -891210259 8107 0 760.0D0 -21268 104 14133.0 10 588598141 310.0D0 20 1351785456 16159552 -10121.0D0 -25866 24821 68232851 60 -24132.0 -1660411658 13387.0 -786516668 -499825680 -1128144619 111849719 2746091587 -2 95 14488 326328135 64781 18204 150716680 -703859275 103 16809.0D0 852235610 -43 21088 242356110 324325428 -22380 23 24814.0 (MAKE-POINTER 40362014) -14322.0D0 -1864262539 523684371 -21 49995 -29175.0)

Expected value: 796447501

Actual value: -474122548.

Test DEFCFUN.BFF.2 failed

Form: (SUM-127 (MAKE-POINTER 2746181372) (MAKE-POINTER 177623060) -32334.0 3158055028 (MAKE-POINTER 242315091) 4288001754991016425 -21047.0D0 287.0D0 18722 243379286 -8677366518541007140 581399424 -13872 4240394881 1353358999 226 969197676 -26207.0D0 6484 11150 1241680089902988480 106068320 61865 2253 (MAKE-POINTER 866809333) -31613 35616 11715 1393601698 8940888681199591845 (MAKE-POINTER 1524606024) 805638893 3315410736 3432596795 (MAKE-POINTER 1490355706) 696175657106383698 -25438.0 1294381547 26724 (MAKE-POINTER 3196569545) 2506913373410783697 -4405955718732597856 4075932032 3224670123 2183829215657835866 1318320964 -22 -3786.0D0 -2017024146 1579225515 -626617701 -1456 (MAKE-POINTER 3561444187) 395687791 1968033632506257320 -1847773261 48853 142937735275669133 -17974.0 (MAKE-POINTER 2791749948) -14140.0 2707 3691328585 3306.0 1132012981 303633191773289330 (MAKE-POINTER 981183954) 9114.0D0 8664374572369470 -19013.0D0 -10288.0D0 -3679345119891954339 (MAKE-POINTER 3538786709) 23761 -154264605 (MAKE-POINTER 2694396308) 7023 997.0D0 1009561368 241 (MAKE-POINTER 2612292671) 48 1431872408 -32675.0D0 (MAKE-POINTER 1587599336) 958916472 -9857.0D0 111 -14370.0D0 -7308 -967514912 488790941 2146978095 -24111.0D0 13711 86681861 717987770 111 1013402998690933877 17234.0D0 -8772.0 3959216275 -8711 (MAKE-POINTER 3142780851) 9480.0 -3820453146461186120 1616574376 -3336232268263990050 -1906114671562979758 -27925.0D0 9695970875869913114 27033.0D0 1096518219 -12 104 3392025403 -27911 60 89 509297051 -533066551 29158.0 110 54 -9802.0D0 593950442165910888 -79)

Expected value: 7758614658402721936

Actual value: 4968426957827221156.

DEFCFUN.UNDEFINED

Test DEFCFUN.DOUBLE26 failed

Form: (SUM-DOUBLE26 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0 3.14D0)

Expected value: 81.64D0

Actual value: 75.36D0.

Test DEFCFUN.FLOAT26 failed

Form: (SUM-FLOAT26 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0)

Expected value: 130.0

Actual value: 120.0.

CALLBACKS.CHAR CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT CALLBACKS.UNSIGNED-SHORT

CALLBACKS.INT CALLBACKS.UNSIGNED-INT CALLBACKS.LONG CALLBACKS.UNSIGNED-LONG

CALLBACKS.LONG-LONG CALLBACKS.UNSIGNED-LONG-LONG

Test CALLBACKS.FLOAT failed

Form: (EXPECT-FLOAT-SUM (CALLBACK SUM-FLOAT))

Expected value: 1

Actual value: 0.

CALLBACKS.DOUBLE CALLBACKS.POINTER CALLBACKS.STRING

CALLBACKS.STRING-NOT-DOCSTRING CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT

CALLBACKS.VOID CALLBACKS.FUNCALL.1

Test CALLBACKS.FUNCALL.2 failed

Form: (FOREIGN-FUNCALL-POINTER (CALLBACK SUM-2F) NIL FOO-FLOAT 1.0 FOO-FLOAT 2.0 FOO-FLOAT 3.0 FOO-FLOAT 4.0 FOO-FLOAT 5.0 FOO-FLOAT)

Expected value: 6.0

Actual value: 0.0.

Test CALLBACKS.BFF.1 failed

Form: (CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))

Expected value: 2008547941

Actual value: #<SIMPLE-ERROR #x2100EEBBAD>.

Test CALLBACKS.BFF.2 failed

Form: (CALL-SUM-127 (CALLBACK SUM-127))

Expected value: 8166570665645582011

Actual value: #<SIMPLE-ERROR #x2100EEB6AD>.

CALLBACKS.NON-EXISTANT CALLBACKS.DOUBLE26

Test CALLBACKS.DOUBLE26.FUNCALL failed

Form: (FOREIGN-FUNCALL-POINTER (CALLBACK DOUBLE26) NIL :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE 3.14D0 :DOUBLE)

Expected value: 81.64D0

Actual value: 75.36D0.

Test CALLBACKS.FLOAT26 failed

Form: (CALL-FLOAT26 (CALLBACK FLOAT26))

Expected value: 130.0

Actual value: 0.0.

Test CALLBACKS.FLOAT26.FUNCALL failed

Form: (FOREIGN-FUNCALL-POINTER (CALLBACK FLOAT26) NIL :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT 5.0 :FLOAT)

Expected value: 130.0

Actual value: 0.0.

CALLBACKS.UNINTERNED FOREIGN-GLOBALS.REF.CHAR FOREIGN-GLOBALS.REF.UNSIGNED-CHAR

FOREIGN-GLOBALS.REF.SHORT FOREIGN-GLOBALS.REF.UNSIGNED-SHORT

FOREIGN-GLOBALS.REF.INT FOREIGN-GLOBALS.REF.UNSIGNED-INT

FOREIGN-GLOBALS.REF.LONG

Test FOREIGN-GLOBALS.REF.UNSIGNED-LONG failed

Form: *VAR-UNSIGNED-LONG*

Expected value: 4294967295

Actual value: 4767060209866637311.

FOREIGN-GLOBALS.REF.FLOAT FOREIGN-GLOBALS.REF.DOUBLE

FOREIGN-GLOBALS.REF.POINTER FOREIGN-GLOBALS.REF.STRING

FOREIGN-GLOBALS.REF.LONG-LONG FOREIGN-GLOBALS.REF.UNSIGNED-LONG-LONG

FOREIGN-GLOBALS.SET.INT FOREIGN-GLOBALS.SET.STRING

FOREIGN-GLOBALS.SET.LONG-LONG FOREIGN-GLOBALS.GET-VAR-POINTER.1

FOREIGN-GLOBALS.GET-VAR-POINTER.2 FOREIGN-GLOBALS.REF.UPPERCASEINT1

FOREIGN-GLOBALS.REF.UPPER-CASE-INT1 FOREIGN-GLOBALS.REF.MIXEDCASEINT1

FOREIGN-GLOBALS.REF.MIXED-CASE-INT1 FOREIGN-GLOBALS.REF.UPPERCASEINT2

FOREIGN-GLOBALS.REF.UPPER-CASE-INT2 FOREIGN-GLOBALS.REF.MIXEDCASEINT2

FOREIGN-GLOBALS.REF.MIXED-CASE-INT2 FOREIGN-GLOBALS.REF.UPPERCASEINT3

FOREIGN-GLOBALS.REF.UPPER-CASE-INT3 FOREIGN-GLOBALS.REF.MIXEDCASEINT3

FOREIGN-GLOBALS.REF.MIXED-CASE-INT3 FOREIGN-GLOBALS.SYMBOL-NAME

FOREIGN-GLOBALS.READ-ONLY.1 DEFCVAR.DOCSTRING DEREF.CHAR DEREF.UNSIGNED-CHAR

DEREF.SHORT DEREF.UNSIGNED-SHORT DEREF.INT DEREF.UNSIGNED-INT DEREF.LONG

DEREF.UNSIGNED-LONG DEREF.LONG-LONG DEREF.UNSIGNED-LONG-LONG DEREF.FLOAT.1

DEREF.FLOAT.2 DEREF.FLOAT.3 DEREF.DOUBLE.1 DEREF.DOUBLE.2 DEREF.DOUBLE.3

DEREF.POINTER.NULL LISP-STRING-TO-FOREIGN.EMPTY WITH-FOREIGN-POINTER.EVALX2

WITH-FOREIGN-POINTER.CONSTANT-SIZE MEM-REF.LEFT-TO-RIGHT %MEM-REF.LEFT-TO-RIGHT

%MEM-SET.LEFT-TO-RIGHT MEM-AREF.EVAL-TYPE-X2 MEM-AREF.LEFT-TO-RIGHT

MEM-REF.NESTED MEM-AREF.NESTED DEREF.AGGREGATE DEREF.ARRAY-OF-AGGREGATES

POINTER.1 POINTER.2 POINTER.NULL FOREIGN-POINTER-TYPE.NIL MAKE-POINTER.HIGH

INC-POINTER.ZERO FOREIGN-ALLOC.1 FOREIGN-ALLOC.2 FOREIGN-ALLOC.3

FOREIGN-ALLOC.4 FOREIGN-ALLOC.5 FOREIGN-ALLOC.6 FOREIGN-ALLOC.7 FOREIGN-ALLOC.8

FOREIGN-ALLOC.9 DEREF.NONCONST.CHAR DEREF.NONCONST.UNSIGNED-CHAR

DEREF.NONCONST.SHORT DEREF.NONCONST.UNSIGNED-SHORT DEREF.NONCONST.INT

DEREF.NONCONST.UNSIGNED-INT DEREF.NONCONST.LONG DEREF.NONCONST.UNSIGNED-LONG

DEREF.NONCONST.LONG-LONG DEREF.NONCONST.UNSIGNED-LONG-LONG

DEREF.NONCONST.FLOAT.1 DEREF.NONCONST.FLOAT.2 DEREF.NONCONST.FLOAT.3

DEREF.NONCONST.DOUBLE.1 DEREF.NONCONST.DOUBLE.2 DEREF.NONCONST.DOUBLE.3

MEM-REF.RT.1 MEM-REF.RT.2 INCF-POINTER.1 INCF-POINTER.2 POINTERP.1 POINTERP.2

POINTERP.3 POINTERP.4 POINTERP.5 POINTERP.6 MEM-REF.SETF.1

POINTER-EQ.NON-POINTERS.1 POINTER-EQ.NON-POINTERS.2

NULL-POINTER-P.NON-POINTER.1 NULL-POINTER-P.NON-POINTER.2

NULL-POINTER-P.NON-POINTER.3 STRING.CONVERSION.BASIC STRING.CONVERSION.BASIC.2

STRING.ENCODING.ASCII

Test STRING.ENCODING.UTF-16.BASIC failed

Form: (WITH-FOREIGN-STRING (S *ASCII-TEST-STRING* :ENCODING :UTF-16) (FOREIGN-STRING-TO-LISP S :ENCODING :UTF-16))

Expected values: " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~"

190

Actual values: ""

190.

STRING.SHORT-WRITE.1 STRING.ENCODING.UTF-8.BASIC

Test STRING.ENCODINGS.ALL.BASIC failed

Form: (LET (FAILED) (DOLIST (ENCODING (LIST-LATIN-COMPATIBLE-ENCODINGS) FAILED) (WITH-FOREIGN-STRING (PTR *BASIC-LATIN-ALPHABET* :ENCODING ENCODING) (LET ((STRING (FOREIGN-STRING-TO-LISP PTR :ENCODING ENCODING))) (UNLESS (STRING= *BASIC-LATIN-ALPHABET* STRING) (PUSH ENCODING FAILED))))))

Expected value: NIL

Actual value: #<SIMPLE-ERROR #x2100D3DC5D>.

STRING.ENCODINGS.DEFAULT STRUCT.1

Test STRUCT.2 failed

Form: (WITH-FOREIGN-OBJECT (TV 'TIMEVAL) (SETF (FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-SECS) 0) (SETF (FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-USECS) 1) (VALUES (FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-SECS) (FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-USECS)))

Expected values: 0

Actual values: 4294967296

Test STRUCT.3 failed

Form: (WITH-FOREIGN-OBJECT (TV 'TIMEVAL) (WITH-FOREIGN-SLOTS ((TV-SECS TV-USECS) TV TIMEVAL) (SETF TV-SECS 100 TV-USECS 200) (VALUES TV-SECS TV-USECS)))

Expected values: 100

200

Actual values: 858993459300

200.

STRUCT.4 STRUCT.NAMES STRUCT.5 STRUCT.STRING.1 STRUCT.STRING.2

STRUCT.ALIGNMENT.1 STRUCT.ALIGNMENT.2 STRUCT.ALIGNMENT.3 STRUCT.ALIGNMENT.4

STRUCT.ALIGNMENT.5 STRUCT.ALIGNMENT.6 STRUCT.ALIGNMENT.7 STRUCT.NESTED-SETF

STRUCT.ALIGNMENT.8

Test STRUCT-WRAPPER.1 failed

Form: (WITH-EXAMPLE-TIMEVAL PTR (LET ((OBJ (MAKE-INSTANCE 'TIMEVAL :POINTER PTR))) (VALUES (TIMEVAL-TV-SECS OBJ) (TIMEVAL-TV-USECS OBJ))))

Expected values: 42

1984

Actual values: 8521215115306

1984.

Test STRUCT-WRAPPER.2 failed

Form: (WITH-EXAMPLE-TIMEVAL PTR (LET ((OBJ (MAKE-INSTANCE 'TIMEVAL2 :POINTER PTR))) (TIMEVAL2-TV-SECS OBJ)))

Expected value: 42

Actual value: 8521215115306.

UNION.1 ENUM.1 ENUM.2 ENUM.3 BITFIELD.1 BITFIELD.2 BITFIELD.3 BITFIELD.4

MISC-TYPES.STRING+PTR MISC-TYPES.BOOLEAN.1 MISC-TYPES.BOOLEAN.2

MISC-TYPES.WRAPPER MISC-TYPES.SIZED-INTS MISC-TYPES.EXPAND.1

MISC-TYPES.EXPAND.2 MISC-TYPES.EXPAND.3 MISC-TYPES.EXPAND.4 MISC-TYPES.EXPAND.5

MISC-TYPES.EXPAND.6

Test FOREIGN-SYMBOL-POINTER.1 failed

Form: (COMPARE-AGAINST-ABS (FOREIGN-SYMBOL-POINTER "abs"))

Expected value: T

Actual value: NIL.

FOREIGN-SYMBOL-POINTER.2 LIBRARY.ERROR.1 LIBRARY.T-CLAUSE SHAREABLE-VECTOR.1

SHAREABLE-VECTOR.2

25 out of 235 total tests failed: FUNCALL.VARARGS.DOUBLE, FUNCALL.DOUBLE26, FUNCALL.FLOAT26,

DEFCFUN.NOOP, DEFCFUN.VARARGS.FLOAT, DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1,

DEFCFUN.BFF.2, DEFCFUN.DOUBLE26, DEFCFUN.FLOAT26, CALLBACKS.FLOAT,

CALLBACKS.FUNCALL.2, CALLBACKS.BFF.1, CALLBACKS.BFF.2,

CALLBACKS.DOUBLE26.FUNCALL, CALLBACKS.FLOAT26, CALLBACKS.FLOAT26.FUNCALL,

FOREIGN-GLOBALS.REF.UNSIGNED-LONG, STRING.ENCODING.UTF-16.BASIC,

STRING.ENCODINGS.ALL.BASIC, STRUCT.2, STRUCT.3, STRUCT-WRAPPER.1,

STRUCT-WRAPPER.2, FOREIGN-SYMBOL-POINTER.1.

20 unexpected failures: FUNCALL.VARARGS.DOUBLE,

FUNCALL.DOUBLE26, FUNCALL.FLOAT26, DEFCFUN.VARARGS.FLOAT,

DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2, DEFCFUN.DOUBLE26,

DEFCFUN.FLOAT26, CALLBACKS.FLOAT, CALLBACKS.FUNCALL.2,

CALLBACKS.DOUBLE26.FUNCALL, CALLBACKS.FLOAT26, CALLBACKS.FLOAT26.FUNCALL,

FOREIGN-GLOBALS.REF.UNSIGNED-LONG, STRUCT.2, STRUCT.3, STRUCT-WRAPPER.1,

STRUCT-WRAPPER.2, FOREIGN-SYMBOL-POINTER.1.

;;; running tests (compiled)

Doing 235 pending tests of 235 tests total.

FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2 FUNCALL.LONG FUNCALL.LONG-LONG

FUNCALL.FLOAT FUNCALL.DOUBLE FUNCALL.STRING.1 FUNCALL.STRING.2 FUNCALL.STRING.3

FUNCALL.VARARGS.CHAR FUNCALL.VARARGS.INT FUNCALL.VARARGS.LONG

Test FUNCALL.VARARGS.DOUBLE failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SETF (MEM-REF S :CHAR) 0) (FOREIGN-FUNCALL "sprintf" :POINTER S :STRING "%.2f" :DOUBLE (COERCE PI 'DOUBLE-FLOAT) :INT))

Expected value: "3.14"

Actual value: "f".

FUNCALL.VARARGS.STRING

Test FUNCALL.DOUBLE26 failed

Expected value: 81.64D0

Actual value: 69.08D0.

Test FUNCALL.FLOAT26 failed

Expected value: 130.0

Actual value: -1.5589412E+37.

FUNCALL.F-S-P.1 FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL DEFCFUN.CHAR

DEFCFUN.DOCSTRING DEFCFUN.INT DEFCFUN.LONG DEFCFUN.LONG-LONG DEFCFUN.FLOAT

DEFCFUN.DOUBLE DEFCFUN.STRING.1 DEFCFUN.STRING.2 DEFCFUN.STRING.3

DEFCFUN.NOARGS

Test DEFCFUN.NOOP failed

Form: (NOOP)

Expected values:

Actual value: NIL.

DEFCFUN.VARARGS.DOCSTRINGS DEFCFUN.VARARGS.CHAR DEFCFUN.VARARGS.SHORT

DEFCFUN.VARARGS.INT DEFCFUN.VARARGS.LONG

Test DEFCFUN.VARARGS.FLOAT failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :FLOAT (FLOAT PI)))

Expected value: "3.14"

Actual value: "f".

Test DEFCFUN.VARARGS.DOUBLE failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :DOUBLE (FLOAT PI 1.0D0)))

Expected value: "3.14"

Actual value: "f".

DEFCFUN.VARARGS.STRING

Test DEFCFUN.BFF.1 failed

Expected value: 796447501

Actual value: -474122548.

Test DEFCFUN.BFF.2 failed

Expected value: 7758614658402721936

Actual value: 4968426957827221156.

DEFCFUN.UNDEFINED

Test DEFCFUN.DOUBLE26 failed

Expected value: 81.64D0

Actual value: 75.36D0.

Test DEFCFUN.FLOAT26 failed

Form: (SUM-FLOAT26 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0)

Expected value: 130.0

Actual value: 120.0.

CALLBACKS.CHAR CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT CALLBACKS.UNSIGNED-SHORT

CALLBACKS.INT CALLBACKS.UNSIGNED-INT CALLBACKS.LONG CALLBACKS.UNSIGNED-LONG

CALLBACKS.LONG-LONG CALLBACKS.UNSIGNED-LONG-LONG

Test CALLBACKS.FLOAT failed

Form: (EXPECT-FLOAT-SUM (CALLBACK SUM-FLOAT))

Expected value: 1

Actual value: 0.

CALLBACKS.DOUBLE CALLBACKS.POINTER CALLBACKS.STRING

CALLBACKS.STRING-NOT-DOCSTRING CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT

CALLBACKS.VOID CALLBACKS.FUNCALL.1

Test CALLBACKS.FUNCALL.2 failed

Form: (FOREIGN-FUNCALL-POINTER (CALLBACK SUM-2F) NIL FOO-FLOAT 1.0 FOO-FLOAT 2.0 FOO-FLOAT 3.0 FOO-FLOAT 4.0 FOO-FLOAT 5.0 FOO-FLOAT)

Expected value: 6.0

Actual value: 0.0.

Test CALLBACKS.BFF.1 failed

Form: (CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))

Expected value: 2008547941

Actual value: #<SIMPLE-ERROR #x2100DF17DD>.

Test CALLBACKS.BFF.2 failed

Form: (CALL-SUM-127 (CALLBACK SUM-127))

Expected value: 8166570665645582011

Actual value: #<SIMPLE-ERROR #x2100DEF61D>.

CALLBACKS.NON-EXISTANT CALLBACKS.DOUBLE26

Test CALLBACKS.DOUBLE26.FUNCALL failed

Expected value: 81.64D0

Actual value: 69.08D0.

Test CALLBACKS.FLOAT26 failed

Form: (CALL-FLOAT26 (CALLBACK FLOAT26))

Expected value: 130.0

Actual value: 0.0.

Test CALLBACKS.FLOAT26.FUNCALL failed

Expected value: 130.0

Actual value: -2.0.