Starting remote SBCL repl

(defun launch-remote-lisp (&optional (port 10003))
  (let* ((cmd (format nil
                      "sbcl --eval \"(ql:quickload :channel-40x40x1)\" --eval \"(in-package :channel-40x40x1)\" --eval \"(swank:create-server :port ~d :dont-close t)\" " port)))
    (bt:make-thread
     (lambda ()
       (let ((exit-code (uiop:wait-process
                         (uiop:launch-program cmd))))
         (if (zerop exit-code)
             (print :success)
             (print :failure))))
     :name "Waiting for sbcl-port 10003")))