anchor.diff:  (defmethod parameter-name-p ((self parameter))
     (slot-boundp self 'name))
   
  +(defmethod parameter-parameter-list ((parameter parameter))
  +  (if (parameter-indicator-p parameter)
  +      (list (parameter-name parameter)
  +            (parameter-indicator parameter))
  +      (list (parameter-name parameter))))
   
   (define-default-generic parameter-indicator     parameter nil)
   (define-default-generic parameter-indicator-p   parameter nil)
  
positive.code: (defgeneric make-flat-argument-list (self))
  (defgeneric make-flat-argument-list-form (self))
  (defgeneric make-lambda-list (self))
  
  ;;;--------------------
  
  (defclass parameter ()
  
negative.code:      (list (if rest
               (parameter-name (lambda-list-rest-parameter self))
               '())))))
  
  (defgeneric parameters-by-category (ll)
    (:method ((self lambda-list))
  