anchor.diff:                         (declare (ignore value))
                          (when more
                            (no-parse "expected EOF" ',eof-symbol))
  -                       ',eof-symbol))))
  +                       (emit ',eof-symbol)))))
   
             ;; Now the nonterminals
             (dolist (nonterm nonterminals)
  
positive.code:          (declare (inline no-parse abort-parse emit)
                    (dynamic-extent #'no-parse #'abort-parse #'emit)
                    (ignorable #'no-parse #'abort-parse #'emit))
           (emit (progn ,@real-body))))))
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defun parser-part-name (thing)
  
negative.code:        (unless (typep value ',type)
           (no-parse "Token mismatch" ',name)))
  
       (emit (next iter))))
  
  (defmacro define-parser (name &body body)
    (let (result-forms)
  