ltk

GUIを作ってみたくなったのでltkを入れてみた。
CommonQtを使ってみたかったんだけどsmokeとかいうよーわからんのが必要だったからとりあえずやめといた。

(ql:quickload 'ltk)

ってやればインストール完了という手軽さ。

(ql:quickload :ltk)

(defun hello-1 ()
  (ltk:with-ltk ()
    (let ((b (make-instance 'ltk:button
                            :master nil
                            :text "Press Me"
                            :command (lambda ()
                                       (format t "Hello World!~&")))))
      (ltk:pack b))))

こんな感じでとりあえずできた。
requireとかin-packageとからへんがよくわからん。