   (map first
     (re-seq #"\[javac\]\s\b([1-9]|[0-9][1-9]|[0-9][0-9][1-9])\b\serrors?" result-text)))
 
+(defn device-adapter-dlls [dir]
+  (filter
+      (fn [file]
+        (let [file-name (.getName file)]
+          (and (.endsWith file-name ".dll")
+               (.startsWith file-name "mmgr_dal"))))
+      (.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
-    (filter
-      (fn [file]
-        (let [file-name (.getName file)]
-          (and (.endsWith file-name ".dll")
-               (.startsWith file-name "mmgr_dal"))))
-      (.listFiles dir))
-    time-limit-hours))
+  (old-files (device-adapter-dlls dir) time-limit-hours))
 
 (defn old-jars [dir time-limit-hours]
   (old-files

        pattern (re-pattern (str "MMSetup" bits "BIT_[^\\s]+?_" date-token ".exe"))]
    (re-find pattern txt)))

(defn str-lines [sequence]
  (apply str (interpose "\n" sequence)))


    (.format format (.getTime one-hour-ago))))
    
(def yyyymmdd (SimpleDateFormat. "yyyyMMdd"))

;(defn result-file [bits mode]
;  (File. micromanager (str "/result" bits (name mode) ".txt")))
