                                   (set dll-names)
                                   (do-not-build)
                                   helper-vcprojs))))
-     
+
 (defn device-pages []
   (let [index-txt (slurp "http://valelab.ucsf.edu/~MM/MMwiki/index.php/Device%20Support")]
     (map second (re-seq #"a href=\"/~MM/MMwiki/index.php/(.*?)\"" index-txt))))

      (.listFiles dir)))

(defn old-files [files time-limit-hours]
  (let [now (System/currentTimeMillis)
        before (- now (* time-limit-hours MS-PER-HOUR))]
    (filter #(< (.lastModified %) before) files)))
    
(defn old-dlls [dir time-limit-hours]
  (old-files (device-adapter-dlls dir) time-limit-hours))


(defn report-build-errors [bits mode test]
  (let [f (result-file bits mode)
        result-txt (slurp f)
        vs-errors (visual-studio-errors)
        outdated-dlls (map #(.getName %) (old-dlls (bin-dir bits) 24))
        javac-errs (javac-errors result-txt)
        outdated-jars (map #(.getName %)
