anchor.diff:            (condition))
         (loop :repeat 10
               :do (handler-case
  -                    (let ((conn (slime-connect "localhost" *default-port* t)))
  +                    (let ((conn (slime-connect *localhost* *default-port* t)))
                         (setf (getf (connection-plist conn) 'run) t)
                         (setf successp t)
                         (return))
  
positive.code: (define-editor-variable before-compile-functions '())
  
  (defparameter *default-port* 4005)
  
  (defvar *connection-list* '())
  (defvar *connection* nil)
  
negative.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)
      (setf connection
            (new-connection hostname port))
      (message "Swank server running on ~A ~A"
               (connection-implementation-name connection)
               (connection-implementation-version connection))
  