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

[David Matthew Mattli]

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")