anchor.diff:    :parameter-parser #'%parse-specializable-parameter)
   
   (define (fcll:lambda-list-keyword &optional) t
  -        :section-class (find-class 'standard-&optional-section)
  -        :parameter-parser #'%parse-optional-parameter
  -        :recursablep t)
  +  :section-class (find-class 'standard-&optional-section)
  +  :parameter-parser #'%parse-optional-parameter
  +  :recursablep t)
   
   (define (fcll:lambda-list-keyword :&optional-no-defaulting) t
     :parent '&optional
     :parameter-parser #'%parse-optional-no-defaulting-parameter)
   
   (define (fcll:lambda-list-keyword &rest) 1
  -        :section-class (find-class 'standard-&rest-section)
  -        :recursablep t)
  +  :section-class (find-class 'standard-&rest-section)
  +  :recursablep t)
   
   (define (fcll:lambda-list-keyword &body) 1
  -        :section-class (find-class 'standard-&rest-section)
  -        :recursablep t)
  +  :section-class (find-class 'standard-&rest-section)
  +  :recursablep t)
   
   (define (fcll:lambda-list-keyword &key) t
  -        :section-class (find-class 'standard-&key-section)
  -        :parameter-parser #'%parse-key-parameter
  -        :recursablep t
  -        :parser-maker '%make-&key-parser)
  +  :section-class (find-class 'standard-&key-section)
  +  :parameter-parser #'%parse-key-parameter
  +  :recursablep t
  +  :parser-maker '%make-&key-parser)
   
   (define (fcll:lambda-list-keyword :&key-no-defaulting) t
     :parent '&key
  
positive.code:   :parameter-parser #'%parse-key-no-defaulting-parameter)
  
  (define (fcll:lambda-list-keyword &allow-other-keys) 0
          :section-class (find-class 'subordinate-section))
  
  (define (fcll:lambda-list-keyword &aux) t
          :section-class (find-class 'standard-&aux-section)
          :parameter-parser #'%parse-aux-parameter)
  
  
  
  
negative.code: ;;; Lambda list keywords
  
  (define (fcll:lambda-list-keyword &whole) 1
    :section-class (find-class 'standard-&whole-section))
  
  (define (fcll:lambda-list-keyword :&environment-not-before-&whole) 1
    :introducer '&environment
  