Mercurial > hg > xemacs-beta

comparison src/data.c @ 4996:c17c857e20bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 03 Feb 2010 20:18:53 +0000
parents 9e7f5a77cc84 8431b52e43b1
children b46c89ccbed3
comparison
equal deleted inserted replaced
4927:5274591ce707 4996:c17c857e20bf
295 DEFUN ("arrayp", Farrayp, 1, 1, 0, /* 295 DEFUN ("arrayp", Farrayp, 1, 1, 0, /*
296 Return t if OBJECT is an array (string, vector, or bit vector). 296 Return t if OBJECT is an array (string, vector, or bit vector).
297 */ 297 */
298 (object)) 298 (object))
299 { 299 {
300 return (VECTORP (object) || 300 return ARRAYP (object) ? Qt : Qnil;
301 STRINGP (object) ||
302 BIT_VECTORP (object))
303 ? Qt : Qnil;
304 } 301 }
305 302
306 DEFUN ("sequencep", Fsequencep, 1, 1, 0, /* 303 DEFUN ("sequencep", Fsequencep, 1, 1, 0, /*
307 Return t if OBJECT is a sequence (list or array). 304 Return t if OBJECT is a sequence (list or array).
308 */ 305 */
309 (object)) 306 (object))
310 { 307 {
311 return (LISTP (object) || 308 return SEQUENCEP (object) ? Qt : Qnil;
312 VECTORP (object) ||
313 STRINGP (object) ||
314 BIT_VECTORP (object))
315 ? Qt : Qnil;
316 } 309 }
317 310
318 DEFUN ("markerp", Fmarkerp, 1, 1, 0, /* 311 DEFUN ("markerp", Fmarkerp, 1, 1, 0, /*
319 Return t if OBJECT is a marker (editor pointer). 312 Return t if OBJECT is a marker (editor pointer).
320 */ 313 */