From: Christophe Rhodes <csr21@cantab.net>
Date: Mon, 16 Dec 2013 09:03:39 +0000 (+0000)
Subject: improve print-object for accept-tree-node
X-Git-Tag: els2014-submission~24
X-Git-Url: http://christophe.rhodes.io/gitweb/?a=commitdiff_plain;h=6837c25e01563108c1179b992d1a018a762d5abc;p=specializable.git

improve print-object for accept-tree-node

only display the (unparsed) accept string if we are printing
the root node
---

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))