anchor.diff:                         " "
                          (lambda (window)
                            (leval-current-package
  -                          (window-buffer window)))))))
  +                          (window-buffer window)
  +                          nil))))))
   
   (defun leval-connect-internal (hostname port)
     (handler-case
  
positive.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 () ()
  
negative.code: (defun leval-send-trace (string untrace-p package-name)
    (leval-send (list :trace string untrace-p package-name)))
  
  (defun leval-current-package (&optional (buffer (window-buffer))
                                          (check-exists-package t))
    (let ((package (lisp-buffer-package buffer)))
      (if check-exists-package
          (or (leval-send-find-package package)
              "COMMON-LISP-USER")
          package)))
  
  (defvar *leval-mode-keymap*
    (make-keymap "leval"))
  