Stream param has been added to print-table function

poiuj · Jun 30, 2013 · d07e137 · d07e137
1 parent 3851d57
commit d07e137
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/text-table.lsp b/text-table.lsp
@@ -17,10 +17,10 @@
 
 (defconstant extra-ws 2)
 
-(defun print-table (tbl &key (header-delimiter #\=) (column-delimiter #\|) (row-delimiter #\Newline))
+(defun print-table (tbl &key (header-delimiter #\=) (column-delimiter #\|) (row-delimiter #\Newline) (stream *standard-output*))
   "prints table 'tbl' with delimiter 'delimiter' to the standard output"
   (macrolet ((write-no-escape (object)
-               `(write ,object :escape nil)))
+               `(write ,object :stream stream :escape nil)))
 
     (flet ((%print-row (row lengths)
              (loop