Clojure code for transforming sequences into JSON data

gistfile1.scm

;
; Provides functions for transforming data into JSON objects.
;
; This is Clojure code.
;

(defn data-to-json [list-this]
  "Transforms a list into a string of JSON data"
  
  (cond
    
    ; handle sequences and vectors
    (or (seq? list-this) (vector? list-this))
    (apply str 
      (concat "[" 
        (interpose ", " 
          (map data-to-json list-this)) "]"))
    
    ; handle maps
    (map? list-this)
    (apply str 
      (concat "{" 
        (interpose ", " 
          (map #(str "\"" (name (first %)) "\": " 
                  (data-to-json (second %))) list-this)) "}"))
    
    ; handle atoms
    :else (str "\"" list-this "\"")))