anchor.diff:                  definitions-list
                   end-repeat-symbol)
      (lambda (x)
  -     (list (list :* (caaadr x))))))
  +     (list (list 'grammar-* (caadr x))))))
     
   
   (grammar-rule grouped-sequence
     "see 4.13"
  -  (grammar-and start-group-symbol
  -               definitions-list
  -               end-group-symbol))
  +  (grammar-func
  +   (grammar-and start-group-symbol
  +                definitions-list
  +                end-group-symbol)
  +   (lambda (x)
  +     (cadr x))))
   
   (grammar-rule empty-sequence
     "see 4.14"
  
positive.code:                 definitions-list
                  end-option-symbol)
     (lambda (x)
       (list (list :opt (caaadr x))))))
  
  (grammar-rule repeated-sequence
    "see 4.12"
  
negative.code:               repeated-sequence
                grouped-sequence
                meta-identifier
                (grammar-func terminal-string
                              (lambda (x)
                                (list (list 'grammar-string x))))
                special-sequence
                empty-sequence))
  
  (grammar-rule syntactic-factor
    "see 4.8"
    (grammar-func
     (grammar-and (grammar-optional (grammar-and ebnf-integer
                                                 repetition-symbol))
                  syntactic-primary)
     (lambda (x)
       (if (car x)
           (list 'grammar-n (read-from-string (caaar x))
                 (cadr x))
           (cadr x)))))
  
  (grammar-rule syntactic-exception
    "see 4.7"
  