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: #+ccl
  (defun lisp-get-arglist (symbol)
    (when (fboundp symbol)
      (format nil "~a" (ccl:arglist symbol))))
  
  #+sbcl
  (defun lisp-get-arglist (symbol)
    (when (fboundp symbol)
      (ppcre:regex-replace-all
       "\\s+"
       (format nil "~a"
               (sb-introspect:function-lambda-list symbol))
       " ")))
  
  (defun lisp-search-arglist (string)
    (multiple-value-bind (x error-p)
        (ignore-errors
         (destructuring-bind (package symbol-name external-p)
  
negative.code:                symbol))))
      (when (and (not error-p)
                 (symbolp x))
        (funcall arglist-fn x))))
  
  (defun search-backward-arglist ()
    (save-excursion
  