anchor.diff:                   first-terminal-character
                    (grammar-* first-terminal-character)
                    first-quote-symbol)
  -    (lambda (x) (list (list :terminal-string (format nil "~A~{~A~}" (cadr x) (caddr x))))))
  +    (lambda (x) (declare (ignore x))
  +            (subseq string (1+ start) (1- end))))
      (grammar-func
       (grammar-and second-quote-symbol
                    second-terminal-character
                    (grammar-* second-terminal-character)
                    second-quote-symbol)
  -    (lambda (x) (list (list :terminal-string (format nil "~A~{~A~}" (cadr x) (caddr x))))))))
  +    (lambda (x) (declare (ignore x))
  +            (subseq string (1+ start) (1- end))))))
   
   (grammar-rule gap-free-symbol
     "see 6.3"
  
positive.code: 
  (grammar-rule optional-sequence
    "see 4.11"
    (grammar-and start-option-symbol
                 definitions-list
                 end-option-symbol))
  
  (grammar-rule repeated-sequence
    "see 4.12"
    (grammar-and start-repeat-symbol
                 definitions-list
                 end-repeat-symbol))
  
  (grammar-rule grouped-sequence
    "see 4.13"
  
negative.code:   "see 4.14"
    (grammar-func (grammar-and letter
                               (grammar-* meta-identifier-character))
                  (lambda (x) (declare (ignore x))
                          (subseq string start end))))
    
  
  (grammar-rule special-sequence-character
  