arrays not caught by seq? or empty? Add array?

[nuclearfall]

As per the discussion in #ChrysaLisp (seq? array) is nil and (empty? (array 1 2 3)) is nil. Also, add predicate array?

replacement macro for empty?:

(defmacro empty? (seq)
(or (eql seq nil) (= (length seq) 0)))