From 9c59f3e5e82a070077a001e10297886f690f13a3 Mon Sep 17 00:00:00 2001
From: Ryan Davis <ryan@acceleration.net>
Date: Wed, 30 Jan 2013 12:37:06 -0500
Subject: [PATCH] enable print-pretty for TAP results

---
 extensions/test-anything-protocol.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/extensions/test-anything-protocol.lisp b/extensions/test-anything-protocol.lisp
index fcbe753..3535f31 100644
--- a/extensions/test-anything-protocol.lisp
+++ b/extensions/test-anything-protocol.lisp
@@ -61,7 +61,8 @@ same before and after invocation."
   "write the test results to `stream` in TAP format. Returns the test
 results."
   (check-type test-results test-results-db)
-  (let ((i 0))
+  (let ((i 0)
+        (*print-pretty* T))
     (format stream "TAP version 13~%1..~d~%"
             (hash-table-count (database test-results)))
     (maphash
-- 
2.11.4.GIT