[cells-gtk-devel] Type error when form is run

[Peter Hildebrandt]

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 <dmm at mattli.us> 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 at common-lisp.net
>  http://common-lisp.net/mailman/listinfo/cells-gtk-devel
>