anchor.diff:  (when (or (not (boundp '*lisp-timer*))
             (not (timer-alive-p *lisp-timer*)))
     (setf *lisp-timer*
  -        (start-idle-timer "lisp" 500 t 'lisp-idle-timer-function nil
  +        (start-idle-timer "lisp" 200 t 'lisp-idle-timer-function nil
                             (lambda (condition)
                               (pop-up-backtrace condition)
                               (stop-timer *lisp-timer*)))))
  
positive.code: (defun scan-current-package (check-package-fn)
    (save-excursion
      (loop (multiple-value-bind (result groups)
                (looking-at-line "\\(in-package (?:#?:|')([^\)]*)\\)")
              (when result
                (let ((package (funcall check-package-fn (aref groups 0))))
                  (when package
  
negative.code: (define-key *lisp-mode-keymap* (kbd "M-.") 'lisp-find-definitions)
  (define-command lisp-find-definitions () ()
    (multiple-value-bind (name error-p)
        (lisp-read-symbol "Find definitions: " 'mh-find-definitions t)
      (unless error-p
        (let ((defs))
          (dolist (def (lisp-find-definitions-internal name))
  