diff src/print.c @ 57961:7dd13ac27ed7

(print_object): Print Lisp_Misc_Save_Value objects.

--- 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;
 	}