headers
Alistair Gee | 2 Mar 2012 22:28
Picon

CFFI from git bug with :int64 struct fields?

When using latest CFFI via clbuild2 (git://common-lisp.net/projects/cffi/cffi.git), I encountered a problem with :int64 fields. CFFI seems to treat this field as (signed-byte 32). This is with SBCL x86-64 on Ubuntu 10.10:


This is SBCL 1.0.55.1-6548750, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (require :cffi)

NIL
* (cffi:defcstruct foo (a :int64)) 

FOO
* (cffi:with-foreign-object (foo 'foo) 
  (setf (cffi:foreign-slot-value foo 'foo 'a) 123456789012345))
; in: CFFI:WITH-FOREIGN-OBJECT (FOO 'FOO)
;     (SETF (CFFI:FOREIGN-SLOT-VALUE FOO 'FOO 'A) 123456789012345)
; --> LET* MULTIPLE-VALUE-BIND LET PROGN CFFI::FOREIGN-SLOT-SET SETF LET* 
; --> MULTIPLE-VALUE-BIND LET PROGN CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; ==>
;   (SB-KERNEL:%SET-SIGNED-SAP-REF-32 FOO 0 #:VALUE14)
; 
; caught WARNING:
;   Derived type of #:VALUE14 is
;     (VALUES (INTEGER 123456789012345 123456789012345) &OPTIONAL),
;   conflicting with its asserted type
;     (SIGNED-BYTE 32).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition

debugger invoked on a SIMPLE-TYPE-ERROR in thread
#<THREAD "initial thread" RUNNING {10029B97C3}>:
  Value of #:VALUE14 in
    (SB-KERNEL:%SET-SIGNED-SAP-REF-32 FOO 0 #:VALUE14)
  is
    123456789012345,
  not a
    (SIGNED-BYTE 32).

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(SB-C::%COMPILE-TIME-TYPE-ERROR
 (123456789012345)
 (SIGNED-BYTE 32)
 #<unavailable argument>
 ((SB-KERNEL:%SET-SIGNED-SAP-REF-32 FOO 0 #:VALUE14) . #:VALUE14))
0] 0




_______________________________________________
cffi-devel mailing list
cffi-devel <at> common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
Permalink | Reply | 4 comments |
headers
Liam Healy | 5 Mar 2012 05:44

Structure pointer with new structure syntax: mem-aptr

I think Martin is right, so I have implemented mem-aptr and updated the manual.  Here are Ryan's examples:

    (cffi:defcstruct rp-struct
     (x :short)
     (y :short))

    (defun test-old-ref (&optional (count 0))
     (declare (notinline cffi:mem-ref cffi:mem-aref))
     (cffi:with-foreign-object (ptr '(:struct rp-struct) 2)
       (format t "~&Old-ref style:~%ptr : ~A~%aref: ~A~%"
               ptr (cffi:mem-aref ptr 'rp-struct count))))

    (defun test-new-ref (&optional (count 0))
     (cffi:with-foreign-object (ptr '(:struct rp-struct) 2)
       (format t "~&New-ref style:~%ptr : ~A~%aref: ~A~%"
              ptr
              (cffi:mem-aptr ptr '(:struct rp-struct) count))))
 
    CFFI(14): (test-old-ref)
    STYLE-WARNING:
       bare references to struct types are deprecated. Please use (:STRUCT RP-STRUCT) instead.
    STYLE-WARNING:
       bare references to struct types are deprecated. Please use (:STRUCT RP-STRUCT) instead.
    STYLE-WARNING:
       bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RP-STRUCT)) instead.

    Old-ref style:
    ptr : #.(SB-SYS:INT-SAP #X7FFFF6E97FF0)
    aref: #.(SB-SYS:INT-SAP #X7FFFF6E97FF0)
    NIL
    CFFI(15): (test-new-ref)

    New-ref style:
    ptr : #.(SB-SYS:INT-SAP #X7FFFF6E97FF0)
    aref: #.(SB-SYS:INT-SAP #X7FFFF6E97FF0)
    NIL
    CFFI(16): (test-old-ref 1)
    STYLE-WARNING:
       bare references to struct types are deprecated. Please use (:STRUCT RP-STRUCT) instead.
    STYLE-WARNING:
       bare references to struct types are deprecated. Please use (:STRUCT RP-STRUCT) instead.
    STYLE-WARNING:
       bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RP-STRUCT)) instead.

    Old-ref style:
    ptr : #.(SB-SYS:INT-SAP #X7FFFF6E97FF0)
    aref: #.(SB-SYS:INT-SAP #X7FFFF6E97FF4)
    NIL
    CFFI(17): (test-new-ref 1)

    New-ref style:
    ptr : #.(SB-SYS:INT-SAP #X7FFFF6E97FF0)
    aref: #.(SB-SYS:INT-SAP #X7FFFF6E97FF4)
    NIL

This looks right to me.  I made a new branch libffi; the old branch fsbv will be abandoned.  Note that generation of a pointer from mem-aref for structures is only supported when using the deprecated "bare" structures form, for compatibility reasons; otherwise you should use mem-aptr.   Please checkout this branch and see if it works correctly for you and looks right.
I agree as Martin said the other examples are incorrectly written, so I'm not bothering with them.

Head:       0fec6ff839 - Update manual to include mem-aptr

Liam


On Fri, Feb 24, 2012 at 7:34 AM, Martin Simmons <martin <at> lispworks.com> wrote:
To answer Ryan's point, I think there should be a different function to get a
pointer to an element of an array, called something like mem-aptr.  It should
work for all element types, not just aggregates.

That allows mem-aref to have "value" semantics for all types.  For aggregates,
converting to a plist is one possible way to representing it.

--
Martin Simmons
LispWorks Ltd
http://www.lispworks.com/


>>>>> On Mon, 20 Feb 2012 12:12:44 -0500, Liam Healy said:
>
> Ryan -
>
> I am forwarding this to CFFI-devel and Martin directly (though I'm pretty
> sure he's subscribed to cffi-devel).  Can you please send future messages
> to cffi-devel?  I'm not sure many people read the github mailing list; this
> issue should get wider visibility.   Thanks.
>
> Liam
>
> On Mon, Feb 20, 2012 at 12:02 PM, Ryan Pavlik <
> reply+i-1614209-ba246666762196459413560690eb7d3a39c7c7ee-838019 <at> reply.github.com
> > wrote:
>
> > I'm not sure what you mean.  It doesn't really matter that a pointer is
> > aggregate or not.  The goal is to get at the Nth member of an
> > array-of-something.  In the case of scalar C types, you're getting the
> > value; in the case of structs it's far more useful to get a pointer,
> > because you probably only want a single value out of the struct, or to
> > **put a value into the struct**.  (The `setf` form works for scalars in the
> > latter case, but not for "member-of-struct-of-index-N"... you most likely
> > want the pointer in these cases.)
> >
> > It also occurred to me after posting that there is no difference between
> > `(mem-aref ptr '(:pointer (:struct foo)) N)` and just simply `(mem-aref ptr
> > :pointer N)` ... both return a pointer value as if `ptr` is a `void
> > *ptr[k]`.
> >
> > A struct of more bytes works the same way:
> >
> > ```
> > (cffi:defcstruct my-struct
> >  (x :long)
> >  (y :long)
> >  (x :long)
> >  (t :long))
> >
> > ...
> >
> > Old-ref style:
> > ptr : #.(SB-SYS:INT-SAP #X7FFFEEFC7FB8)
> > aref: #.(SB-SYS:INT-SAP #X7FFFEEFC7FD8)
> > New-ref style:
> > ptr : #.(SB-SYS:INT-SAP #X7FFFEEFC7FB8)
> > aref: (T 0 Y 0 X 0)
> > New-ref with :pointer style:
> > ptr : #.(SB-SYS:INT-SAP #X7FFFEEFC7FB8)
> > aref: #.(SB-SYS:INT-SAP #X00000000)
> > ```
> >
> > Note that on my system, a pointer is 8 bytes, not 4.  This is why I
> > initially found the problem, when trying to access an array of points
> > defined by 2 short; each member is 4 bytes, and it was giving offsets to
> > `sizeof(void*)`.
> >
> > ---
> > Reply to this email directly or view it on GitHub:
> > https://github.com/cffi/cffi/pull/2#issuecomment-4057418
> >
>

_______________________________________________
cffi-devel mailing list
cffi-devel <at> common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
Permalink | Reply | 0 comments |
headers
Luís Oliveira | 10 Mar 2012 12:03
Picon
Gravatar

Re: Digitool MCL support for CFFI (was Re: [info-mcl] ? cffi)

Hello binghe and James,

On Sat, Oct 2, 2010 at 10:13 AM, Chun Tian (binghe)
<binghe.lisp <at> gmail.com> wrote:
> However, I hope CFFI maintainer could merge this patch and let other MCL users help improving exist work.

I have (finally) applied your patch. Sorry for the huge delay.

Thanks,

--

-- 
Luís Oliveira
http://r42.eu/~luis/
Permalink | Reply | 0 comments |
headers
Liam Healy | 11 Mar 2012 15:35

Reviewing cffi-libffi

Luís,

Since the last email, I have created a function mem-aptr that returns the pointer of an array of structures and therefore reproduces the behavior of mem-aref with the deprecated bare struct reference.   I wrote documentation for this function.  I've tested the new function, and I think that it does the right thing.  I also renamed the branch to "libffi"; the fsbv branch is now dead.  Can you review to see that it looks right?  Also, please add some official tests that test this function.

My next step would be to merge master into libffi to integrate the changes there since I branched off, but I'd hold off doing that until near the time that we would do the reverse (merge libffi into master) in case there are further changes in master.   Are there any issues you can foresee in doing these merges?

Liam


On Sat, Feb 11, 2012 at 4:20 PM, Liam Healy <lhealy <at> common-lisp.net> wrote:
Luis,

I've managed to go through this list and make all the changes that I knew how to do and didn't require much research for me.  Here is a summary of what I have done, with the git commit to the fsbv branch:

9d1d5b5 Rename system to cffi-libffi, add restart to default *foreign-structures-by-value*
95052e5 Use hash table for libffi-type-pointer
4b5d7fb Moved slots-in-order after foreign-struct-type, clean up libffi-*.lisp
953fbaf Fix conditionalization syntax in cffi-fsbv.asd
cc73a6f Add Windows grovel file
1ff74af Eliminate package cffi-fsbv, put :sizet in keyword package

Do these changes address your concerns?  Can you test? 

Thanks,

Liam


_______________________________________________
cffi-devel mailing list
cffi-devel <at> common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
Permalink | Reply | 0 comments |
headers
Anton Vodonosov | 11 Mar 2012 21:22
Picon
Favicon

Re: how to treat expected failures in tests

Hello.

Thanks everyone who answered in this thread. It was very helpful.

I now collect test results for CFFI (and other libraries using the RT
test framework) detailed to individual test failures, including the
information what failures are known (aka "expected"). Now implementing
it for other test frameworks.

As for CFFI, you can see that from 14 Lisp / OS combination we've 
run the tests, only on two of the all the failures are known: 
http://common-lisp.net/project/cl-test-grid/pivot_lib-lisp_ql.html

I also apply the "known failures" idea in another way - I compare
test results of two consecutive quicklisp distributions 
on the same Lisp implementation and detect new failures, which
were absent in the old version. (Here "known" failures are failures
in the previous version - something along the lines of keeping
the list of "known" failures separate from the tests.)

That way, even it the library test suite already had failures, we can 
detect and quickly react to new bugs.

Best regards,
- Anton
Permalink | Reply | 12 comments |
headers
Luís Oliveira | 11 Mar 2012 22:13
Picon
Gravatar

Re: Patch for ABCL to dynamically load CFFI JNA requirement

On Fri, Feb 24, 2012 at 5:16 PM, Mark Evenson <evenson <at> panix.com> wrote:
> Please consider the referenced patch for inclusion in cffi-0.10.7. Comments
> towards improvments solicited.

It didn't apply cleanly to the current checkout from git, but the
merge was straightforward. Even so, I might have messed something up
since I didn't test anything.

Thanks!

--

-- 
Luís Oliveira
http://r42.eu/~luis/
Permalink | Reply | 1 comment |
headers
Mark Evenson | 12 Mar 2012 12:31
Picon
Favicon

Re: Patch for ABCL to dynamically load CFFI JNA requirement

Thanks for applying: I'll test from your git before the April Quicklisp.

Tersely written on my iPhone

On Mar 11, 2012, at 10:13 PM, Luís Oliveira <luismbo <at> gmail.com> wrote:

> On Fri, Feb 24, 2012 at 5:16 PM, Mark Evenson <evenson <at> panix.com> wrote:
>> Please consider the referenced patch for inclusion in cffi-0.10.7. Comments
>> towards improvments solicited.
> 
> It didn't apply cleanly to the current checkout from git, but the
> merge was straightforward. Even so, I might have messed something up
> since I didn't test anything.
> 
> Thanks!
> 
> -- 
> Luís Oliveira
> http://r42.eu/~luis/
> 

_______________________________________________
cffi-devel mailing list
cffi-devel <at> common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
Permalink | Reply | 0 comments |
headers
Luís Oliveira | 13 Mar 2012 00:55
Picon
Gravatar

Re: how to treat expected failures in tests

On Sun, Mar 11, 2012 at 8:22 PM, Anton Vodonosov <avodonosov <at> yandex.ru> wrote:
> As for CFFI, you can see that from 14 Lisp / OS combination we've
> run the tests, only on two of the all the failures are known:
> http://common-lisp.net/project/cl-test-grid/pivot_lib-lisp_ql.html

Cool stuff!

However, the results are a bit depressing. So many fails. :-) Perhaps
you could show the ration of failed to total tests and maybe show
know-fail/unexpected-ok in yellow/orange rather than red.

I wonder if compilation errors could be printed. Error messages like
this are not very helpful:
<http://cl-test-grid.appspot.com/blob?key=AMIfv97suboJpeei-uBWzlkqcR7CTlyh0Izhvi7u_29HNBgu80ScYf0Mj6zWPjgbsosA-F0Q12HP8o9S5zhsEelTfss8_3C7sjgcuG_q_grR-jMfXPLLRzu6CNytLoNk23rwqlQ6AsajxTRYFubFbz3iBWl5uo8iZQ>.

Cheers,

--

-- 
Luís Oliveira
http://r42.eu/~luis/
Permalink | Reply | 11 comments |
headers
Robert Goldman | 13 Mar 2012 16:40

Re: how to treat expected failures in tests

On 3/12/12 Mar 12 -6:55 PM, Luís Oliveira wrote:
> On Sun, Mar 11, 2012 at 8:22 PM, Anton Vodonosov <avodonosov <at> yandex.ru> wrote:
>> As for CFFI, you can see that from 14 Lisp / OS combination we've
>> run the tests, only on two of the all the failures are known:
>> http://common-lisp.net/project/cl-test-grid/pivot_lib-lisp_ql.html
> 
> Cool stuff!
> 
> However, the results are a bit depressing. So many fails. :-) Perhaps
> you could show the ration of failed to total tests and maybe show
> know-fail/unexpected-ok in yellow/orange rather than red.
> 
> I wonder if compilation errors could be printed. Error messages like
> this are not very helpful:
> <http://cl-test-grid.appspot.com/blob?key=AMIfv97suboJpeei-uBWzlkqcR7CTlyh0Izhvi7u_29HNBgu80ScYf0Mj6zWPjgbsosA-F0Q12HP8o9S5zhsEelTfss8_3C7sjgcuG_q_grR-jMfXPLLRzu6CNytLoNk23rwqlQ6AsajxTRYFubFbz3iBWl5uo8iZQ>.
> 
> Cheers,
> 

In the hopes it will be helpful, here are the test results after a git
pull of CFFI today, on Mac OS X, Allegro CL 8.2 64-bit:

21 out of 260 total tests failed: FUNCALL.VARARGS.DOUBLE,
   DEFCFUN.UNSIGNED-LONG-LONG, DEFCFUN.NOOP, DEFCFUN.VARARGS.FLOAT,
   DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2,
   CALLBACKS.BFF.1, CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2,
   FOREIGN-GLOBALS.REF.UPPER-CASE-INT2,
   FOREIGN-GLOBALS.REF.MIXEDCASEINT2,
   FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, 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.
16 unexpected failures: FUNCALL.VARARGS.DOUBLE, DEFCFUN.VARARGS.FLOAT,
   DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2,
   CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2,
   FOREIGN-GLOBALS.REF.UPPER-CASE-INT2,
   FOREIGN-GLOBALS.REF.MIXEDCASEINT2,
   FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, POINTERP.4,
   POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2,
   NULL-POINTER-P.NON-POINTER.2.

If this is the sort of thing you want, I will generate more of these.  I
have a bunch of different CL implementations installed so that I can
test ASDF.

CL-USER> (asdf:test-system :cffi)
; Loading /Users/rpg/lisp/vendor/bordeaux-threads/bordeaux-threads.asd
;;; Compiling file /Users/rpg/lisp/rt/rt.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/rt/ASDF-TMP-rt.fasl
;;; Fasl write complete
;;; Compiling file
;;;   /Users/rpg/lisp/vendor/bordeaux-threads/src/pkgdcl.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/ASDF-TMP-pkgdcl.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/pkgdcl.fasl
;;; Compiling file
;;;   /Users/rpg/lisp/vendor/bordeaux-threads/src/bordeaux-threads.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/ASDF-TMP-bordeaux-threads.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/bordeaux-threads.fasl
;;; Compiling file
;;;   /Users/rpg/lisp/vendor/bordeaux-threads/src/impl-allegro.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/ASDF-TMP-impl-allegro.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/impl-allegro.fasl
;;; Compiling file
;;;   /Users/rpg/lisp/vendor/bordeaux-threads/src/default-implementations.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/ASDF-TMP-default-implementations.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/rt/rt.fasl
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/bordeaux-threads/src/default-implementations.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/package.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-package.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/package.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/bindings.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-bindings.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/bindings.fasl
;   Foreign loading libtest.dylib.
;   Foreign loading /Users/rpg/lisp/vendor/cffi/tests/libtest.dylib.
;   Foreign loading libtest2.dylib.
;   Foreign loading /Users/rpg/lisp/vendor/cffi/tests/libtest2.dylib.
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/funcall.lisp
; While compiling (METHOD EXPAND-TO-FOREIGN (T CHECK-NIL-SKIP-TYPE)):
Warning: Variable VAL is never used.
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-funcall.fasl
;;; Fasl write complete
Warning: COMPILE-FILE warned while performing
         #<COMPILE-OP NIL  <at>  #x10051dd162> on
         #<CL-SOURCE-FILE "cffi-tests" "tests" "funcall">.
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/funcall.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/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)
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 :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 :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
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-defcfun.fasl
;;; Fasl write complete
Warning: COMPILE-FILE failed while performing
         #<COMPILE-OP NIL  <at>  #x10051dd162> on
         #<CL-SOURCE-FILE "cffi-tests" "tests" "defcfun">.
Warning: COMPILE-FILE warned while performing
         #<COMPILE-OP NIL  <at>  #x10051dd162> on
         #<CL-SOURCE-FILE "cffi-tests" "tests" "defcfun">.
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/defcfun.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/callbacks.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-callbacks.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/callbacks.fasl
;;; Compiling file
;;;   /Users/rpg/lisp/vendor/cffi/tests/foreign-globals.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-foreign-globals.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/foreign-globals.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/memory.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-memory.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/memory.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/strings.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-strings.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/strings.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/struct.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-struct.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/struct.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/union.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-union.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/union.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/enum.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-enum.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/enum.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/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
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-misc-types.fasl
;;; Fasl write complete
Warning: COMPILE-FILE failed while performing
         #<COMPILE-OP NIL  <at>  #x1003a01c22> on
         #<CL-SOURCE-FILE "cffi-tests" "tests" "misc-types">.
Warning: COMPILE-FILE warned while performing
         #<COMPILE-OP NIL  <at>  #x1003a01c22> on
         #<CL-SOURCE-FILE "cffi-tests" "tests" "misc-types">.
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/misc-types.fasl
;;; Compiling file /Users/rpg/lisp/vendor/cffi/tests/misc.lisp
;;; Writing fasl file
;;;   /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/ASDF-TMP-misc.fasl
;;; Fasl write complete
; Fast loading
;    /Users/rpg/.cache/common-lisp/acl-8.2a-macosx-x64/Users/rpg/lisp/vendor/cffi/tests/misc.fasl
;;; running tests (uncompiled)
Doing 260 pending tests of 260 tests total.
 LOAD-CORE-FOUNDATION FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2
 FUNCALL.LONG FUNCALL.LONG-LONG FUNCALL.UNSIGNED-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: "0.00".
 FUNCALL.VARARGS.STRING FUNCALL.DOUBLE26 FUNCALL.FLOAT26 FUNCALL.F-S-P.1
 FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL
 DEFCFUN.PARSE-NAME-AND-OPTIONS.1 DEFCFUN.PARSE-NAME-AND-OPTIONS.2
 DEFCFUN.PARSE-NAME-AND-OPTIONS.3 DEFCFUN.PARSE-NAME-AND-OPTIONS.4
 DEFCFUN.PARSE-NAME-AND-OPTIONS.5 DEFCFUN.PARSE-NAME-AND-OPTIONS.6
 DEFCFUN.PARSE-NAME-AND-OPTIONS.7 DEFCFUN.PARSE-NAME-AND-OPTIONS.8
 TRANSLATE-UNDERSCORE-SEPARATED-NAME.TO-SYMBOL
 TRANSLATE-UNDERSCORE-SEPARATED-NAME.TO-STRING
 TRANSLATE-CAMELCASE-NAME.TO-SYMBOL TRANSLATE-CAMELCASE-NAME.TO-STRING
 TRANSLATE-CAMELCASE-NAME.TO-STRING-UPPER
 TRANSLATE-CAMELCASE-NAME.TO-SYMBOL-SPECIAL
 TRANSLATE-CAMELCASE-NAME.TO-STRING-SPECIAL
 TRANSLATE-NAME-FROM-FOREIGN.FUNCTION TRANSLATE-NAME-FROM-FOREIGN.VAR
 TRANSLATE-NAME-TO-FOREIGN.FUNCTION TRANSLATE-NAME-TO-FOREIGN.VAR
 DEFCFUN.CHAR DEFCFUN.DOCSTRING DEFCFUN.INT DEFCFUN.LONG
 DEFCFUN.LONG-LONG
Test DEFCFUN.UNSIGNED-LONG-LONG failed
Form: (LET ((ULLONG-MAX
             (1- (EXPT 2
                       (* 8
                          (FOREIGN-TYPE-SIZE :UNSIGNED-LONG-LONG))))))
        (EQL ULLONG-MAX (ULLONG ULLONG-MAX)))
Expected value: T
Actual value: NIL.
 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: "0.00".
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: "0.00".
 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: #<EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL  <at> 
                #x1003d7ba32>.
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: #<EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL  <at> 
                #x1003d82b32>.
 DEFCFUN.UNDEFINED DEFCFUN.DOUBLE26 DEFCFUN.FLOAT26 CALLBACKS.CHAR
 CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT CALLBACKS.UNSIGNED-SHORT
 CALLBACKS.INT CALLBACKS.UNSIGNED-INT CALLBACKS.LONG
 CALLBACKS.UNSIGNED-LONG CALLBACKS.LONG-LONG
 CALLBACKS.UNSIGNED-LONG-LONG CALLBACKS.FLOAT CALLBACKS.DOUBLE
 CALLBACKS.POINTER CALLBACKS.STRING CALLBACKS.STRING-NOT-DOCSTRING
 CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT CALLBACKS.VOID
 CALLBACKS.FUNCALL.1 CALLBACKS.FUNCALL.2
Test CALLBACKS.BFF.1 failed
Form: (CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))
Expected value: 2008547941
Actual value: -4558795076986485615.
Test CALLBACKS.BFF.2 failed
Form: (CALL-SUM-127 (CALLBACK SUM-127))
Expected value: 8166570665645582011
Actual value: #<SIMPLE-ERROR  <at>  #x1003dd5842>.
 CALLBACKS.NON-EXISTANT CALLBACKS.DOUBLE26 CALLBACKS.DOUBLE26.FUNCALL
 CALLBACKS.FLOAT26 CALLBACKS.FLOAT26.FUNCALL 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
Test FOREIGN-GLOBALS.REF.UPPERCASEINT2 failed
Form: *UPPERCASEINT2*
Expected value: 12345
Actual value: #<UNBOUND-VARIABLE  <at>  #x1003e702f2>.
Test FOREIGN-GLOBALS.REF.UPPER-CASE-INT2 failed
Form: *UPPER-CASE-INT2*
Expected value: 23456
Actual value: #<UNBOUND-VARIABLE  <at>  #x1003e71c62>.
Test FOREIGN-GLOBALS.REF.MIXEDCASEINT2 failed
Form: *MIXEDCASEINT2*
Expected value: 34567
Actual value: #<UNBOUND-VARIABLE  <at>  #x1003e72f92>.
Test FOREIGN-GLOBALS.REF.MIXED-CASE-INT2 failed
Form: *MIXED-CASE-INT2*
Expected value: 45678
Actual value: #<UNBOUND-VARIABLE  <at>  #x1003e74282>.
 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 FOREIGN-GLOBALS.UNDEFINED.1 FOREIGN-GLOBALS.ERROR.1
 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
Test FOREIGN-ALLOC.10 failed
Form: (FOREIGN-FREE (FOREIGN-ALLOC :CHAR :COUNT 0))
Expected value: NIL
Actual value: 137439369056.
 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:;<=>? <at> 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: #<BABEL-ENCODINGS:CHARACTER-OUT-OF-RANGE  <at>  #x10040253d2>.
 STRING.ENCODINGS.DEFAULT STRUCT.1 STRUCT.2 STRUCT.3 STRUCT.4
 STRUCT.NAMES STRUCT.5 STRUCT.STRING.1 STRUCT.STRING.2
 STRUCT.ALIGNMENT.1 STRUCT.ALIGNMENT.2 STRUCT.ALIGNMENT.3
 STRUCT.ALIGNMENT.4 STRUCT.ALIGNMENT.5 STRUCT.ALIGNMENT.6
 STRUCT.ALIGNMENT.7 STRUCT.NESTED-SETF STRUCT.ALIGNMENT.8
 STRUCT-WRAPPER.1 STRUCT-WRAPPER.2 UNION.1 ENUM.1 ENUM.2 ENUM.3
 BITFIELD.1 BITFIELD.2 BITFIELD.3 BITFIELD.4 MISC-TYPES.STRING+PTR
 MISC-TYPES.BOOLEAN.1 MISC-TYPES.BOOLEAN.2 MISC-TYPES.WRAPPER
 MISC-TYPES.SIZED-INTS MISC-TYPES.EXPAND.1 MISC-TYPES.EXPAND.2
 MISC-TYPES.EXPAND.3 MISC-TYPES.EXPAND.4 MISC-TYPES.EXPAND.5
 MISC-TYPES.EXPAND.6 FOREIGN-SYMBOL-POINTER.1 FOREIGN-SYMBOL-POINTER.2
; Foreign loading libdoesnotexistimsure.
 LIBRARY.ERROR.1 LIBRARY.T-CLAUSE SHAREABLE-VECTOR.1 SHAREABLE-VECTOR.2
21 out of 260 total tests failed: FUNCALL.VARARGS.DOUBLE, 
   DEFCFUN.UNSIGNED-LONG-LONG, DEFCFUN.NOOP, DEFCFUN.VARARGS.FLOAT, 
   DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2, 
   CALLBACKS.BFF.1, CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2, 
   FOREIGN-GLOBALS.REF.UPPER-CASE-INT2, 
   FOREIGN-GLOBALS.REF.MIXEDCASEINT2, 
   FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, 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.
16 unexpected failures: FUNCALL.VARARGS.DOUBLE, DEFCFUN.VARARGS.FLOAT, 
   DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2, 
   CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2, 
   FOREIGN-GLOBALS.REF.UPPER-CASE-INT2, 
   FOREIGN-GLOBALS.REF.MIXEDCASEINT2, 
   FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, POINTERP.4, 
   POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2, 
   NULL-POINTER-P.NON-POINTER.2.
;;; running tests (compiled)
Doing 260 pending tests of 260 tests total.
 LOAD-CORE-FOUNDATION FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2
 FUNCALL.LONG FUNCALL.LONG-LONG FUNCALL.UNSIGNED-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: "0.00".
 FUNCALL.VARARGS.STRING FUNCALL.DOUBLE26 FUNCALL.FLOAT26 FUNCALL.F-S-P.1
 FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL
 DEFCFUN.PARSE-NAME-AND-OPTIONS.1 DEFCFUN.PARSE-NAME-AND-OPTIONS.2
 DEFCFUN.PARSE-NAME-AND-OPTIONS.3 DEFCFUN.PARSE-NAME-AND-OPTIONS.4
 DEFCFUN.PARSE-NAME-AND-OPTIONS.5 DEFCFUN.PARSE-NAME-AND-OPTIONS.6
 DEFCFUN.PARSE-NAME-AND-OPTIONS.7 DEFCFUN.PARSE-NAME-AND-OPTIONS.8
 TRANSLATE-UNDERSCORE-SEPARATED-NAME.TO-SYMBOL
 TRANSLATE-UNDERSCORE-SEPARATED-NAME.TO-STRING
 TRANSLATE-CAMELCASE-NAME.TO-SYMBOL TRANSLATE-CAMELCASE-NAME.TO-STRING
 TRANSLATE-CAMELCASE-NAME.TO-STRING-UPPER
 TRANSLATE-CAMELCASE-NAME.TO-SYMBOL-SPECIAL
 TRANSLATE-CAMELCASE-NAME.TO-STRING-SPECIAL
 TRANSLATE-NAME-FROM-FOREIGN.FUNCTION TRANSLATE-NAME-FROM-FOREIGN.VAR
 TRANSLATE-NAME-TO-FOREIGN.FUNCTION TRANSLATE-NAME-TO-FOREIGN.VAR
 DEFCFUN.CHAR DEFCFUN.DOCSTRING DEFCFUN.INT DEFCFUN.LONG
 DEFCFUN.LONG-LONG
Test DEFCFUN.UNSIGNED-LONG-LONG failed
Form: (LET ((ULLONG-MAX
             (1- (EXPT 2
                       (* 8
                          (FOREIGN-TYPE-SIZE :UNSIGNED-LONG-LONG))))))
        (EQL ULLONG-MAX (ULLONG ULLONG-MAX)))
Expected value: T
Actual value: NIL.
 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: "0.00".
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: "0.00".
 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: #<EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL  <at> 
                #x10044a2b02>.
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: #<EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL  <at> 
                #x10044ca4b2>.
 DEFCFUN.UNDEFINED DEFCFUN.DOUBLE26 DEFCFUN.FLOAT26 CALLBACKS.CHAR
 CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT CALLBACKS.UNSIGNED-SHORT
 CALLBACKS.INT CALLBACKS.UNSIGNED-INT CALLBACKS.LONG
 CALLBACKS.UNSIGNED-LONG CALLBACKS.LONG-LONG
 CALLBACKS.UNSIGNED-LONG-LONG CALLBACKS.FLOAT CALLBACKS.DOUBLE
 CALLBACKS.POINTER CALLBACKS.STRING CALLBACKS.STRING-NOT-DOCSTRING
 CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT CALLBACKS.VOID
 CALLBACKS.FUNCALL.1 CALLBACKS.FUNCALL.2
Test CALLBACKS.BFF.1 failed
Form: (CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))
Expected value: 2008547941
Actual value: -4558794935252564847.
Test CALLBACKS.BFF.2 failed
Form: (CALL-SUM-127 (CALLBACK SUM-127))
Expected value: 8166570665645582011
Actual value: 1869687968912265330.
 CALLBACKS.NON-EXISTANT CALLBACKS.DOUBLE26 CALLBACKS.DOUBLE26.FUNCALL
 CALLBACKS.FLOAT26 CALLBACKS.FLOAT26.FUNCALL 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
; While compiling (:ANONYMOUS-LAMBDA 148):
Warning: Free reference to undeclared variable *UPPERCASEINT2* assumed
         special.
Test FOREIGN-GLOBALS.REF.UPPERCASEINT2 failed
Form: *UPPERCASEINT2*
Expected value: 12345
Actual value: #<UNBOUND-VARIABLE  <at>  #x1004766e52>.
; While compiling (:ANONYMOUS-LAMBDA 149):
Warning: Free reference to undeclared variable *UPPER-CASE-INT2*
         assumed special.
Test FOREIGN-GLOBALS.REF.UPPER-CASE-INT2 failed
Form: *UPPER-CASE-INT2*
Expected value: 23456
Actual value: #<UNBOUND-VARIABLE  <at>  #x100476e542>.
; While compiling (:ANONYMOUS-LAMBDA 150):
Warning: Free reference to undeclared variable *MIXEDCASEINT2* assumed
         special.
Test FOREIGN-GLOBALS.REF.MIXEDCASEINT2 failed
Form: *MIXEDCASEINT2*
Expected value: 34567
Actual value: #<UNBOUND-VARIABLE  <at>  #x1004775c02>.
; While compiling (:ANONYMOUS-LAMBDA 151):
Warning: Free reference to undeclared variable *MIXED-CASE-INT2*
         assumed special.
Test FOREIGN-GLOBALS.REF.MIXED-CASE-INT2 failed
Form: *MIXED-CASE-INT2*
Expected value: 45678
Actual value: #<UNBOUND-VARIABLE  <at>  #x100477d2c2>.
 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 FOREIGN-GLOBALS.UNDEFINED.1 FOREIGN-GLOBALS.ERROR.1
 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
Test FOREIGN-ALLOC.10 failed
Form: (FOREIGN-FREE (FOREIGN-ALLOC :CHAR :COUNT 0))
Expected value: NIL
Actual value: 137439369376.
 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:;<=>? <at> 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: #<BABEL-ENCODINGS:CHARACTER-OUT-OF-RANGE  <at>  #x1003fb3602>.
 STRING.ENCODINGS.DEFAULT STRUCT.1 STRUCT.2 STRUCT.3 STRUCT.4
 STRUCT.NAMES STRUCT.5 STRUCT.STRING.1 STRUCT.STRING.2
 STRUCT.ALIGNMENT.1 STRUCT.ALIGNMENT.2 STRUCT.ALIGNMENT.3
 STRUCT.ALIGNMENT.4 STRUCT.ALIGNMENT.5 STRUCT.ALIGNMENT.6
 STRUCT.ALIGNMENT.7 STRUCT.NESTED-SETF STRUCT.ALIGNMENT.8
 STRUCT-WRAPPER.1 STRUCT-WRAPPER.2 UNION.1 ENUM.1 ENUM.2 ENUM.3
 BITFIELD.1 BITFIELD.2 BITFIELD.3 BITFIELD.4 MISC-TYPES.STRING+PTR
 MISC-TYPES.BOOLEAN.1 MISC-TYPES.BOOLEAN.2 MISC-TYPES.WRAPPER
 MISC-TYPES.SIZED-INTS MISC-TYPES.EXPAND.1 MISC-TYPES.EXPAND.2
 MISC-TYPES.EXPAND.3 MISC-TYPES.EXPAND.4 MISC-TYPES.EXPAND.5
 MISC-TYPES.EXPAND.6 FOREIGN-SYMBOL-POINTER.1 FOREIGN-SYMBOL-POINTER.2
; Foreign loading libdoesnotexistimsure.
 LIBRARY.ERROR.1 LIBRARY.T-CLAUSE SHAREABLE-VECTOR.1 SHAREABLE-VECTOR.2
21 out of 260 total tests failed: FUNCALL.VARARGS.DOUBLE, 
   DEFCFUN.UNSIGNED-LONG-LONG, DEFCFUN.NOOP, DEFCFUN.VARARGS.FLOAT, 
   DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2, 
   CALLBACKS.BFF.1, CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2, 
   FOREIGN-GLOBALS.REF.UPPER-CASE-INT2, 
   FOREIGN-GLOBALS.REF.MIXEDCASEINT2, 
   FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, 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.
16 unexpected failures: FUNCALL.VARARGS.DOUBLE, DEFCFUN.VARARGS.FLOAT, 
   DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2, 
   CALLBACKS.BFF.2, FOREIGN-GLOBALS.REF.UPPERCASEINT2, 
   FOREIGN-GLOBALS.REF.UPPER-CASE-INT2, 
   FOREIGN-GLOBALS.REF.MIXEDCASEINT2, 
   FOREIGN-GLOBALS.REF.MIXED-CASE-INT2, FOREIGN-ALLOC.10, POINTERP.4, 
   POINTERP.5, POINTER-EQ.NON-POINTERS.1, POINTER-EQ.NON-POINTERS.2, 
   NULL-POINTER-P.NON-POINTER.2.
T
CL-USER> 

_______________________________________________
cffi-devel mailing list
cffi-devel <at> common-lisp.net
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
Permalink | Reply | 1 comment |
headers
Luís Oliveira | 13 Mar 2012 20:12
Picon
Gravatar

Re: how to treat expected failures in tests

On Tue, Mar 13, 2012 at 3:40 PM, Robert Goldman <rpgoldman <at> sift.info> wrote:
> If this is the sort of thing you want, I will generate more of these.

What I meant was that cl-test-grid's output is not very informative
when there's a compilation error while loading the test suite. Does
that make sense?

--

-- 
Luís Oliveira
http://r42.eu/~luis/
Permalink | Reply | 0 comments |

Gmane