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

Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents e45d5e7c476e
children 2c611d1463a6
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
848 depth + 1)); 848 depth + 1));
849 } 849 }
850 else if (LRECORDP (obj)) 850 else if (LRECORDP (obj))
851 { 851 {
852 CONST struct lrecord_implementation 852 CONST struct lrecord_implementation
853 *imp = XRECORD_LHEADER (obj)->implementation; 853 *imp = XRECORD_LHEADER_IMPLEMENTATION (obj);
854 if (imp->hash) 854 if (imp->hash)
855 return (imp->hash) (obj, depth); 855 return (imp->hash) (obj, depth);
856 } 856 }
857 857
858 return LISP_HASH (obj); 858 return LISP_HASH (obj);