From 6837c25e01563108c1179b992d1a018a762d5abc Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Mon, 16 Dec 2013 09:03:39 +0000
Subject: [PATCH] improve print-object for accept-tree-node

only display the (unparsed) accept string if we are printing
the root node
---
 accept-specializer.lisp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/accept-specializer.lisp b/accept-specializer.lisp
index 99149a1..4ebe091 100644
--- a/accept-specializer.lisp
+++ b/accept-specializer.lisp
@@ -62,9 +62,11 @@
                (setf first nil))))
          tree)))))
 (defmethod print-object ((o accept-node) s)
-  (pprint-logical-block (s nil)
-    (print-unreadable-object (o s :type t)
-      (print-accept-tree o s))))
+  (if (accept-node-name o)
+      (call-next-method)
+      (pprint-logical-block (s nil)
+        (print-unreadable-object (o s :type t)
+          (print-accept-tree o s)))))
 
 (defun q (media-type accept-tree)
   (let* ((pos (position #\/ media-type))
-- 
2.30.2