CL-USER(1): (load "c:/Users/anton/unpacked/lisp-libs/cl+ssl/threading-bug/cffi-test.lisp") ; Loading ; c:\Users\anton\unpacked\lisp-libs\cl+ssl\threading-bug\cffi-test.lisp ; Loading system definition from ; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\cffi-tests.asd ; into # ; Loading ; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\cffi-tests.asd ; Loading system definition from ; C:\Users\anton\quicklisp\dists\quicklisp\software\trivial-features-20101006-darcs\trivial-features.asd ; into # ; Loading ; C:\Users\anton\quicklisp\dists\quicklisp\software\trivial-features-20101006-darcs\trivial-features.asd ; Registering # as TRIVIAL-FEATURES ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\trivial-features-20101006-darcs\src\tf-allegro.fasl ; Registering # as CFFI-TESTS ; Loading system definition from ; C:\Users\anton\quicklisp\dists\quicklisp\software\rt-20101006-git\rt.asd ; into # ; Loading ; C:\Users\anton\quicklisp\dists\quicklisp\software\rt-20101006-git\rt.asd ; Registering # as RT ; Loading system definition from ; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\cffi.asd ; into # ; Loading ; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\cffi.asd ; Registering # as CFFI ; Loading system definition from ; C:\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\babel.asd ; into # ; Loading ; C:\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\babel.asd ; Registering # as BABEL ; Loading system definition from ; C:\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\alexandria.asd ; into # ; Loading ; C:\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\alexandria.asd ; Registering # as ALEXANDRIA ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\package.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\definitions.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\binding.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\strings.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\conditions.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\hash-tables.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\symbols.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\macros.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\functions.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\lists.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\io.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\control-flow.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\types.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\arrays.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\sequences.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\numbers.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\features.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\packages.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\encodings.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\enc-ascii.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\enc-ebcdic.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\enc-iso-8859.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\enc-unicode.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\enc-cp1251.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\jpn-table.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\enc-jpn.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\external-format.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\strings.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\src\sharp-backslash.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\src\cffi-allegro.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\src\package.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\src\utils.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\src\libraries.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\src\early-types.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\src\types.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\src\enum.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\src\strings.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\src\functions.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\src\foreign-vars.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\src\features.fasl ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\rt-20101006-git\rt.fasl ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\package.lisp ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-package.fasl ;;; Fasl write complete ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\package.fasl ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\bindings.lisp ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-bindings.fasl ;;; Fasl write complete ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\bindings.fasl ; Foreign loading libtest.dll. ; Foreign loading libtest2.dll. ; Foreign loading msvcrt.dll. ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\funcall.lisp ; While compiling (METHOD EXPAND-TO-FOREIGN (T CHECK-NIL-SKIP-TYPE)): Warning: Variable VAL is never used. ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-funcall.fasl ;;; Fasl write complete Warning: COMPILE-FILE warned while performing # on #. ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\funcall.fasl ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\defcfun.lisp Warning: foreign ARG type :CHAR not compatible with lisp type (INTEGER -128 127) Warning: foreign RETURN type :CHAR not compatible with lisp type (INTEGER -128 127) Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type (INTEGER 0 255) Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type (INTEGER 0 255) Warning: foreign ARG type :CHAR not compatible with lisp type (INTEGER -128 127) Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type (INTEGER 0 255) Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type (INTEGER 0 255) Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type (INTEGER 0 255) Warning: foreign ARG type :CHAR not compatible with lisp type (INTEGER -128 127) Warning: foreign ARG type :CHAR not compatible with lisp type (INTEGER -128 127) Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type (INTEGER 0 255) Warning: foreign ARG type :CHAR not compatible with lisp type (INTEGER -128 127) Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type (INTEGER 0 255) Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type (INTEGER 0 255) Warning: foreign ARG type :CHAR not compatible with lisp type (INTEGER -128 127) Warning: foreign ARG type :CHAR not compatible with lisp type (INTEGER -128 127) Warning: foreign ARG type :CHAR not compatible with lisp type (INTEGER -128 127) Warning: foreign ARG type :CHAR not compatible with lisp type (INTEGER -128 127) Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type (INTEGER 0 255) Warning: foreign ARG type :CHAR not compatible with lisp type (INTEGER -128 127) ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-defcfun.fasl ;;; Fasl write complete Warning: COMPILE-FILE warned while performing # on #. Warning: COMPILE-FILE failed while performing # on #. ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\defcfun.fasl ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\callbacks.lisp ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-callbacks.fasl ;;; Fasl write complete ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\callbacks.fasl ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\foreign-globals.lisp ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-foreign-globals.fasl ;;; Fasl write complete ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\foreign-globals.fasl ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\memory.lisp ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-memory.fasl ;;; Fasl write complete ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\memory.fasl Warning: Redefining test FOREIGN-ALLOC.6 ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\strings.lisp ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-strings.fasl ;;; Fasl write complete ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\strings.fasl ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\struct.lisp ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-struct.fasl ;;; Fasl write complete ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\struct.fasl ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\union.lisp ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-union.fasl ;;; Fasl write complete ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\union.fasl ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\enum.lisp ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-enum.fasl ;;; Fasl write complete ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\enum.fasl ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\misc-types.lisp Warning: foreign ARG type :UNSIGNED-CHAR not compatible with lisp type (INTEGER 0 255) Warning: foreign ARG type :CHAR not compatible with lisp type (INTEGER -128 127) Warning: foreign RETURN type :CHAR not compatible with lisp type (INTEGER -128 127) ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-misc-types.fasl ;;; Fasl write complete Warning: COMPILE-FILE warned while performing # on #. Warning: COMPILE-FILE failed while performing # on #. ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\misc-types.fasl ;;; Compiling file ;;; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\misc.lisp ;;; Writing fasl file ;;; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\ASDF-TMP-misc.fasl ;;; Fasl write complete ; Fast loading ; C:\Users\anton\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\C\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\tests\misc.fasl ;;; running tests (uncompiled) Doing 232 pending tests of 232 tests total. FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2 FUNCALL.LONG FUNCALL.FLOAT FUNCALL.DOUBLE FUNCALL.STRING.1 FUNCALL.STRING.2 FUNCALL.STRING.3 FUNCALL.VARARGS.CHAR FUNCALL.VARARGS.INT FUNCALL.VARARGS.LONG FUNCALL.VARARGS.DOUBLE 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: #. FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL DEFCFUN.CHAR DEFCFUN.DOCSTRING DEFCFUN.INT DEFCFUN.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 DEFCFUN.VARARGS.FLOAT DEFCFUN.VARARGS.DOUBLE DEFCFUN.VARARGS.STRING DEFCFUN.BFF.1 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: #. CALLBACKS.CHAR CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT CALLBACKS.UNSIGNED-SHORT CALLBACKS.INT CALLBACKS.UNSIGNED-INT CALLBACKS.LONG CALLBACKS.UNSIGNED-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 CALLBACKS.BFF.1 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 Test POINTERP.4 failed Form: (POINTERP 42) Expected value: NIL Actual value: T. Test POINTERP.5 failed Form: (POINTERP 0) Expected value: NIL Actual value: T. POINTERP.6 MEM-REF.SETF.1 Test POINTER-EQ.NON-POINTERS.1 failed Form: (EXPECTING-ERROR (POINTER-EQ 1 2)) Expected value: :ERROR Actual value: :NO-ERROR. Test POINTER-EQ.NON-POINTERS.2 failed Form: (EXPECTING-ERROR (POINTER-EQ 'A 'B)) Expected value: :ERROR Actual value: :NO-ERROR. NULL-POINTER-P.NON-POINTER.1 Test NULL-POINTER-P.NON-POINTER.2 failed Form: (EXPECTING-ERROR (NULL-POINTER-P 0)) Expected value: :ERROR Actual value: :NO-ERROR. 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: #. 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 Test STRUCT.ALIGNMENT.6 failed Form: (WITH-FOREIGN-SLOTS ((A-CHAR A-S-LONG-LONG ANOTHER-SHORT) *THE-S-S-LONG-LONG* S-S-LONG-LONG) (WITH-FOREIGN-SLOTS ((A-LONG-LONG A-SHORT) A-S-LONG-LONG S-LONG-LONG) (LIST 'A-LONG-LONG A-LONG-LONG 'A-SHORT A-SHORT 'A-CHAR A-CHAR 'ANOTHER-SHORT ANOTHER-SHORT))) Expected value: (A-LONG-LONG 1 A-SHORT 2 A-CHAR 3 ANOTHER-SHORT 4) Actual value: (A-LONG-LONG 4294967296 A-SHORT 0 A-CHAR 3 ANOTHER-SHORT 2). STRUCT.ALIGNMENT.7 STRUCT.NESTED-SETF Test STRUCT.ALIGNMENT.8 failed Form: (WITH-FOREIGN-SLOTS ((A-CHAR A-S-UNSIGNED-LONG-LONG ANOTHER-SHORT) *THE-S-S-UNSIGNED-LONG-LONG* S-S-UNSIGNED-LONG-LONG) (WITH-FOREIGN-SLOTS ((AN-UNSIGNED-LONG-LONG A-SHORT) A-S-UNSIGNED-LONG-LONG S-UNSIGNED-LONG-LONG) (LIST 'AN-UNSIGNED-LONG-LONG AN-UNSIGNED-LONG-LONG 'A-SHORT A-SHORT 'A-CHAR A-CHAR 'ANOTHER-SHORT ANOTHER-SHORT))) Expected value: (AN-UNSIGNED-LONG-LONG 1 A-SHORT 2 A-CHAR 3 ANOTHER-SHORT 4) Actual value: (AN-UNSIGNED-LONG-LONG 4294967296 A-SHORT 0 A-CHAR 3 ANOTHER-SHORT 2). 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 ; Foreign loading libdoesnotexistimsure. LIBRARY.ERROR.1 LIBRARY.T-CLAUSE SHAREABLE-VECTOR.1 SHAREABLE-VECTOR.2 13 out of 232 total tests failed: FUNCALL.STDCALL.1, DEFCFUN.NOOP, DEFCFUN.STDCALL.1, POINTERP.4, POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2, NULL-POINTER-P.NON-POINTER.2, STRING.ENCODING.UTF-16.BASIC, STRING.ENCODINGS.ALL.BASIC, STRUCT.ALIGNMENT.6, STRUCT.ALIGNMENT.8, FOREIGN-SYMBOL-POINTER.1. 10 unexpected failures: FUNCALL.STDCALL.1, DEFCFUN.STDCALL.1, POINTERP.4, POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2, NULL-POINTER-P.NON-POINTER.2, STRUCT.ALIGNMENT.6, STRUCT.ALIGNMENT.8, FOREIGN-SYMBOL-POINTER.1. ;;; running tests (compiled) Doing 232 pending tests of 232 tests total. FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2 FUNCALL.LONG FUNCALL.FLOAT FUNCALL.DOUBLE FUNCALL.STRING.1 FUNCALL.STRING.2 FUNCALL.STRING.3 FUNCALL.VARARGS.CHAR FUNCALL.VARARGS.INT FUNCALL.VARARGS.LONG FUNCALL.VARARGS.DOUBLE 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: #. FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL DEFCFUN.CHAR DEFCFUN.DOCSTRING DEFCFUN.INT DEFCFUN.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 DEFCFUN.VARARGS.FLOAT DEFCFUN.VARARGS.DOUBLE DEFCFUN.VARARGS.STRING DEFCFUN.BFF.1 Warning: |%cffi-foreign-function/UNDEFINED-FOREIGN-FUNCTION| is defined more than once as `operator' in file c:\Users\anton\unpacked\lisp-libs\cl+ssl\threading-bug\cffi-test.lisp. Warning: UNDEFINED-FOREIGN-FUNCTION is defined more than once as `operator' in file c:\Users\anton\unpacked\lisp-libs\cl+ssl\threading-bug\cffi-test.lisp. 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: #. CALLBACKS.CHAR CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT CALLBACKS.UNSIGNED-SHORT CALLBACKS.INT CALLBACKS.UNSIGNED-INT CALLBACKS.LONG CALLBACKS.UNSIGNED-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 CALLBACKS.BFF.1 CALLBACKS.NON-EXISTANT CALLBACKS.DOUBLE26 CALLBACKS.DOUBLE26.FUNCALL CALLBACKS.FLOAT26 CALLBACKS.FLOAT26.FUNCALL CALLBACKS.STDCALL.1 Warning: CFFI-CALLBACKS::|#::FOO| is defined more than once as `operator' in file c:\Users\anton\unpacked\lisp-libs\cl+ssl\threading-bug\cffi-test.lisp. 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 Test POINTERP.4 failed Form: (POINTERP 42) Expected value: NIL Actual value: T. Test POINTERP.5 failed Form: (POINTERP 0) Expected value: NIL Actual value: T. POINTERP.6 MEM-REF.SETF.1 Test POINTER-EQ.NON-POINTERS.1 failed Form: (EXPECTING-ERROR (POINTER-EQ 1 2)) Expected value: :ERROR Actual value: :NO-ERROR. Test POINTER-EQ.NON-POINTERS.2 failed Form: (EXPECTING-ERROR (POINTER-EQ 'A 'B)) Expected value: :ERROR Actual value: :NO-ERROR. NULL-POINTER-P.NON-POINTER.1 Test NULL-POINTER-P.NON-POINTER.2 failed Form: (EXPECTING-ERROR (NULL-POINTER-P 0)) Expected value: :ERROR Actual value: :NO-ERROR. 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: #. 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 Test STRUCT.ALIGNMENT.6 failed Form: (WITH-FOREIGN-SLOTS ((A-CHAR A-S-LONG-LONG ANOTHER-SHORT) *THE-S-S-LONG-LONG* S-S-LONG-LONG) (WITH-FOREIGN-SLOTS ((A-LONG-LONG A-SHORT) A-S-LONG-LONG S-LONG-LONG) (LIST 'A-LONG-LONG A-LONG-LONG 'A-SHORT A-SHORT 'A-CHAR A-CHAR 'ANOTHER-SHORT ANOTHER-SHORT))) Expected value: (A-LONG-LONG 1 A-SHORT 2 A-CHAR 3 ANOTHER-SHORT 4) Actual value: (A-LONG-LONG 4294967296 A-SHORT 0 A-CHAR 3 ANOTHER-SHORT 2). STRUCT.ALIGNMENT.7 STRUCT.NESTED-SETF Test STRUCT.ALIGNMENT.8 failed Form: (WITH-FOREIGN-SLOTS ((A-CHAR A-S-UNSIGNED-LONG-LONG ANOTHER-SHORT) *THE-S-S-UNSIGNED-LONG-LONG* S-S-UNSIGNED-LONG-LONG) (WITH-FOREIGN-SLOTS ((AN-UNSIGNED-LONG-LONG A-SHORT) A-S-UNSIGNED-LONG-LONG S-UNSIGNED-LONG-LONG) (LIST 'AN-UNSIGNED-LONG-LONG AN-UNSIGNED-LONG-LONG 'A-SHORT A-SHORT 'A-CHAR A-CHAR 'ANOTHER-SHORT ANOTHER-SHORT))) Expected value: (AN-UNSIGNED-LONG-LONG 1 A-SHORT 2 A-CHAR 3 ANOTHER-SHORT 4) Actual value: (AN-UNSIGNED-LONG-LONG 4294967296 A-SHORT 0 A-CHAR 3 ANOTHER-SHORT 2). 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 ; Foreign loading libdoesnotexistimsure. LIBRARY.ERROR.1 LIBRARY.T-CLAUSE SHAREABLE-VECTOR.1 SHAREABLE-VECTOR.2 13 out of 232 total tests failed: FUNCALL.STDCALL.1, DEFCFUN.NOOP, DEFCFUN.STDCALL.1, POINTERP.4, POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2, NULL-POINTER-P.NON-POINTER.2, STRING.ENCODING.UTF-16.BASIC, STRING.ENCODINGS.ALL.BASIC, STRUCT.ALIGNMENT.6, STRUCT.ALIGNMENT.8, FOREIGN-SYMBOL-POINTER.1. 10 unexpected failures: FUNCALL.STDCALL.1, DEFCFUN.STDCALL.1, POINTERP.4, POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2, NULL-POINTER-P.NON-POINTER.2, STRUCT.ALIGNMENT.6, STRUCT.ALIGNMENT.8, FOREIGN-SYMBOL-POINTER.1. T