[cl-opengl-devel] errors with cffi changes?

[Charlie McMackin]

Output from *break-on-signals* t  as I load cl-opengl:

 (BREAK
 "~A~%BREAK was entered because of *BREAK-ON-SIGNALS* ~
                    (now rebound to NIL)."
 #<TYPE-ERROR {AFA5109}>)
0] backtrace

0: (BREAK
    "~A~%BREAK was entered because of *BREAK-ON-SIGNALS* ~
                    (now rebound to NIL)."
    #<TYPE-ERROR {AFA5109}>)
1: (SIGNAL #<TYPE-ERROR {AFA5109}>)[:EXTERNAL]
2: (ERROR TYPE-ERROR)[:EXTERNAL]
3: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #XB7901F88)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7901C5C :TYPE (*
                                                            (SB-ALIEN:STRUCT

SB-VM::OS-CONTEXT-T-STRUCT))>
    (206 14))
4: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
    #<unavailable argument>
    #.(SB-SYS:INT-SAP #XB7901F88)
    #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB7901C5C :TYPE (*
                                                            (SB-ALIEN:STRUCT

SB-VM::OS-CONTEXT-T-STRUCT))>
    (206 14))[:EXTERNAL]
5: (SB-KERNEL:INTERNAL-ERROR
    #.(SB-SYS:INT-SAP #XB7901C5C)
    #<unavailable argument>)
6: ("foreign function: #x8063E2C")
7: ("foreign function: #x805224C")
8: ("foreign function: #x8056AAF")
9: ("foreign function: #x8056CE3")
10: (GENSYM NIL)[:EXTERNAL]
11: (ALEXANDRIA.0.DEV:MAKE-GENSYM-LIST 2 NIL)
12: (CFFI::%DEFCFUN
     NEW-LIST
     "glNewList"
     :VOID
     ((LIST UINT) (MODE ENUM))
     (:CALLING-CONVENTION :CDECL :LIBRARY OPENGL)
     NIL)
13: (MACROEXPAND-1
     (DEFCFUN ("glNewList" NEW-LIST :LIBRARY OPENGL) :VOID (LIST UINT)
              (MODE ENUM))
     #<NULL-LEXENV>)
14: (SB-C::PREPROCESSOR-MACROEXPAND-1
     (DEFCFUN ("glNewList" NEW-LIST :LIBRARY OPENGL) :VOID (LIST UINT)
              (MODE ENUM)))
15: ((FLET SB-C::DEFAULT-PROCESSOR)
     (DEFCFUN ("glNewList" NEW-LIST :LIBRARY OPENGL) :VOID (LIST UINT)
              (MODE ENUM)))
16: (SB-C::PROCESS-TOPLEVEL-FORM
     (DEFCFUN ("glNewList" NEW-LIST :LIBRARY OPENGL) :VOID (LIST UINT)
              (MODE ENUM))
     ((PROGN
       (DECLAIM (INLINE NEW-LIST))
       (DEFCFUN ("glNewList" NEW-LIST :LIBRARY OPENGL) :VOID (LIST UINT)
                (MODE ENUM)))
      SB-C::ORIGINAL-SOURCE-START 0 3)
     NIL)
17: (SB-C::PROCESS-TOPLEVEL-PROGN
     ((DECLAIM (INLINE NEW-LIST))
      (DEFCFUN ("glNewList" NEW-LIST :LIBRARY OPENGL) :VOID (LIST UINT)
               (MODE ENUM)))
     ((PROGN
       (DECLAIM (INLINE NEW-LIST))
       (DEFCFUN ("glNewList" NEW-LIST :LIBRARY OPENGL) :VOID (LIST UINT)
                (MODE ENUM)))
      SB-C::ORIGINAL-SOURCE-START 0 3)
     NIL)
18: (SB-C::PROCESS-TOPLEVEL-FORM
     (PROGN
      (DECLAIM (INLINE NEW-LIST))
      (DEFCFUN ("glNewList" NEW-LIST :LIBRARY OPENGL) :VOID (LIST UINT)
               (MODE ENUM)))
     (SB-C::ORIGINAL-SOURCE-START 0 3)
     NIL)
19: ((FLET SB-C::DEFAULT-PROCESSOR)
     (DEFGLFUN ("glNewList" NEW-LIST) :VOID (LIST UINT) (MODE ENUM)))
20: (SB-C::PROCESS-TOPLEVEL-FORM
     (DEFGLFUN ("glNewList" NEW-LIST) :VOID (LIST UINT) (MODE ENUM))
     (SB-C::ORIGINAL-SOURCE-START 0 3)
     NIL)
21: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
22: ((LAMBDA ()))
23: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {AF8015D}>)[:EXTERNAL]
24: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
25: (COMPILE-FILE #P"/home/charlie/opengl/cl-opengl/gl/funcs.lisp")[:EXTERNAL]