anchor.diff:  (defun read-tag (stream)
     (let ((next-2 (peek-char-n 2 stream)))
       (when (and (char= #\< (first next-2))
  -               (not (char= #\Space (second next-2))))
  +               (not (member (second next-2) *whitespace* :test #'char=)))
         (consume stream)
         (let ((name (read-name stream)))
           (if (and (<= 3 (length name))
  
positive.code: 
  (in-package #:org.tymoonnext.plump)
  
  (defvar *root* NIL)
  
  (defun peek-char-n (n stream)
  
negative.code:         do (case char
               ((#\/ #\> NIL)
                (return table))
               (#.*whitespace*
                (consume stream))
               (T
                (let ((entry (read-attribute stream)))
  