Mercurial > hg > xemacs-beta

comparison src/data.c @ 5473:ac37a5f7e5be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 17 Mar 2011 23:42:59 +0100
parents 89331fa1c819 d967d96ca043
children 4dee0387b9de
comparison
equal deleted inserted replaced
5472:e79980ee5efe 5473:ac37a5f7e5be
177 Return t if the two args are the same Lisp object. 177 Return t if the two args are the same Lisp object.
178 */ 178 */
179 (object1, object2)) 179 (object1, object2))
180 { 180 {
181 return EQ_WITH_EBOLA_NOTICE (object1, object2) ? Qt : Qnil; 181 return EQ_WITH_EBOLA_NOTICE (object1, object2) ? Qt : Qnil;
182 }
183
184 DEFUN ("old-eq", Fold_eq, 2, 2, 0, /*
185 Return t if the two args are (in most cases) the same Lisp object.
186
187 Special kludge: A character is considered `old-eq' to its equivalent integer
188 even though they are not the same object and are in fact of different
189 types. This is ABSOLUTELY AND UTTERLY HORRENDOUS but is necessary to
190 preserve byte-code compatibility with v19. This kludge is known as the
191 \"char-int confoundance disease\" and appears in a number of other
192 functions with `old-foo' equivalents.
193
194 Do not use this function!
195 */
196 (object1, object2))
197 {
198 /* #### blasphemy */
199 return HACKEQ_UNSAFE (object1, object2) ? Qt : Qnil;
200 } 182 }
201 183
202 DEFUN ("null", Fnull, 1, 1, 0, /* 184 DEFUN ("null", Fnull, 1, 1, 0, /*
203 Return t if OBJECT is nil. 185 Return t if OBJECT is nil.
204 */ 186 */
3564 3546
3565 #ifdef HAVE_RATIO 3547 #ifdef HAVE_RATIO
3566 DEFSUBR (Fdiv); 3548 DEFSUBR (Fdiv);
3567 #endif 3549 #endif
3568 DEFSUBR (Feq); 3550 DEFSUBR (Feq);
3569 DEFSUBR (Fold_eq);
3570 DEFSUBR (Fnull); 3551 DEFSUBR (Fnull);
3571 Ffset (intern ("not"), intern ("null")); 3552 Ffset (intern ("not"), intern ("null"));
3572 DEFSUBR (Flistp); 3553 DEFSUBR (Flistp);
3573 DEFSUBR (Fnlistp); 3554 DEFSUBR (Fnlistp);
3574 DEFSUBR (Ftrue_list_p); 3555 DEFSUBR (Ftrue_list_p);