Mercurial > emacs

diff src/print.c @ 18613:614b916ff5bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bugs with inappropriate mixing of Lisp_Object with int.
author Richard M. Stallman <rms@gnu.org>
date Fri, 04 Jul 1997 20:44:52 +0000
parents 913d2cc5a6aa
children e537071624ee
line wrap: on
line diff
--- a/src/print.c	Fri Jul 04 20:43:49 1997 +0000
+++ b/src/print.c	Fri Jul 04 20:44:52 1997 +0000
@@ -1063,7 +1063,7 @@
 		else
 		  {
 		    if (CONSP (printed_gensyms))
-		      XSETFASTINT (tem, XCDR (XCAR (printed_gensyms)) + 1);
+		      XSETFASTINT (tem, XFASTINT (XCDR (XCAR (printed_gensyms))) + 1);
 		    else
 		      XSETFASTINT (tem, 1);
 		    printed_gensyms = Fcons (Fcons (obj, tem), printed_gensyms);