A very simple wrapper for tcl/tk in common lisp inspired by the python tkinter package.
A small example of a window with one button.
(with-tk-root (r)
(setf (window-title r) "Hi!")
(pack (button :parent r
:text "Hello world"
:command (lambda ()
(window-destroy r)))))More examples are listed at the wiki.