From 459c830b895b8e7e0ad5e2664f67b134b4edfeb2 Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Sun, 17 Nov 2013 12:28:52 +0400
Subject: Add a type-check for a stream in with-html-output.

Avoids confusion caused in Issue #14.
---
 who.lisp | 1 +
 1 file changed, 1 insertion(+)

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