anchor.diff:                     :initform initform
                      :suppliedp-variable suppliedp-variable)))
   
  -(defclass aux-parameter (parameter-initform-mixin)
  +(defclass aux-parameter (parameter parameter-initform-mixin)
     ())
   
   (defun %parse-aux-parameter (parameter)
  
positive.code:                    :variable variable
                     :specializer specializer)))
  
  (defclass optional-parameter (parameter-initform-mixin parameter-suppliedp-variable-mixin)
    ())
  
  (defun %parse-optional-parameter (parameter)
  
negative.code:                    :variable variable
                     :initform initform)))
  
  (defclass key-parameter (parameter parameter-initform-mixin parameter-suppliedp-variable-mixin)
    ((%keyword-name :initarg :keyword-name
                    :reader keyword-name
                    :type symbol)))
  