anchor.diff:  
   (make-instance 'fcll:standard-lambda-list-kind
                  :name :ordinary
  +               :operator 'lambda
                  :keywords '(:required &optional &rest &key &aux)) ;&allow-other-keys is subordinate to &key, so implied by it.
   
   (make-instance 'fcll:standard-lambda-list-kind
                  :name :generic-function
  +               :operator 'defgeneric
                  :keywords (%derive-keywords-list :replace `((&optional ,(%no-defaulting '&optional))
                                                              (&key ,(%no-defaulting '&key)))
                                                   :remove '(&aux)))
   
   (make-instance 'fcll:standard-lambda-list-kind
                  :name :specialized
  +               :operator 'defmethod
                  :keywords (%derive-keywords-list :replace '((:required :required-specializable))))
   
   (make-instance 'fcll:standard-lambda-list-kind
                  :name :destructuring
  +               :operator 'destructuring-bind
                  :keywords (%derive-keywords-list :add '(&whole &body))
                  :recurse :self)
   
   (make-instance 'fcll:standard-lambda-list-kind
                  :name :macro
  +               :operator 'defmacro
                  :keywords (%derive-keywords-list :base :destructuring :add '(&environment))
                  :recurse :destructuring)
   
  
positive.code: 
  (make-instance 'fcll:standard-lambda-list-kind
                 :name :defsetf
                 :keywords (%derive-keywords-list :add '(&environment) :remove '(&aux)))
  
  (make-instance 'fcll:standard-lambda-list-kind
                 :name :deftype
                 :keywords (%derive-keywords-list :base :macro)
                 :recurse :destructuring
                 :default '*)
  
  (make-instance 'fcll:standard-lambda-list-kind
                 :name :define-modify-macro
                 :keywords (%derive-keywords-list :remove '(&key &aux)))
  
  (make-instance 'fcll:standard-lambda-list-kind
                 :name :define-method-combination-arguments
                 :keywords (%derive-keywords-list :add '(&whole)))
  
negative.code: (defclass fcll:standard-lambda-list-kind (fcll:lambda-list-kind)
    ((%name :initarg :name
            :reader name)
     (%operator :initarg :operator
                :reader operator)
     (%keywords :initarg :keywords
                :reader keywords)
     (%recurse :initarg :recurse
  