init.lisp

;;; IMPORTANT: slime and swank
;; SOURCE: `https://github.com/slime/slime'
(load (format nil "~A/swank-loader.lisp" *user-slime-directory*))

(swank-loader:init)

(defvar *swank-p* nil "Predicate representing whether or not a common lisp swank server is active.")

(defcommand run-swank () ()
  "Start a (persistent) swank server on port 4005."
  (setf *top-level-error-action* :break)
  (unless *swank-p*
    (progn
      (swank:create-server :port 4005 :style swank:*communication-style* :dont-close t)
      (setf *swank-p* t))))