anchor.diff:         (check
   	,@(loop
   	     for c in cases
  -	     collect `(,parser-name ',(append c (list :$))))))))
  +	     collect (if accept-reject-p
  +			 `(,parser-name ',(append c (list :$)))
  +			 `(or (>= 15 (length ',(append c (list :$)))) (not (,parser-name ',(append c (list :$)))))))))))
   
   ;;;; TESTS
   
  
positive.code:   (:! :F  --> :id)
    (:! :F --> :num))
  
  (define-accept-test grammar-8-accept-test grammar-8-parser ()
    (list :id :$)
    (list :num :$)
  
negative.code:   (list :if :while :id :do :id := :num :end :then :else :end :$)
    (list :id := :while :id :do :end :$))
  
  (define-random-test grammar-12-random-accept-test grammar-12-parser 50 :S t
    (:S --> :STMTS)
    (:STMTS --> :STMT :STMTS)
    (:STMTS --> :eps)
  