anchor.diff:                         ((and (walk (car x))
                                (walk (cdr x)))))))
           (walk cspec))))
  -                 
  +
   ;; wir fahren besser, wenn wir machen:
   
  -;; cspec ::= 'EMPTY' | 'ANY' | '#PCDATA' 
  +;; cspec ::= 'EMPTY' | 'ANY' | '#PCDATA'
   ;;         | Name
   ;;         | cs
   ;;    cs ::= '(' S? cspec ( S? '|' S? cspec)* S? ')' ('?' | '*' | '+')?
  
positive.code: ;; `base' yielding an absolute system identifier suitable for
  ;; OPEN-SYS-ID.
  
  ;; xstream Controller Protocol
  ;;
  ;; 
  
  
  #||
  (defun xml-parse (system-id &key document standalone-p)
    )
  ||#
  
  ;;;;;;;;;;;;;;;;;
  
  ;;; SAX validation handler
  
  (defclass validator ()
  
negative.code: 
  (defparameter *test-files*
      '(;;"jclark:xmltest;not-wf;*;*.xml"
        "jclark:xmltest;valid;*;*.xml"
        ;;"jclark:xmltest;invalid;*.xml"
        ))
  
  