anchor.diff:  (defun p/default-decl (input)
     ;; [60] DefaultDecl ::= '#REQUIRED' | '#IMPLIED'
     ;;                       | (('#FIXED' S)? AttValue) /* VC: Required Attribute */
  -  ;;                       
  +  ;;
     ;; /* VC: Attribute Default Legal */
     ;; /* WFC: No < in Attribute Values */
     ;; /* VC: Fixed Attribute Default */
     (multiple-value-bind (cat sem) (peek-token input)
  -    (cond ((eq cat :|#REQUIRED|) 
  +    (cond ((eq cat :|#REQUIRED|)
              (consume-token input) :REQUIRED)
  -          ((eq cat :|#IMPLIED|)  
  +          ((eq cat :|#IMPLIED|)
              (consume-token input) :IMPLIED)
             ((eq cat :|#FIXED|)
              (consume-token input)
  
positive.code:                     t)))))))
  
  (defun negative-test-file (filename)
    (multiple-value-bind (nodes condition) 
        (ignore-errors (parse-file filename))
      (declare (ignore nodes))
      (cond (condition
  
negative.code: ;;; make-rod-hashtable
  ;;; rod-hash-get hashtable rod &optional start end -> value ; successp
  ;;; (setf (rod-hash-get hashtable rod &optional start end) new-value
  ;;;
  
  (defstruct (rod-hashtable (:constructor make-rod-hashtable/low))
    size          ;size of table
  