anchor.diff:    :recurse :self)
   
   (define (fcll:lambda-list-kind :macro) defmacro
  -  (%derive-keywords-list :base :destructuring :add '(&environment))
  +  (%derive-keywords-list :from :destructuring :add '(&environment))
     :recurse :destructuring)
   
   (define (fcll:lambda-list-kind :boa) defstruct
  
positive.code:              :reader default
               :initform nil)))
  
  (defun %derive-keywords-list (&key (base :ordinary) add remove replace)
    (declare (ignore base add remove replace))
    nil)
  
  (define (fcll:lambda-list-kind :ordinary) defun
  
negative.code:   (%derive-keywords-list :add '(&environment) :remove '(&aux)))
  
  (define (fcll:lambda-list-kind :deftype) deftype
    (%derive-keywords-list :from :macro)
    :recurse :destructuring
    :default '*)
  
  