Mercurial > hg > xemacs-beta

comparison src/fns.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents facf3239ba30
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
127 static const struct memory_description bit_vector_description[] = { 127 static const struct memory_description bit_vector_description[] = {
128 { XD_END } 128 { XD_END }
129 }; 129 };
130 130
131 131
132 DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("bit-vector", bit_vector, 132 DEFINE_SIZABLE_LISP_OBJECT ("bit-vector", bit_vector,
133 1, /*dumpable-flag*/ 133 mark_bit_vector,
134 mark_bit_vector, 134 print_bit_vector, 0,
135 print_bit_vector, 0, 135 bit_vector_equal,
136 bit_vector_equal, 136 bit_vector_hash,
137 bit_vector_hash, 137 bit_vector_description,
138 bit_vector_description, 138 size_bit_vector,
139 size_bit_vector, 139 Lisp_Bit_Vector);
140 Lisp_Bit_Vector);
141 140
142 141
143 DEFUN ("identity", Fidentity, 1, 1, 0, /* 142 DEFUN ("identity", Fidentity, 1, 1, 0, /*
144 Return the argument unchanged. 143 Return the argument unchanged.
145 */ 144 */
4000 Lisp_Object Qyes_or_no_p; 3999 Lisp_Object Qyes_or_no_p;
4001 4000
4002 void 4001 void
4003 syms_of_fns (void) 4002 syms_of_fns (void)
4004 { 4003 {
4005 INIT_LRECORD_IMPLEMENTATION (bit_vector); 4004 INIT_LISP_OBJECT (bit_vector);
4006 4005
4007 DEFSYMBOL (Qstring_lessp); 4006 DEFSYMBOL (Qstring_lessp);
4008 DEFSYMBOL (Qidentity); 4007 DEFSYMBOL (Qidentity);
4009 DEFSYMBOL (Qyes_or_no_p); 4008 DEFSYMBOL (Qyes_or_no_p);
4010 4009