Hello.
For your information.
I've just run the cffi-0.10.6 tests on Allegro 8.2 express edition on Windows.
There are failures.
I have impression that these failures make CFFI non working even in
quite simple and straightforward foreign library interactions from ACL/Windows
(I experimented a little in this direction).
The full test output is attached.
Best regards,
- Anton
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 #<The ASDF0 package>
; 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 #<The ASDF1 package>
; Loading
;
C:\Users\anton\quicklisp\dists\quicklisp\software\trivial-features-20101006-darcs\trivial-features.asd
; Registering #<SYSTEM TRIVIAL-FEATURES> 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 #<SYSTEM CFFI-TESTS> as CFFI-TESTS
; Loading system definition from
; C:\Users\anton\quicklisp\dists\quicklisp\software\rt-20101006-git\rt.asd
; into #<The ASDF0 package>
; Loading
; C:\Users\anton\quicklisp\dists\quicklisp\software\rt-20101006-git\rt.asd
; Registering #<SYSTEM :RT> as RT
; Loading system definition from
; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\cffi.asd
; into #<The ASDF0 package>
; Loading
; C:\Users\anton\quicklisp\dists\quicklisp\software\cffi_0.10.6\cffi.asd
; Registering #<SYSTEM :CFFI> as CFFI
; Loading system definition from
;
C:\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\babel.asd
; into #<The ASDF0 package>
; Loading
;
C:\Users\anton\quicklisp\dists\quicklisp\software\babel-20101107-darcs\babel.asd
; Registering #<SYSTEM BABEL> as BABEL
; Loading system definition from
;
C:\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\alexandria.asd
; into #<The ASDF0 package>
; Loading
;
C:\Users\anton\quicklisp\dists\quicklisp\software\alexandria-20110320-git\alexandria.asd
; Registering #<SYSTEM :ALEXANDRIA> 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
#<COMPILE-OP NIL @ #x20697b1a> on
#<CL-SOURCE-FILE "cffi-tests" "tests" "funcall">.
; 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
#<COMPILE-OP NIL @ #x20697b1a> on
#<CL-SOURCE-FILE "cffi-tests" "tests" "defcfun">.
Warning: COMPILE-FILE failed while performing
#<COMPILE-OP NIL @ #x20697b1a> on
#<CL-SOURCE-FILE "cffi-tests" "tests" "defcfun">.
; 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
#<COMPILE-OP NIL @ #x20697b1a> on
#<CL-SOURCE-FILE "cffi-tests" "tests" "misc-types">.
Warning: COMPILE-FILE failed while performing
#<COMPILE-OP NIL @ #x20697b1a> on
#<CL-SOURCE-FILE "cffi-tests" "tests" "misc-types">.
; 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: #<SIMPLE-ERROR @ #x20c3f8aa>.
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: #<SIMPLE-ERROR @ #x20c7bc42>.
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: #<TYPE-ERROR @ #x20eeb80a>.
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: #<SIMPLE-ERROR @ #x2102d2d2>.
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: #<SIMPLE-ERROR @ #x20b24902>.
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: #<TYPE-ERROR @ #x20b86eda>.
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
_______________________________________________
cffi-devel mailing list
cffi-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
