zencat.clj

(defn zencat [x y] 
  (loop [src y, ret (transient x)]
    (if (seq src) 
      (recur (next src) 
             (conj! ret (first src)))
      (persistent! ret))))

(zencat [1 2 3] [4 5 6])
;=> [1 2 3 4 5 6]