anchor.diff:                         " "
                          (lambda (window)
                            (leval-current-package
  -                          (window-buffer window)))))))
  +                          (window-buffer window)
  +                          nil))))))
   
   (defun leval-connect-internal (hostname port)
     (handler-case
  
positive.code: (defun leval-send-trace (string untrace-p package-name)
    (leval-send (list :trace string untrace-p package-name)))
  
  (defun leval-update-package (package-name)
    (let ((prev-package-name
           (buffer-get (window-buffer)
                       :leval-prev-package)))
      (when (or (null prev-package-name)
                (not (equal package-name prev-package-name)))
        (when (leval-send-find-package package-name)
          (buffer-put (window-buffer)
                      :leval-current-package package-name)
          (buffer-put (window-buffer)
                      :leval-prev-package package-name)
          t))))
  
  (defun leval-current-package (&optional (buffer (window-buffer)))
    (or (leval-send-find-package (lisp-buffer-package buffer))
        "COMMON-LISP-USER"))
  
  (defvar *leval-mode-keymap*
    (make-keymap "leval"))
  
negative.code:     (sleep 1)
      (unless (eq :refused-error
                  (leval-connect-internal
                   *leval-default-hostname*
                   *leval-default-port*))
        (unless *leval-connected-p*
          (leval-mode)
          (define-command lisp-mode () ()
  