ccl-init.lisp

;;; The following lines added by ql:add-to-init-file:
#-quicklisp
(let ((quicklisp-init #P"/wsr/lisp/quicklisp/setup.lisp"))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))


(defun start-swank-server (&key (port 4006))
  "Starts a swank-server on the localhost interface."
  (unless (find-package "SWANK")
    (ql:quickload :swank))
  (funcall (intern "CREATE-SERVER" "SWANK") :port port :style nil)
  (values))

(defun stop-swank-server (&key (port 4006))
  (funcall (intern "STOP-SERVER" "SWANK") :port port))