anchor.diff:       (go-to-car)
        (let ((name (lisp-looking-at-symbol-name)))
          (multiple-value-bind (arglist)
  -           (lisp-search-arglist name)
  +           (lisp-search-arglist name #'lisp-get-arglist-string)
            (cond (arglist
                   (return (values (format nil "~A: ~A" name arglist) t)))
                  ((not (up-list 1 t))
  
positive.code:          (pos (and string (position #\: string :from-end t)))
           (name (if (and pos (plusp pos))
                     (subseq string (1+ pos))
                     string)))
      (cond ((and name (gethash name *indent-table*)))
            ((ppcre:scan "^(?:def|with-|do-)" name)
             0))))
  
  (defun go-to-car ()
    (loop :while (backward-sexp 1 t) :count t))
  
negative.code:                symbol))))
      (when (and (not error-p)
                 (symbolp x))
        (funcall arglist-fn x))))
  
  (defun search-backward-arglist ()
    (save-excursion
  