anchor.diff:  		 ((null l))
   	       (princ l s) 
   	       (fresh-line s))))))
  -;;    (test-lexer body)
  +    (test-lexer body)
       (let ((forms (test-parser body)))
         (with-open-file (f (or outfile 
   			     (merge-pathnames (make-pathname :type "lisp")
  
positive.code:    (|{| enum-body-list |}| (select-n 1)))
  
    (enum-body-list 
     (identifier |=| value 
                 (lambda (a b c) (declare (ignore b)) 
  		       (list (list (intern (string-upcase a) :keyword) c))))
     (enum-body-list |,| identifier |=| value
                     (lambda (prev comma id eq val)
                       (declare (ignore comma eq))
  
negative.code: 
    (type-specifier 
     (unsigned int (lambda (u i) (declare (ignore u i)) :uint32))
     (unsigned (lambda (a) (declare (ignore a)) :uint32))
     (int (lambda (i) (declare (ignore i)) :int32))
     (unsigned hyper (lambda (u h) (declare (ignore u h)) :uint64))
     (hyper (lambda (h) (declare (ignore h)) :int64))
  