clojure quick sort

gistfile1.clj

(defn nom [n] (take n (repeatedly #(rand-int n))))

(defn sort-parts
      [work]
  (lazy-seq
    (loop [[part & parts] work]
      (if-let [[pivot & xs] (seq part)]
        (let [smaller? #(< % pivot)]
          (recur (list*
                   (filter smaller? xs)
                   pivot
                   (remove smaller? xs)
                   parts)))
        (when-let [[x & parts] parts]
          (cons x (sort-parts parts)))))))
(defn qsort [xs]
  (sort-parts (list xs)))