Merge pull request #15 from stassats/master

Add a type-check for a stream in with-html-output.

1 files changed, 1 insertions, 0 deletions

diff --git a/who.lisp b/who.lisp
index 0695ef7..b2d0337 100644
--- a/who.lisp
+++ b/who.lisp
@@ -280,6 +280,7 @@ supplied."
   (multiple-value-bind (declarations forms) (extract-declarations body)
   `(let ((,var ,(or stream var)))
        ,@declarations
+     (check-type ,var stream)
      (macrolet ((htm (&body body)
                   `(with-html-output (,',var nil :prologue nil :indent ,,indent)
                      ,@body))