;; -*-lisp-*-

(require :asdf)
(if (probe-file "/home/natsu")
    (push #p"/home/natsu/quicklisp/local-projects/stumpwm/"
          asdf:*central-registry*)
    (push #p"/home/user/quicklisp/local-projects/stumpwm/"
          asdf:*central-registry*))
;; (require :stumpwm)
;; (require :swank)
;; (swank-loader::setup)
;; (swank:create-server :dont-close t)
(ql:quickload "stumpwm")
;; (stumpwm:stumpwm ":1")
(stumpwm:stumpwm)
