(defun setup-swank ()
  (swank-loader:init)
  (swank:create-server :port 4444
               :style swank:*communication-style*
               :dont-close t))