anchor.diff:    (setf (get-bvar :calc-indent-function)
           'lisp-calc-indent))
   
  -(defun %lisp-mode-skip-expr-prefix (c1 c2 step-arg)
  +(defun %lisp-mode-skip-expr-prefix (c1 c2 step-fn)
     (when c1
       (multiple-value-bind (unused-fn dispatch-char-p)
           (get-macro-character c1)
  
positive.code:       (when (and dispatch-char-p
                   (not (eql c2 #\())
                   (get-dispatch-macro-character c1 c2))
          (next-char step-arg)))))
  
  (defun lisp-mode-skip-expr-prefix-forward ()
    (%lisp-mode-skip-expr-prefix (char-after 0)
                                 (char-after 1)
                                 2))
  
  (defun lisp-mode-skip-expr-prefix-backward ()
    (%lisp-mode-skip-expr-prefix (char-before 2)
                                 (char-before 1)
                                 -2))
  
  (defun sexp-goto-car (limit-linum)
    (let ((point (point)))
  
negative.code:         (let ((defs
                 (loop :for (pathname form-path)
                   :in (collect-definitions name)
                   :collect
                   (list
                    (namestring pathname)
                    (let ((form-path-1 form-path))
                      #'(lambda ()
                          (beginning-of-buffer)
                          (when (let ((*lisp-mode-skip-features-sharp-macro-p* t))
                                  (forward-sexp form-path-1))
                            (backward-sexp 1))))))))
            (update-grep-list
             defs
             #'(lambda ()
  