anchor.diff:  
   (def-state-method state->action ((state mimic-state) results)
     (if (null (rest (@state-nexts state))) 
  -      `(,(@state-mimic-rule state) stream)
  +      `(,(fn-name-for-rule (@state-mimic-rule state)) stream)
         (let ((result-sym (gensym)))
           `(multiple-value-bind (,result-sym stream)
                (,(fn-name-for-rule (@state-mimic-rule state)) stream)
  
positive.code:         (%print term)))))
  
  (defun parse-str (grammar str rule)
    (parser grammar (lexer grammar (make-string-input-stream str)) rule))
  
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)))))))
  
  
  