July 2010 - cffi-devel - mailman3.common-lisp.net

[cffi-devel] Foreign structures by value
by Liam Healy 26 Aug '10

26 Aug '10

I have written Foreign Structures By Value (FSBV) to allow calling foreign functions while passing or returning structures by value. It uses CFFI and libffi. It currently provides two macros for users, fsbv:defcstruct and fsbv:foreign-funcall, which are used exactly like their CFFI counterparts. It works for small test cases I've tried, but probably could use some improvement. If the keepers of CFFI are interested, I would be happy for it to be included in CFFI. In the meantime, it can be found here: http://repo.or.cz/w/fsbv.git Thank you. Liam

2 3

[cffi-devel] Foreign string arguments
by Michael Raskin 22 Aug '10

22 Aug '10

Hello. I use callback feature of CFFI. I want to use an encoding as a default and if I get an invalid string (non-UTF-8 in my case), I'd just reject it by returning an error. Unfortunately, if I declare string arguments with encoding, attempts by CFFI to decode the string raise an error which prevents me from returning protocol-compliant error to the caller. The context: I currently work on FUSE bindings for Common Lisp (or at least SBCL for now). In case of error occurring in my code, I return EIO. Of course, for invalid file names I want to return either EIO or ENOENT. Currently, request just hangs. This can be mitigated by patching CFFI. If I just wrap the conversion in ignore-errors, I lose the distinction between an invalid string and null pointer, but I get a chance to process the request (both cases are wrong in my case). Specifying a designated "wrong string object" and letting user change it seems to be the nicest way: the user gets an error on trying to use the object as a string, but user code can handle it nicely. I changed the following in string conversion code: (defmethod translate-from-foreign (ptr (type foreign-string-type)) (unwind-protect (block nil (handler-case (values (foreign-string-to-lisp ptr :encoding (fst-encoding type))) (error (x) (return t)) )) (when (fst-free-from-foreign-p type) (foreign-free ptr)))) That allowed me to handle invalid requests to the FS by returning ENOENT (just as originally intended). Would you please consider adding some similar modification in official CFFI repository? Michael Raskin

2 1

[cffi-devel] uffi compatible library
by Gustavo 22 Aug '10

22 Aug '10

Hello, As I've noticed, the compatibility layer of cffi to uffi has a couple of problems. For that reason it does not work with elephant out of the box. I intend trying to address these problems and send patches afterwards. I'm using SBCL. It seems to me that one of the problems it that functions defined with (original) uffi accepts aliens and saps as pointer arguments, while cffi (and uffi-compat) only work with saps, right? Another problems seems to be that uffi's def-function accepts :out arguments, unlike cffi's defcfun. Such arguments are not passed when you call the wrapper function, the wrapper automatically pass foreign-allocated pointers to the C function which is supposed to put some value in that pointer. Then the wrapper function returns the values inserted by the C function as multiple values (starting from the second value). I intend to adapt uffi-compat's functions to unwrap aliens into saps. That is implementation dependent, so I was thinking about putting one function named unwrap-typed-pointer in cffi-sys and also put an entry in the documentation for other implementations (that have typed pointers like SBCL's aliens) to possibly implement this function as well. That function would only be used in uffi-compat, not in cffi. Now, about :out arguments, wouldn't it be nice if cffi supports this as well? Currently many projects have to do this by hand, why not abstract it away? That would also make elephant portable to cffi more easily. The list of arguments of defcfun<http://common-lisp.net/project/cffi/manual/html_node/defcfun.html#defcfun>would become arguments ::= { (arg-name arg-type [direction]) }* where direction could be :in (the default) or :out. In case it's :out, the argument should not be passed to the function, like in uffi. Other possible options are :copy and :in-out like sbcl's define-alien-routine<http://www.sbcl.org/manual/#The-define_002dalien_002droutine-Macro> . Any thoughts are appreciated. Regards, Gustavo.

2 5

[cffi-devel] Memory fault using CFFI
by Andrew Kirkpatrick 22 Aug '10

22 Aug '10

Hi, It seems that in many cases when I call code in a library that results in a loaded foreign library function being called, I get a memory fault. Typically this error appears in my slime REPL: Help! 11 nested errors. SB-KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded. 0: ; Evaluation aborted. The 11 errors appear in my *inferior-lisp* buffer, each one similar to: CORRUPTION WARNING in SBCL pid 3239(tid 3039865744): Memory fault at 100020 (pc=0x9c77963, sp=0xb52f6110) The integrity of this image is possibly compromised. Continuing with fingers crossed. Crossed fingers or not, from that point on the lisp image is unstable. It happens when I try to use Elephant to open a BDB store, or when I use CL-SQLITE directly to open a database. However I just discovered that I can successfully run the hello-world.lisp example in CLG. I'm using clbuild on 32bit x86 Ubuntu 9.10, that I used to install SBCL 1.0.35.1 and the latest (according to clbuild) CFFI. Looking closer at CFFI, it fails one test unexpectedly. I'm quite baffled and googling and asking on #lisp draws a blank. The failed test is below. Any ideas? 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. Thanks! -- Andrew Kirkpatrick "The first rule of Perl Club... has subscript 0. Unless you changed $[. But don't!" -- blazar on perlmonks.org

