anchor.diff:  
             ;; Easiest stuff first.  The root node
             (send `(define-parser-part ,(parser-part-name name) (iter)
  -                   (,(parser-part-name start-symbol) iter)))
  +                   (return-from ,(parser-part-name name) (,(parser-part-name start-symbol) iter))))
   
             ;; Now parsers for the terminals
             (dolist (term terminals)
  
positive.code:                        (declare (ignore value))
                         (when more
                           (no-parse "expected EOF" ',eof-symbol))
                         ',eof-symbol))))
  
            ;; Now the nonterminals
            (dolist (nonterm nonterminals)
  
negative.code:          (declare (inline no-parse abort-parse emit)
                    (dynamic-extent #'no-parse #'abort-parse #'emit)
                    (ignorable #'no-parse #'abort-parse #'emit))
           (progn ,@real-body)
           (error "Explicit emit is required")))))
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defun parser-part-name (thing)
  