improve print-object for accept-tree-node

[specializable.git] / accept-specializer.lisp

diff --git a/accept-specializer.lisp b/accept-specializer.lisp
index 99149a1ebd12e6caf33d16e37458de1407571175..4ebe09192334d3420b81101dac3cdc0997325e4b 100644 (file)
--- 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))