Mercurial > hg > xemacs-beta

comparison src/data.c @ 1551:ddcdeb1a25c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-06-30 09:45:42 by stephent] docs <87el1b99y6.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Mon, 30 Jun 2003 09:45:43 +0000
parents 4542b72c005e
children 03009473262a
comparison
equal deleted inserted replaced
1550:6e7ace1ab32d 1551:ddcdeb1a25c4
76 { 76 {
77 if (debug_issue_ebola_notices 77 if (debug_issue_ebola_notices
78 && ((CHARP (obj1) && INTP (obj2)) || (CHARP (obj2) && INTP (obj1)))) 78 && ((CHARP (obj1) && INTP (obj2)) || (CHARP (obj2) && INTP (obj1))))
79 { 79 {
80 /* #### It would be really nice if this were a proper warning 80 /* #### It would be really nice if this were a proper warning
81 instead of brain-dead print ro Qexternal_debugging_output. */ 81 instead of brain-dead print to Qexternal_debugging_output. */
82 write_c_string 82 write_c_string
83 (Qexternal_debugging_output, 83 (Qexternal_debugging_output,
84 "Comparison between integer and character is constant nil ("); 84 "Comparison between integer and character is constant nil (");
85 Fprinc (obj1, Qexternal_debugging_output); 85 Fprinc (obj1, Qexternal_debugging_output);
86 write_c_string (Qexternal_debugging_output, " and "); 86 write_c_string (Qexternal_debugging_output, " and ");
245 { 245 {
246 return LISTP (object) ? Qnil : Qt; 246 return LISTP (object) ? Qnil : Qt;
247 } 247 }
248 248
249 DEFUN ("true-list-p", Ftrue_list_p, 1, 1, 0, /* 249 DEFUN ("true-list-p", Ftrue_list_p, 1, 1, 0, /*
250 Return t if OBJECT is a non-dotted, i.e. nil-terminated, list. 250 Return t if OBJECT is an acyclic, nil-terminated (ie, not dotted), list.
251 */ 251 */
252 (object)) 252 (object))
253 { 253 {
254 return TRUE_LIST_P (object) ? Qt : Qnil; 254 return TRUE_LIST_P (object) ? Qt : Qnil;
255 } 255 }