select-vals returns a list of map values in the order of the supplied key sequence

gistfile1.clj

(defn select-vals [map keyseq]
  "Returns a list containing the entries in map whose key is in keys, in order of the supplied keys, with nil in place of keys not found"
  (loop [ret [] keys (seq keyseq)]
    (if keys
      (let [value (first (rest (. clojure.lang.RT (find map (first keys)))))]
        (recur
          (if value
            (conj ret value)
            (conj ret nil))
          (next keys)))
      ret)))