From e8e1e9ee75978ebdd7a6ddf944d40cf4d996e12b Mon Sep 17 00:00:00 2001
From: Hans Huebner <hans.huebner@gmail.com>
Date: Thu, 27 Dec 2012 14:02:22 +0100
Subject: fix a style-warning

---
 who.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
-- 
cgit v1.2.3