diff src/print.c @ 185:3d6bfa290dbd r20-3b19

Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents e121b013d1f0
children b405438285a2
line wrap: on
line diff
--- a/src/print.c	Mon Aug 13 09:54:24 2007 +0200
+++ b/src/print.c	Mon Aug 13 09:55:28 2007 +0200
@@ -928,14 +928,14 @@
 
   switch (XTYPE (obj))
     {
-    case Lisp_Int:
+    case Lisp_Type_Int:
       {
 	sprintf (buf, "%ld", (long) XINT (obj));
 	write_c_string (buf, printcharfun);
 	break;
       }
 
-    case Lisp_Char:
+    case Lisp_Type_Char:
       {
 	/* God intended that this be #\..., you know. */
 	Emchar ch = XCHAR (obj);
@@ -974,7 +974,7 @@
 	break;
       }
 
-    case Lisp_String:
+    case Lisp_Type_String:
       {
 	Bytecount size = XSTRING_LENGTH (obj);
 	struct gcpro gcpro1, gcpro2;
@@ -1041,7 +1041,7 @@
 	break;
       }
 
-    case Lisp_Cons:
+    case Lisp_Type_Cons:
       {
 	struct gcpro gcpro1, gcpro2;
 
@@ -1104,7 +1104,7 @@
       }
 
 #ifndef LRECORD_VECTOR
-    case Lisp_Vector:
+    case Lisp_Type_Vector:
       {
 	/* If deeper than spec'd depth, print placeholder.  */
 	if (INTP (Vprint_level)
@@ -1121,14 +1121,14 @@
 #endif /* !LRECORD_VECTOR */
 
 #ifndef LRECORD_SYMBOL
-    case Lisp_Symbol:
+    case Lisp_Type_Symbol:
       {
         print_symbol (obj, printcharfun, escapeflag);
         break;
       }
 #endif /* !LRECORD_SYMBOL */
 
-    case Lisp_Record:
+    case Lisp_Type_Record:
       {
 	struct lrecord_header *lheader = XRECORD_LHEADER (obj);
 	struct gcpro gcpro1, gcpro2;
@@ -1640,8 +1640,8 @@
 After that comes an integer precision specification,
 and then a letter which controls the format.
 The letters allowed are `e', `f' and `g'.
-Use `e' for exponential notation \"DIG.DIGITSeEXPT\"
-Use `f' for decimal point notation \"DIGITS.DIGITS\".
+Use `e' for exponential notation "DIG.DIGITSeEXPT"
+Use `f' for decimal point notation "DIGITS.DIGITS".
 Use `g' to choose the shorter of those two formats for the number at hand.
 The precision in any of these cases is the number of digits following
 the decimal point.  With `f', a precision of 0 means to omit the
@@ -1697,7 +1697,7 @@
 those which were made with `make-symbol' or by calling `intern' with a
 second argument.
 
-When print-gensym is true, such symbols will be preceded by \"#:\", which
+When print-gensym is true, such symbols will be preceded by "#:", which
 causes the reader to create a new symbol instead of interning and returning
 an existing one.  Beware: the #: syntax creates a new symbol each time it is
 seen, so if you print an object which contains two pointers to the same