From f54b0d9c78c58ff7232ea93d865748dcb1eeff25 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Tue, 21 Jun 2016 16:57:44 +0200
Subject: [PATCH] trace: print to *trace-output*

Fixes #236.
---
 src/lsp/trace.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/lsp/trace.lsp b/src/lsp/trace.lsp
index 1b330ffea..09bfaf709 100644
--- a/src/lsp/trace.lsp
+++ b/src/lsp/trace.lsp
@@ -181,7 +181,8 @@ all functions."
           (format *trace-output*
                   "~0,4@T\\\\ ~{ ~S~}~%"
                   extras))
-        *trace-output*))))
+        *trace-output*)
+      *trace-output*)))
 
 (defun trace-record (fname)
   (declare (si::c-local))