anchor.diff:  (defun function-name (function)
     (let* (#+sbcl
            (function (maybe-find-encapsulated-function function))
  -         (name (swank-backend:function-name function)))
  +         (name #+clisp (system::function-name function)
  +               #-clisp (swank-backend:function-name function)))
       ;; ABCL has function names like (FOO (SYSTEM::INTERPRETED)).
       (if (listp name)
           (first name)
           name)))
   
   (defun arglist (function-designator)
  +  #+abcl
  +  (multiple-value-bind (arglist foundp)
  +      (extensions:arglist function-designator)
  +    (cond (foundp arglist)
  +          ((typep function-designator 'generic-function)
  +           (mop:generic-function-lambda-list function-designator))
  +          ((and (symbolp function-designator)
  +                (typep (symbol-function* function-designator)
  +                       'generic-function))
  +           (mop:generic-function-lambda-list
  +            (symbol-function* function-designator)))))
     #+allegro
     (handler-case
         (let* ((symbol (if (symbolp function-designator)
  
positive.code: ;;; function we need is at the end of the encapsulation chain.
  (defun maybe-find-encapsulated-function (function)
    (declare (type function function))
    (if (eq (swank-backend:function-name function) 'sb-impl::encapsulation)
        (maybe-find-encapsulated-function
         (sb-impl::encapsulation-info-definition
          (sb-impl::encapsulation-info function)))
  
negative.code:             (second lambda-expression)
              (excl:arglist symbol)))
      (simple-error () :not-available))
    #-(or abcl allegro)
    (swank-backend:arglist function-designator))
  
  