cljs.reader/read-delimited-list

(defn read-delimited-list
  [delim rdr recursive?]
  (loop [a (array)]
    (let [ch (read-past whitespace? rdr)]
      (when-not ch (reader-error rdr "EOF while reading"))
      (if (identical? delim ch)
        a
        (if-let [macrofn (macros ch)]
          (let [mret (macrofn rdr ch)]
            (recur (if (identical? mret rdr) a (do
                                                 (.push a mret)
                                                 a))))
          (do
            (unread rdr ch)
            (let [o (read rdr true nil recursive?)]
              (recur (if (identical? o rdr) a (do
                                                (.push a o)
                                                a))))))))))