anchor.diff:     (when (lambda-list-auxiliary-parameters self)
        (lambda-list-auxiliary-parameters self))))
   
  -
  +(defmethod make-parameter-list ((self lambda-list))
  +  (loop :for parameter :in (lambda-list-parameters self)
  +        :nconc (parameter-parameter-list parameter)))
   
   
   
  
positive.code:    "PARAMETER-INITFORM" "PARAMETER-INITFORM-P" "PARAMETER-KEYWORD"
     "PARAMETER-KEYWORD-P" "ENSURE-PARAMETER-KEYWORD"
     "PARAMETER-SPECIALIZER" "PARAMETER-SPECIALIZER-P"
     ;; Lambda-List Classes:
     "LAMBDA-LIST" "ORDINARY-LAMBDA-LIST" "BOA-LAMBDA-LIST"
     "SPECIALIZED-LAMBDA-LIST" "MODIFY-MACRO-LAMBDA-LIST" "GENERIC-LAMBDA-LIST"
  
negative.code: (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)
  