fix a style-warning

1 files changed, 2 insertions, 1 deletions

diff --git a/who.lisp b/who.lisp
index 93da604..52a5ae3 100644
--- a/who.lisp
+++ b/who.lisp
@@ -296,7 +296,8 @@ supplied."
          ,@(apply 'tree-to-commands forms var rest)))))
 
 (defmacro with-html-output-to-string ((var &optional string-form
-                                           &key (element-type #-:lispworks ''character
+                                           &key #-(or :ecl :cmu :sbcl)
+                                                (element-type #-:lispworks ''character
                                                               #+:lispworks ''lw:simple-char)
                                                 prologue
                                                 indent)