--- release/who.lisp 2010-09-14 20:49:43.000000000 +0530 +++ distfiles/cl-who-0.11.1/who.lisp 2008-03-28 04:47:55.000000000 +0530 @@ -52,11 +52,7 @@ ((:xml) (setf *html-mode* :xml *empty-tag-end* " />" - *prologue* "")) - ((:html5) - (setf *html-mode* :html5 - *empty-tag-end* " />" - *prologue* "")))) + *prologue* "")))) (declaim (inline escape-char)) (defun escape-char (char &key (test *escape-char-p*))