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