From c54ef31ffa4870924c0ea0c86b7e1b952934e51c Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 7 Dec 2010 09:59:27 +0000
Subject: [PATCH] (print_concord_object): Use readable form even if
 `print-readably' is nil.

---
 src/concord.c |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/concord.c b/src/concord.c
index f860af7..e68f390 100644
--- a/src/concord.c
+++ b/src/concord.c
@@ -375,8 +375,10 @@ print_concord_object (Lisp_Object obj,
   Lisp_CONCORD_Object* lcobj = XCONCORD_OBJECT (obj);
   struct gcpro gcpro1, gcpro2;
 
-  if (print_readably)
+#if 0
+  if ( print_readably )
     {
+#endif
       write_c_string ("#s(concord-object", printcharfun);
       write_c_string (" genre ", printcharfun);
       write_c_string (concord_genre_get_name (lcobj->genre), printcharfun);
@@ -385,6 +387,7 @@ print_concord_object (Lisp_Object obj,
       print_internal (lcobj->id, printcharfun, escapeflag);
       UNGCPRO;
       write_c_string (")", printcharfun);
+#if 0
     }
   else
     {
@@ -396,6 +399,7 @@ print_concord_object (Lisp_Object obj,
       UNGCPRO;
       write_c_string ("\">", printcharfun);
     }
+#endif
 }
 
 static void
-- 
1.7.10.4