Mercurial > hg > xemacs-beta
diff src/data.c @ 4996:c17c857e20bf
Merge.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 03 Feb 2010 20:18:53 +0000 |
| parents | 9e7f5a77cc84 8431b52e43b1 |
| children | b46c89ccbed3 |
line wrap: on
line diff
--- a/src/data.c Wed Feb 03 09:43:16 2010 -0700 +++ b/src/data.c Wed Feb 03 20:18:53 2010 +0000 @@ -297,10 +297,7 @@ */ (object)) { - return (VECTORP (object) || - STRINGP (object) || - BIT_VECTORP (object)) - ? Qt : Qnil; + return ARRAYP (object) ? Qt : Qnil; } DEFUN ("sequencep", Fsequencep, 1, 1, 0, /* @@ -308,11 +305,7 @@ */ (object)) { - return (LISTP (object) || - VECTORP (object) || - STRINGP (object) || - BIT_VECTORP (object)) - ? Qt : Qnil; + return SEQUENCEP (object) ? Qt : Qnil; } DEFUN ("markerp", Fmarkerp, 1, 1, 0, /*