Common Lispのreplとstumpwmを同じプロセスで動かす

処理系はsbcl

;; run-stumpwm.lisp
(ql:quickload :stumpwm)

(defun run-stumpwm ()
  (sb-thread:make-thread
   #'(lambda ()
       (sb-thread:with-new-session ()
         (stumpwm:stumpwm)))))

(run-stumpwm)

xterm -e sbcl --load run-stumpwm.lisp で起動する

これでxterm上のsbclからstumpwmとやり取りできるようになった

参考ページ

http://www.geocities.co.jp/SiliconValley-SanJose/7474/cmuclMemo.html#0018

http://www.sbcl.org/1.0/manual/Sessions_002fDebugging.html