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