Mercurial > hg > xemacs-beta

comparison src/elhash.c @ 5520:05c1ad4f7a7b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Expand the documentation of #'eq-hash, mention the CL PRINT-OBJECT protocol 2011-06-19 Aidan Kehoe <kehoea@parhasard.net> * elhash.c (Feq_hash): Document that this returns, for non-immediate objects, a value that is unique among currently-reachable objects.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 19 Jun 2011 16:37:17 +0100
parents 4dee0387b9de
children 58b38d5b32d0
comparison
equal deleted inserted replaced
5519:bcd74c477a38 5520:05c1ad4f7a7b
2006 return LISP_HASH (obj); 2006 return LISP_HASH (obj);
2007 } 2007 }
2008 2008
2009 DEFUN ("eq-hash", Feq_hash, 1, 1, 0, /* 2009 DEFUN ("eq-hash", Feq_hash, 1, 1, 0, /*
2010 Return a hash value for OBJECT appropriate for use with `eq.' 2010 Return a hash value for OBJECT appropriate for use with `eq.'
2011
2012 If OBJECT is not immediate (it is not a fixnum or character) this hash value
2013 will be unique among currently-reachable objects, and is appropriate for
2014 implementing the Common Lisp PRINT-OBJECT protocol.
2011 */ 2015 */
2012 (object)) 2016 (object))
2013 { 2017 {
2014 return make_integer ((EMACS_INT) XPNTRVAL (object)); 2018 return make_integer ((EMACS_INT) XPNTRVAL (object));
2015 } 2019 }