anchor.diff:               :reader default
                :initform nil)))
   
  -(defun %derive-keywords-list (&key (base :ordinary) add remove replace)
  -  (declare (ignore base add remove replace))
  +(defun %derive-keywords-list (&key (from :ordinary) add remove replace)
  +  (declare (ignore from add remove replace))
     nil)
   
   (define (fcll:lambda-list-kind :ordinary) defun
  
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:   (%derive-keywords-list :add '(&environment) :remove '(&aux)))
  
  (define (fcll:lambda-list-kind :deftype) deftype
    (%derive-keywords-list :from :macro)
    :recurse :destructuring
    :default '*)
  
  