Found this small bug.

TILE-TEST * (tile-test)

debugger invoked on a TYPE-ERROR in thread #<THREAD "initial thread" {1002445C91}>: The value NIL is not of type STREAM.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name): 0: [ABORT] Exit debugger, returning to top level.

((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND (LTK::TKVARIABLE)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE # {10033B9679}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CHECK-BUTTON {100260BEB1}>)[:EXTERNAL] 0]

and this patch corrects it:

--- ltk-tile.lisp.orig 2008-04-27 08:45:27.000000000 +0200 +++ ltk-tile.lisp 2008-04-27 08:46:09.000000000 +0200 @@ -57,8 +57,8 @@ (format-wish "style default ~A ~{ -~(~a~) {~a}~}" style params))

(defun tile-test () - (activate-tile) (with-ltk () + (activate-tile) (let* ((mb (make-menubar)) (mtheme (make-menu mb "Theme" )) (b (make-instance 'button :text "a button"))