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\Syst em32\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[\]^_`abcdefghij klmnopqrstuvwxyz{|}~"
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
1
Actual values: 4294967296
1.
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
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: 69.08D0.
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: -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
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 #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
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: 69.08D0.
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: -2.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[\]^_`abcdefghij klmnopqrstuvwxyz{|}~"
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 #x2100E8629D>.
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
1
Actual values: 4294967296
1.
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
%rax = 0x000000c600000000 %r8 = 0x0000000000427410
%rcx = 0x000000ffffffffff %r9 = 0x0000005c0010002e
%rdx = 0x0000000000427400 %r10 = 0x0000000000000000
%rbx = 0x00000005b3da9550 %r11 = 0x0000000000000202
%rsp = 0x0000000002b2ee30 %r12 = 0x0000000002b2f4e8
%rbp = 0x0000000000000000 %r13 = 0x000000000000000b
%rsi = 0x0000000000420000 %r14 = 0x000000014029a38e
%rdi = 0x0000000000427410 %r15 = 0x0000002100f4359d
%rip = 0x0000000077241c30 %rflags = 0x00010206
Exception on foreign stack
Exception occurred while executing foreign code
? for help
[3420] Clozure CL kernel debugger:
Does someone know why this happens?
Thank you Louis.
-
Louis Höfler