Mercurial > hg > xemacs-beta

comparison src/print.c @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children b5df3737028a
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
1487 1487
1488 void 1488 void
1489 external_object_printer (Lisp_Object obj, Lisp_Object printcharfun, 1489 external_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
1490 int UNUSED (escapeflag)) 1490 int UNUSED (escapeflag))
1491 { 1491 {
1492 struct LCRECORD_HEADER *header = (struct LCRECORD_HEADER *) XPNTR (obj); 1492 LISP_OBJECT_HEADER *header = (LISP_OBJECT_HEADER *) XPNTR (obj);
1493 1493
1494 if (print_readably) 1494 if (print_readably)
1495 printing_unreadable_object 1495 printing_unreadable_object
1496 ("#<%s 0x%x>", 1496 ("#<%s 0x%x>",
1497 #ifdef NEW_GC 1497 #ifdef NEW_GC