Hi,
quick shot from the hip: do you use cffi from darcs? cffi 0.9.2 does not work.
If that's not the problem, lemme know, and I'll look into it tomorrow.
Peter
On 6/12/08, David Matthew Mattli <[EMAIL PROTECTED]> wrote:
>
> Hello,
>
> Whenever I try to launch a window with start-win, for example by calling
> gtk-demo, I get a type error. I'm running Debian sid with SBCL
> 1.0.17.debian and the current cells-gtk3, cffi, alexandria, and babel from
> their
> respective repositories.
>
> Anyone have any idea what's going on? The output from the debugger is
> below.
>
> Thanks,
> David Mattli
>
> The value of STRING is #(71 84 75 32 84 101 115 116 105 110
> ...), which is not of type STRING.
> [Condition of type SIMPLE-TYPE-ERROR]
>
> Restarts:
> 0: [STORE-VALUE] Supply a new value for STRING.
> 1: [ABORT] Return to SLIME's top level.
> 2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread"
> {AEFFEA9}>)
>
> Backtrace:
> 0: (SB-KERNEL:CHECK-TYPE-ERROR STRING #(71 84 75 32 84 101 ...) STRING NIL)
> 1: (CFFI:FOREIGN-STRING-ALLOC #(71 84 75 32 84 101 ...))[:EXTERNAL]
> 2: (GTK-FFI::GTK_WINDOW_SET_TITLE #.(SB-SYS:INT-SAP #X080AF0D0) #(71 84 75
> 32 84 101 ...))
> 3: (GTK-FFI:GTK-WINDOW-SET-TITLE #.(SB-SYS:INT-SAP #X080AF0D0) "GTK
> Testing")
> 4: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
> SB-PCL::.ARG1. SB-PCL::.ARG2. SB-PCL::.ARG3. SB-PCL::.ARG4. SB-PCL::.ARG5.))
> #<unavailable argument> #<unavailable argument> CELLS-GTK:TITLE TEST-GTK "GTK
> Testing" NIL NIL NIL)
> 5: ((SB-PCL::FAST-METHOD CELLS:MD-AWAKEN (CELLS::MODEL-OBJECT))
> #<unavailable argument> #<unavailable argument> TEST-GTK)
> 6: ((SB-PCL::FAST-METHOD CELLS:MD-AWAKEN :AROUND (CELLS::MODEL-OBJECT))
> #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION
> (SB-PCL::FAST-METHOD CELLS:MD-AWAKEN #)> :PV NIL :NEXT-METHOD-CALL NIL
> :ARG-INFO (1)) TEST-GTK)
> 7: ((FLET CELLS::GO-GO))
> 8: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
> SB-PCL::.ARG1. SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT.
> SB-PCL::.DFUN-MORE-COUNT.)) #<unused argument> #<unused argument> TEST-GTK T
> -309288351 32)
> 9: ((SB-PCL::FAST-METHOD SHARED-INITIALIZE :AROUND (CELLS:MODEL T)) #(6 NIL
> 5 NIL) #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE
> (SB-C::&OPTIONAL-DISPATCH #) {D386D9D}> :PV NIL :NEXT-METHOD-CALL NIL
> :ARG-INFO (2 . T)) TEST-GTK T)[:EXTERNAL]
> 10: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
> SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT. SB-PCL::.DFUN-MORE-COUNT.)) #<unused
> argument> #<unused argument> TEST-GTK -309288255 32)
> 11: ((SB-PCL::FAST-METHOD MAKE-INSTANCE (CLASS)) #<unavailable argument>
> #<unavailable argument> #<STANDARD-CLASS TEST-GTK::TEST-GTK>)[:EXTERNAL]
> 12: (CELLS-GTK::SHOW-WIN TEST-GTK::TEST-GTK)[:EXTERNAL]
> 13: (CELLS-GTK:START-APP TEST-GTK::TEST-GTK)[:EXTERNAL]
> 14: (SB-INT:SIMPLE-EVAL-IN-LEXENV (TEST-GTK:GTK-DEMO) #<NULL-LEXENV>)
> 15: (SWANK::EVAL-REGION "(test-gtk:gtk-demo)
> ")
> Locals:
> SB-DEBUG::ARG-0 = "(test-gtk:gtk-demo)
> "
> 16: ((LAMBDA NIL))
> 17: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL) {CDD3D65}>)
> 18: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA NIL) {CDD3D4D}>)
> 19: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA NIL) {CDD3D4D}>)
> 20: (SWANK::REPL-EVAL "(test-gtk:gtk-demo)
> ")
> 21: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(test-gtk:gtk-demo)
> ") #<NULL-LEXENV>)
> 22: ((LAMBDA NIL))
> 23: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION
> SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {CDD3C0D}>)
> 24: ((LAMBDA NIL))
> 25: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION
> SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL) {AC073F5}>)
> 26: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {AE0B719}>
> #<CLOSURE (LAMBDA NIL) {CDD3B55}>)
> 27: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {AE0B719}> #<FUNCTION
> (LAMBDA NIL) {AC073F5}>)
> 28: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {AE0B719}>)
> 29: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AE0B719}>)
> 30: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AE0B719}>)[:EXTERNAL]
> 31: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA NIL) {AF1007D}>)
> 32: ((FLET SB-THREAD::WITH-MUTEX-THUNK))
> 33: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-MUTEX]489))
> 34: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET
> SB-THREAD::WITH-MUTEX-THUNK) {B6429215}> #S(SB-THREAD:MUTEX :NAME "thread
> result lock" :%OWNER #<SB-THREAD:THREAD "repl-thread" {AEFFEA9}> :STATE 1)
> #<SB-THREAD:THREAD "repl-thread" {AEFFEA9}> T)
> 35: ((LAMBDA NIL))
> 36: ("foreign function: #x8063AEC")
> 37: ("foreign function: #x8051FE1")
> 38: ("foreign function: #x805B51D")
> 39: ("foreign function: #xB7FB64B0")
> _______________________________________________
> cells-gtk-devel site list
> cells-gtk-devel@common-lisp.net
> http://common-lisp.net/mailman/listinfo/cells-gtk-devel
>
_______________________________________________
cells-gtk-devel site list
cells-gtk-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/cells-gtk-devel
