Hi. I have the following code in my ~/.stumpwmrc to define a command that loads swank and binds it to a key combo:
(ql:quickload :swank)
(swank-loader:init)
(let ((server-running nil))
(defcommand swank () ()
(if server-running
(progn
(swank:stop-server 4005)
(echo-string
(current-screen)
"stopping swank")
(setf server-running nil))
(progn
(swank:create-server :port 4005
:style swank:*communication-style*
:dont-close t)
(echo-string (current-screen)
"starting swank. M-x slime-connect RET RET, then (in-package stumpwm)..")
(setf server-running t)))))
(define-key *root-map* (kbd "C-s") "swank")
That code used to work, but I've updated stumpwm a few times since I used that `swank` command last, and now this code doesn't work anymore.