Fix for SGML mode

Here's a fix for boolean attribute value related typo demonstrated by the following code:
```commonlisp
(setf (cl-who:html-mode) :sgml)

(let ((v t))
  (cl-who:with-html-output (*standard-output*)
    (:input :type "text" :disabled v)))
```