2 1

[cffi-devel] Problem with cffi-grovel on windows/cygwin(mingw mode)
by Heka Treep 08 Aug '10

08 Aug '10

Hi, some problem I have with this: (defsystem ... (cffi-grovel:wrapper-file "...") ... generates a call: gcc -m32 -fPIC -o *.dll *.c -shared but cygwin want at least flag `-mno-cygwin'. It would be possible to define this flag in some variable, but the flag is added to the end of the list of arguments - and it just not work. I try this format: gcc cpu-flags cc-flags platform-library-flags* -o output-file input-file by reimplement `cc-compile-and-link' function: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (in-package :cffi-grovel) (defun cc-compile-and-link (input-file output-file &key library) (apply #'invoke (or (getenv "CC") *cc*) *cpu-word-size-flags* `(,@*cc-flags* ,@(when library *platform-library-flags*) "-o" ,(native-namestring output-file) ,(native-namestring input-file)))) (setf *cc* "C:/dev/cygwin/bin/gcc-3.exe") ;; its my (setf *cc-flags* '()) ;; remove -fPIC (setf *cpu-word-size-flags* "") ;; and this too (setf *platform-library-flags* '("-mno-cygwin" "-shared")) ;; added -mno-cygwin in begin ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; It is normal, or I don't understand something?

2 2

Re: [cffi-devel] Using cffi with ccl on windows 64bit
by Louis Höfler 30 Jul '10

30 Jul '10

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(a)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.

1 0

[cffi-devel] Using cffi with ccl on windows 64bit
by Louis Höfler 30 Jul '10

30 Jul '10

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.

1 0

[cffi-devel] handling lisp to c arrays (and back) in CFFI (beginner questions)
by Kevin Smith 24 Jul '10

24 Jul '10

Hello, Sorry for the long winded questions... I was wondering if someone could point me to any example example on how to set/get arrays in C from lisp ? I am using CFFI and Swig. currently I have only primitive interface functions that pass pointers and floats. I am thinking of three array cases. I'm a bit of a beginner here, so please bear with me - the existing documentation is not completely clear (to me, as a lisp beginner :-).. 1) the C function allocates an array (as a side effect) and passes back a pointer to array to lisp . I would later have to free memory for this array explicitly. 2) the lisp function allocates an array and passes a pointer to the "C" function, The C function modifies the array. In this case lisp would be allocating the array. Side question: Do I need to use CFFI in lisp to allocate the array ? - or can this be done transparently by the lisp dynamic typing when the array variable is bound ? 3) I have several simple C functions that return smaller arrays (like [ x, y, z], where x,y,z = float or integer.). Would be nice to be able to pass by value as a return value on the stack, but I am not sure how to handle this from C to lisp. Example: C function: Color getColorValue ( Image *image, x, y), Where color is a array triplet [r, g, b],, could be floats or ints depending... Desired lisp function: (let ((color (get-color-value image x y)) ; then do something with list "color 4) unrelated question...maybe this should be posted to swig list (but i am not sure if there are any active CFFI users in that group). Is there an easy way to automatically create lisp-style function names ? For example: swig generates: (cffi:defcfun ("frameHeight" frameHeight) :int (frame :pointer)) I would like to generate translate the C function name to "frame-height" (to make it more of a lisp style). I tried using %rename frameHeight frame-height in the swig. ".i" file template, but that doesn't seem to work. The notes in the documentation on "lispify" I am not at the stage where I understand it. I thought that some google searches would turn up some canonical examples or tutorials on this, but there are not many (except the curl example - and it makes me wonder how many people are actually using it :-) thanks again, K

2 1

[cffi-devel] foreign library memory footprint
by Kevin Smith 22 Jul '10

22 Jul '10

Hello, What is the best way (from lisp) to to monitor the total memory allocation during runtime of a foreign library that is doing calls malloc/free ? what about memory size in lisp as well ? I want to make sure I am not incurring memory leaks by making calls into my foreign library... Thanks, Kevin

2 1

[cffi-devel] cffi newbie questions
by Kevin Smith 14 Jul '10

14 Jul '10

I need an interface from SBCL to a a set of "C" function in the OpenCV library. I don't think there is a bindings package available for opencv, so I need to carve my own. Currently cffi (transparently) with cl-opengl, so it appears to be working property. Some questions to get me going in the right direction: I have swig 2.0 built on my system which has some support for CFFI (although not very well documented - at least for beginners). Should I go with the option of trying to use SWIG to generate some bindings or should I just dig into CFFI and hand-create the bindings that I need ? Also if anyone can send me references to any examples, I would appreciate. The functions that I need in OpenCV reference C structures representing images that have pointers in them to byte arrays as well as various flags and integer types - just to give you an idea...I'd like to stay in lisp as much as possible, but my lack of access to OpenCV is pushing more of this code into C. thanks, -K

3 2