Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
18612:88efccff8970 18613:614b916ff5bf
1061 break; 1061 break;
1062 } 1062 }
1063 else 1063 else
1064 { 1064 {
1065 if (CONSP (printed_gensyms)) 1065 if (CONSP (printed_gensyms))
1066 XSETFASTINT (tem, XCDR (XCAR (printed_gensyms)) + 1); 1066 XSETFASTINT (tem, XFASTINT (XCDR (XCAR (printed_gensyms))) + 1);
1067 else 1067 else
1068 XSETFASTINT (tem, 1); 1068 XSETFASTINT (tem, 1);
1069 printed_gensyms = Fcons (Fcons (obj, tem), printed_gensyms); 1069 printed_gensyms = Fcons (Fcons (obj, tem), printed_gensyms);
1070 1070
1071 PRINTCHAR ('#'); 1071 PRINTCHAR ('#');