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