The following might be better. Code is: (mk-button :label (sb-ext:string-to-octets "foo äöüß bar" :external-format :utf-8))
The value of STRING is #(102 111 111 32 195 164 195 182 195 188
...), 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"
{AF96EE9}>)
Backtrace:
0: (SB-KERNEL:CHECK-TYPE-ERROR
STRING
#(102 111 111 32 195 164 195 182 195 188 ...)
STRING
NIL)
1: (CFFI:FOREIGN-STRING-ALLOC #<unavailable argument>)
2: ((SB-PCL::FAST-METHOD CFFI::TRANSLATE-TYPE-TO-FOREIGN
(T CFFI::FOREIGN-TYPEDEF))
#<unavailable argument>
#<unavailable argument>
#(102 111 111 32 195 164 195 182 195 188 ...)
#<CFFI::FOREIGN-TYPEDEF :GTK-STRING>)
3: (GTK-FFI::GTK_BUTTON_SET_LABEL
#.(SB-SYS:INT-SAP #X080A36A8)
#(102 111 111 32 195 164 195 182 195 188 ...))
4: (GTK-BUTTON-SET-LABEL
#.(SB-SYS:INT-SAP #X080A36A8)
#(102 111 111 32 195 164 195 182 195 188 ...))
5: ((LAMBDA
(SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1. SB-PCL::.ARG2. SB-PCL::.ARG3. SB-PCL::.ARG4.))
#<unavailable argument>
#<unavailable argument>
LABEL
BUTTON
#(102 111 111 32 195 164 195 182 195 188 ...)
NIL
NIL)
6: ((LAMBDA ()))
7: (CELLS::FINISH-BUSINESS)
8: (CELLS::CALL-WITH-INTEGRITY
#<unavailable argument>
(:OUTPUT NIL)
#<CLOSURE (LAMBDA #) {DB448A5}>)
9: ((SB-PCL::FAST-METHOD MD-AWAKEN (CELLS::MODEL-OBJECT))
#(8 NIL)
#<unavailable argument>
MAIN-WINDOW)
10: (TO-BE MAIN-WINDOW)
11: (START-APP MAIN-WINDOW)
[...]
________________________________________________________
Bis 50 MB Dateianhänge? Kein Problem!
http://www.digitaledienste.web.de/freemail/club/lp/?lp=7
_______________________________________________
cells-gtk-devel site list
[email protected]
http://common-lisp.net/mailman/listinfo/cells-gtk-devel
