anchor.diff:            (go :START)))
         (slime-connect *localhost* port nil)
         (update-buffer-package)
  -      (setf self-connected-port port))))
  +      (setf self-connected-port port)))
  +  (defun self-connectionp (c)
  +    (and (typep c 'connection)
  +         (member (connection-hostname c) '("127.0.0.1" "localhost") :test 'equal)
  +         (ignore-errors (equal (connection-pid c) (swank/backend:getpid)))
  +         (= (connection-port c) self-connected-port)
  +         :self)))
   
   (defun check-connection ()
     (unless (connected-p)
  
positive.code: (define-key *lisp-mode-keymap* "C-c C-d d" 'lisp-describe-symbol)
  (define-key *lisp-mode-keymap* "C-c C-z" 'lisp-switch-to-repl-buffer)
  (define-key *lisp-mode-keymap* "C-c z" 'lisp-switch-to-repl-buffer)
  
  (defun change-current-connection (conn)
    (when *connection*
  
negative.code:         (lem.menu-mode:append-menu-item item (if (eq c *connection*) "*" " "))
          (lem.menu-mode:append-menu-item item (connection-hostname c))
          (lem.menu-mode:append-menu-item item (connection-port c))
          (lem.menu-mode:append-menu-item item (or (self-connectionp c) (connection-pid c)))
          (lem.menu-mode:append-menu-item item (connection-implementation-name c))
          (lem.menu-mode:append-menu-item item (connection-implementation-version c))
          (lem.menu-mode:append-menu menu item)))
  