anchor.diff:                            :name "lisp-wait-message"))))
   
   (define-command slime-connect (hostname port &optional (start-repl t))
  -    ((list (prompt-for-string "Hostname: " "localhost")
  +    ((list (prompt-for-string "Hostname: " *localhost*)
              (parse-integer (prompt-for-string "Port: " (princ-to-string *default-port*)))
              t))
     (message "Connecting...")
     (let (connection)
  -    (handler-case (setf connection
  -                        (new-connection hostname port))
  -      (usocket:connection-refused-error (c)
  -        (editor-error "~A" c)))
  +    (setf connection
  +          (new-connection hostname port))
       (message "Swank server running on ~A ~A"
                (connection-implementation-name connection)
                (connection-implementation-version connection))
  
positive.code: (define-editor-variable before-compile-functions '())
  
  (defparameter *default-port* 4005)
  
  (defvar *connection-list* '())
  (defvar *connection* nil)
  
negative.code:           (condition))
        (loop :repeat 10
              :do (handler-case
                      (let ((conn (slime-connect *localhost* *default-port* t)))
                        (setf (getf (connection-plist conn) 'run) t)
                        (setf successp t)
                        (return))
  