Function: arrayp
Return t if OBJECT is an array (string or vector).
(fn OBJECT)