Zeno's Dichotomy by Supertask

* (defun html2xhtml (file &key (if-exists :error))
(with-open-file (out (make-pathname :type "xml" :defaults file)
:element-type '(unsigned-byte 8)
:if-exists if-exists
:direction :output)
(chtml:parse (pathname file)