anchor.diff:  (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)
  +(define-key *lisp-mode-keymap* "C-c C-b" 'lisp-connection-list)
   
   (defun change-current-connection (conn)
     (when *connection*
  
positive.code:      :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")))
                              (current-buffer))
    (setf (variable-value 'beginning-of-defun-function) 'lisp-beginning-of-defun)
    (setf (variable-value 'end-of-defun-function) 'lisp-end-of-defun)
  
negative.code:           (go :START)))
        (slime-connect *localhost* port nil)
        (update-buffer-package)
        (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)
  