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:           (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))
  
negative.code: (define-editor-variable before-compile-functions '())
  
  (defparameter *default-port* 4005)
  (defparameter *localhost* "127.0.0.1")
  
  (defvar *connection-list* '())
  (defvar *connection* nil)
  