anchor.diff:       :keymap *lisp-mode-keymap*
        :syntax-table lem-lisp-syntax:*syntax-table*)
     (modeline-add-status-list (lambda (window)
  -                              (format nil " [~A]" (buffer-package (window-buffer window) "CL-USER")))
  +                              (format nil " [~A~A]" (buffer-package (window-buffer window) "CL-USER")
  +                                      (if *connection*
  +                                          (format nil " ~A:~A"
  +                                                  (connection-implementation-name *connection*)
  +                                                  (or (self-connectionp *connection*)
  +                                                      (connection-pid *connection*)))
  +                                          "")))
                               (current-buffer))
     (setf (variable-value 'beginning-of-defun-function) 'lisp-beginning-of-defun)
     (setf (variable-value 'end-of-defun-function) 'lisp-end-of-defun)
  
positive.code:           (go :START)))
        (slime-connect *localhost* port nil)
        (update-buffer-package)
        (setf self-connected-port port))))
  
  (defun check-connection ()
    (unless (connected-p)
  
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)))
  