:external-format xf)
(loop for character across standard-characters
do (let ((got (read-char s)))
(unless (eql character got)
(error "wanted ~S, got ~S" character got)))))))
:external-format xf)
(loop for character across standard-characters
do (let ((got (read-char s)))
(unless (eql character got)
(error "wanted ~S, got ~S" character got)))))))