anchor.diff:                                 (char-before 1)
                                  -2))
   
  -(defun sexp-goto-car () ()
  +(defun sexp-goto-car (limit-linum)
     (let ((point (point)))
       (do ((end-linum (point-linum point)))
           ((let ((point (point)))
  
positive.code:                t))
           t)
        (let ((start-linum (point-linum (point))))
          (when (< 100 (- end-linum start-linum))
            (point-set point)
            (return nil))))))
  
  
negative.code: 
  (defun lisp-echo-arglist (get-arglist-function)
    (save-excursion
     (when (sexp-goto-car 100)
       (let* ((start (point))
              (end (progn (forward-sexp 1 t) (point))))
         (multiple-value-bind (arglist)
  