(let* ((char-after-tag (char xmlstr endtag)))
(declare (character char-after-tag))
(if (or (char= #\> char-after-tag) (char= #\space char-after-tag))
(let* ((char-after-tag (char xmlstr endtag)))
(declare (character char-after-tag))
(if (or (char= #\> char-after-tag) (char= #\space char-after-tag))