anchor.diff:                              (sleep 0.1))))))
                     :name "lisp-wait-message"))
   
  -(define-command lisp-connect (hostname port &optional (start-repl t))
  +(define-command slime-connect (hostname port &optional (start-repl t))
       ((list (prompt-for-string "Hostname: " "localhost")
              (parse-integer (prompt-for-string "Port: " (princ-to-string *default-port*)))
              t))
  
positive.code:                     (swank:create-server :port port))
        (error ()
          (go :START)))
      (lisp-connect "localhost" port nil)))
  
  (defun check-connection ()
    (unless (connected-p)
  
negative.code:                             :wait nil
                              :search t))
    (sleep 1)
    (slime-connect "localhost" *default-port*)
    (add-hook *exit-editor-hook*
              (lambda ()
                (lisp-quit))))
  
  (define-command slime-quit () ()
    (when (and *process* (sb-ext:process-alive-p *process*))
      (sb-ext:process-kill *process* 9)
      (setf *connection* nil)))
  
  (define-command slime-restart () ()
    (lisp-quit)
    (sleep 1)
    (lisp))
  