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