From: tomo <tomo>
Date: Sun, 16 Apr 2006 16:50:15 +0000 (+0000)
Subject: (print_concord_object): Support readable form.
X-Git-Tag: chise-base-0_23^20~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fc36fc593d3fe2728c886742c92ce0d4538c34d8;p=chise%2Fxemacs-chise.git.1

(print_concord_object): Support readable form.
---

diff --git a/src/concord.c b/src/concord.c
index 2d9c0a7..f0bc9c7 100644
--- a/src/concord.c
+++ b/src/concord.c
@@ -362,20 +362,30 @@ print_concord_object (Lisp_Object obj,
   struct gcpro gcpro1, gcpro2;
 
   if (print_readably)
-    error ("printing unreadable object #<concord_object 0x%x>",
-	   lcobj->header.uid);
-
-  write_c_string ("#<concord_object \"", printcharfun);
-  write_c_string (concord_ds_location
-		  (concord_genre_get_data_source (lcobj->genre)),
-		  printcharfun);
-  write_c_string (":", printcharfun);
-  write_c_string (concord_genre_get_name (lcobj->genre), printcharfun);
-  write_c_string (";", printcharfun);
-  GCPRO2 (obj, printcharfun);
-  print_internal (lcobj->id, printcharfun, escapeflag);
-  UNGCPRO;
-  write_c_string ("\">", printcharfun);
+    {
+      write_c_string ("#s(concord-object", printcharfun);
+      write_c_string (" genre ", printcharfun);
+      write_c_string (concord_genre_get_name (lcobj->genre), printcharfun);
+      write_c_string (" =id ", printcharfun);
+      GCPRO2 (obj, printcharfun);
+      print_internal (lcobj->id, printcharfun, escapeflag);
+      UNGCPRO;
+      write_c_string (")", printcharfun);
+    }
+  else
+    {
+      write_c_string ("#<concord-object \"", printcharfun);
+      write_c_string (concord_ds_location
+		      (concord_genre_get_data_source (lcobj->genre)),
+		      printcharfun);
+      write_c_string (":", printcharfun);
+      write_c_string (concord_genre_get_name (lcobj->genre), printcharfun);
+      write_c_string (";", printcharfun);
+      GCPRO2 (obj, printcharfun);
+      print_internal (lcobj->id, printcharfun, escapeflag);
+      UNGCPRO;
+      write_c_string ("\">", printcharfun);
+    }
 }
 
 static void