From 68dc8e07b4c4d9a1d0701d4dc2c72ce1ae893fdc Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Sun, 3 Aug 2014 22:56:24 +0200
Subject: [PATCH] When given --summary, refrain from writing to the terminal,
 fixing #102.

---
 src/parser.lisp | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/src/parser.lisp b/src/parser.lisp
index 6a0a002..1beb789 100644
--- a/src/parser.lisp
+++ b/src/parser.lisp
@@ -2365,14 +2365,11 @@ load database
 
       ;; maybe duplicate the summary to a file
       (let* ((summary-stream (when summary-pathname
-                              (open summary-pathname
-                                    :direction :output
-                                    :if-exists :rename
-                                    :if-does-not-exist :create)))
-             (*report-stream* (apply
-                               #'make-broadcast-stream
-                               (remove-if #'null (list *terminal-io*
-                                                       summary-stream)))))
+                               (open summary-pathname
+                                     :direction :output
+                                     :if-exists :rename
+                                     :if-does-not-exist :create)))
+             (*report-stream* (or summary-stream *terminal-io*)))
         (unwind-protect
              ;; run the commands
              (loop for func in funcs do (funcall func))