anchor.diff:                      (swank:create-server :port port))
         (error ()
           (go :START)))
  -    (slime-connect "localhost" port nil)))
  +    (slime-connect "localhost" port nil)
  +    (update-buffer-package)))
   
   (defun check-connection ()
     (unless (connected-p)
  
positive.code:         (unless (line-offset p -1)
            (return))))))
  
  (defun idle-timer-function ()
    (when (and (eq (buffer-major-mode (current-buffer)) 'lisp-mode)
               (connected-p))
      (let ((package (scan-current-package (current-point))))
  
negative.code: (when (or (not (boundp '*idle-timer*))
            (not (timer-alive-p *idle-timer*)))
    (setf *idle-timer*
          (start-idle-timer "lisp" 110 t 'update-buffer-package nil
                            (lambda (condition)
                              (stop-timer *idle-timer*)
                              (pop-up-backtrace condition)))))
  