[Clojure] CharSequence adapter for seqables of chars

char-sequence.clj

(defn char-sequence [char-seqable]
  (let [char-seq (seq char-seqable)]
    (reify CharSequence
      (charAt   [this i] (nth char-seq i))
      (length   [this]   (count char-seq))
      (toString [this]   (String. (char-array char-seq)))
      ; (subSequence [this start end] ...)
      )))