# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1099694777 0
# Node ID 7dd13ac27ed790b74d3357c3131bfc8fe12f5873
# Parent  30f754d2119b53461c35dd783453f2bd5399e803
(print_object): Print Lisp_Misc_Save_Value objects.

diff -r 30f754d2119b -r 7dd13ac27ed7 src/print.c
--- a/src/print.c	Fri Nov 05 22:45:54 2004 +0000
+++ b/src/print.c	Fri Nov 05 22:46:17 2004 +0000
@@ -2085,6 +2085,15 @@
 	  PRINTCHAR ('>');
 	  break;
 
+	case Lisp_Misc_Save_Value:
+	  strout ("#<save_value ", -1, -1, printcharfun, 0);
+	  sprintf(buf, "ptr=0x%08x int=%d",
+		  (unsigned long) XSAVE_VALUE (obj)->pointer,
+		  XSAVE_VALUE (obj)->integer);
+	  strout (buf, -1, -1, printcharfun, 0);
+	  PRINTCHAR ('>');
+	  break;
+
 	default:
 	  goto badtype;
 	}