Mercurial > hg > xemacs-beta

comparison src/data.c @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 41ff10fd062f
children 52952cbfc5b5
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
590 if (CHARP (object)) return Qcharacter; 590 if (CHARP (object)) return Qcharacter;
591 if (STRINGP (object)) return Qstring; 591 if (STRINGP (object)) return Qstring;
592 if (VECTORP (object)) return Qvector; 592 if (VECTORP (object)) return Qvector;
593 593
594 assert (LRECORDP (object)); 594 assert (LRECORDP (object));
595 return intern (XRECORD_LHEADER (object)->implementation->name); 595 return intern (XRECORD_LHEADER_IMPLEMENTATION (object)->name);
596 } 596 }
597 597
598 598
599 /* Extract and set components of lists */ 599 /* Extract and set components of lists */
600 600