anchor.diff:                        (swank:create-server :port port))
           (error ()
             (go :START)))
  -      (slime-connect "localhost" port nil)
  +      (slime-connect *localhost* port nil)
         (update-buffer-package)
         (setf self-connected-port port))))
   
  
positive.code:                           :name "lisp-wait-message"))))
  
  (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))
    (message "Connecting...")
    (let (connection)
      (handler-case (setf connection
                          (new-connection hostname port))
        (usocket:connection-refused-error (c)
          (editor-error "~A" c)))
      (message "Swank server running on ~A ~A"
               (connection-implementation-name connection)
               (connection-implementation-version connection))
  
negative.code: (define-editor-variable before-compile-functions '())
  
  (defparameter *default-port* 4005)
  (defparameter *localhost* "127.0.0.1")
  
  (defvar *connection-list* '())
  (defvar *connection* nil)
  