anchor.diff:  #+ccl
   (defun lisp-get-arglist (symbol)
     (when (fboundp symbol)
  -    (format nil "~a" (ccl:arglist symbol))))
  +    (ccl:arglist symbol)))
  +
  +#+ccl
  +(defun lisp-get-arglist-string (symbol)
  +  (let ((arglist (lisp-get-arglist symbol)))
  +    (when arglist
  +      (princ-to-string arglist))))
   
   #+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)
  +    (sb-introspect:function-lambda-list symbol)))
  +
  +#+sbcl
  +(defun lisp-get-arglist-string (symbol)
  +  (let ((arglist (lisp-get-arglist symbol)))
  +    (when arglist
  +      (ppcre:regex-replace-all
  +       "\\s+" (princ-to-string arglist) " "))))
  +
  +(defun lisp-search-arglist (string arglist-fn)
     (multiple-value-bind (x error-p)
         (ignore-errors
          (destructuring-bind (package symbol-name external-p)
  
positive.code:                symbol))))
      (when (and (not error-p)
                 (symbolp x))
        (lisp-get-arglist x))))
  
  (defun search-backward-arglist ()
    (save-excursion
  
negative.code:      (go-to-car)
       (let ((name (lisp-looking-at-symbol-name)))
         (multiple-value-bind (arglist)
             (lisp-search-arglist name #'lisp-get-arglist-string)
           (cond (arglist
                  (return (values (format nil "~A: ~A" name arglist) t)))
                 ((not (up-list 1 t))
  