anchor.diff:          (%print term)))))
   
   (defun parse-str (grammar str rule)
  -  (parser grammar (lexer grammar (make-string-input-stream str)) rule))
  +  (parser grammar (lexer (make-string-input-stream str) grammar) rule))
  
positive.code:     (reverse body)))
  
  (defmacro defparser (grammar &body rules)
    (let ((*grammar* grammar))
      (with-atn (transform (grammar->atn rules)) 
        (let ((parser-sym (gensym)))
          `(progn
  
negative.code:                    (parser::parser-error stream-rest :cons start-rule))
                   res)))
  
             (defmethod parser ((grammar (eql ,(make-keyword grammar))) stream &optional (start-rule ',(@extra :start-rule)))
               (,parser-sym stream start-rule)))))))
  
  
  