;;; -------- Running tests in Clozure Common Lisp --------
;Compiler warnings for "home:quicklisp;dists;quicklisp;software;cffi_0.10.6;tests;funcall.lisp.newest" :
;   In (EXPAND-TO-FOREIGN (T CHECK-NIL-SKIP-TYPE)) inside an anonymous lambda form: Unused lexical variable VAL
; Warning: COMPILE-FILE warned while performing #<COMPILE-OP (:VERBOSE NIL) #xC619266> on #<CL-SOURCE-FILE "cffi-tests" "tests" "funcall">.
; 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 238 pending tests of 238 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 FUNCALL.DOUBLE26 FUNCALL.FLOAT26
 FUNCALL.F-S-P.1
Test FUNCALL.STDCALL.1 failed
Form: (FLET ((FUN NIL (FOREIGN-FUNCALL ("stdcall_fun@12" :CONVENTION :STDCALL) :INT 1 :INT 2 :INT 3 :INT))) (LOOP REPEAT 100 DO (FUN) FINALLY (RETURN (FUN))))
Expected value: 6
Actual value: #<SIMPLE-ERROR #xCFCF1BE>.
 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 DEFCFUN.BFF.1
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: 7758614624042983568.
 DEFCFUN.UNDEFINED DEFCFUN.DOUBLE26 DEFCFUN.FLOAT26
Test DEFCFUN.STDCALL.1 failed
Form: (LOOP REPEAT 100 DO (STDCALL-FUN 1 2 3) FINALLY (RETURN (STDCALL-FUN 1 2 3)))
Expected value: 6
Actual value: #<SIMPLE-ERROR #xD01B4CE>.
 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 CALLBACKS.FLOAT CALLBACKS.DOUBLE
 CALLBACKS.POINTER CALLBACKS.STRING CALLBACKS.STRING-NOT-DOCSTRING
 CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT CALLBACKS.VOID
 CALLBACKS.FUNCALL.1 CALLBACKS.FUNCALL.2
Test CALLBACKS.BFF.1 failed
Form: (CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))
Expected value: 2008547941
Actual value: #<SIMPLE-ERROR #xD022A66>.
Test CALLBACKS.BFF.2 failed
Form: (CALL-SUM-127 (CALLBACK SUM-127))
Expected value: 8166570665645582011
Actual value: #<SIMPLE-ERROR #xD0228E6>.
 CALLBACKS.NON-EXISTANT CALLBACKS.DOUBLE26 CALLBACKS.DOUBLE26.FUNCALL
 CALLBACKS.FLOAT26 CALLBACKS.FLOAT26.FUNCALL CALLBACKS.STDCALL.1
 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
 FOREIGN-GLOBALS.REF.UNSIGNED-LONG 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: #<UNBOUND-VARIABLE #xCCC8C7E>.
 STRING.ENCODINGS.DEFAULT STRUCT.1 STRUCT.2 STRUCT.3 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
 STRUCT-WRAPPER.1 STRUCT-WRAPPER.2 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
12 out of 238 total tests failed: FUNCALL.VARARGS.DOUBLE, FUNCALL.STDCALL.1, DEFCFUN.NOOP, 
   DEFCFUN.VARARGS.FLOAT, DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.2, 
   DEFCFUN.STDCALL.1, CALLBACKS.BFF.1, CALLBACKS.BFF.2, 
   STRING.ENCODING.UTF-16.BASIC, STRING.ENCODINGS.ALL.BASIC, 
   FOREIGN-SYMBOL-POINTER.1.
7 unexpected failures: FUNCALL.VARARGS.DOUBLE, FUNCALL.STDCALL.1, 
   DEFCFUN.VARARGS.FLOAT, DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.2, 
   DEFCFUN.STDCALL.1, FOREIGN-SYMBOL-POINTER.1.
;;; running tests (compiled)
Doing 238 pending tests of 238 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 FUNCALL.DOUBLE26 FUNCALL.FLOAT26
 FUNCALL.F-S-P.1
Test FUNCALL.STDCALL.1 failed
Form: (FLET ((FUN NIL (FOREIGN-FUNCALL ("stdcall_fun@12" :CONVENTION :STDCALL) :INT 1 :INT 2 :INT 3 :INT))) (LOOP REPEAT 100 DO (FUN) FINALLY (RETURN (FUN))))
Expected value: 6
Actual value: #<SIMPLE-ERROR #xCCADB7E>.
 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 DEFCFUN.BFF.1
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: 7758614624042983568.
 DEFCFUN.UNDEFINED DEFCFUN.DOUBLE26 DEFCFUN.FLOAT26
Test DEFCFUN.STDCALL.1 failed
Form: (LOOP REPEAT 100 DO (STDCALL-FUN 1 2 3) FINALLY (RETURN (STDCALL-FUN 1 2 3)))
Expected value: 6
Actual value: #<SIMPLE-ERROR #xCC1D2A6>.
 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 CALLBACKS.FLOAT CALLBACKS.DOUBLE
 CALLBACKS.POINTER CALLBACKS.STRING CALLBACKS.STRING-NOT-DOCSTRING
 CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT CALLBACKS.VOID
 CALLBACKS.FUNCALL.1 CALLBACKS.FUNCALL.2
Test CALLBACKS.BFF.1 failed
Form: (CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))
Expected value: 2008547941
Actual value: #<SIMPLE-ERROR #xCC320FE>.
Test CALLBACKS.BFF.2 failed
Form: (CALL-SUM-127 (CALLBACK SUM-127))
Expected value: 8166570665645582011
Actual value: #<SIMPLE-ERROR #xCC30E86>.
 CALLBACKS.NON-EXISTANT CALLBACKS.DOUBLE26 CALLBACKS.DOUBLE26.FUNCALL
 CALLBACKS.FLOAT26 CALLBACKS.FLOAT26.FUNCALL CALLBACKS.STDCALL.1
 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
 FOREIGN-GLOBALS.REF.UNSIGNED-LONG 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: #<UNBOUND-VARIABLE #xCCA6DF6>.
 STRING.ENCODINGS.DEFAULT STRUCT.1 STRUCT.2 STRUCT.3 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
 STRUCT-WRAPPER.1 STRUCT-WRAPPER.2 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
12 out of 238 total tests failed: FUNCALL.VARARGS.DOUBLE, FUNCALL.STDCALL.1, DEFCFUN.NOOP, 
   DEFCFUN.VARARGS.FLOAT, DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.2, 
   DEFCFUN.STDCALL.1, CALLBACKS.BFF.1, CALLBACKS.BFF.2, 
   STRING.ENCODING.UTF-16.BASIC, STRING.ENCODINGS.ALL.BASIC, 
   FOREIGN-SYMBOL-POINTER.1.
7 unexpected failures: FUNCALL.VARARGS.DOUBLE, FUNCALL.STDCALL.1, 
   DEFCFUN.VARARGS.FLOAT, DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.2, 
   DEFCFUN.STDCALL.1, FOREIGN-SYMBOL-POINTER.1.