                        (.add Calendar/HOUR -1))]
     (.format format (.getTime one-hour-ago))))
     
-(def yyyymmdd (SimpleDateFormat. "yyyyMMdd"))
-
-;(defn result-file [bits mode]
-;  (File. micromanager (str "/result" bits (name mode) ".txt")))
-
 (defn result-file [bits mode]
   (File. micromanager (str "/results" bits ".txt")))
 

(defn missing-device-pages []
  (let [dll-names (get-dll-names 32)
        device-page-names (device-pages)]
    (sort (clojure.set/difference (set dll-names) (set device-page-names)))))

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

        (sort
          (clojure.set/difference
            (set (map #(.getName %) directories-without-vcproj))
            non-windows-device-adapters))))

(defn device-vcproj-files []
  (let [device-adapter-parent-dirs [(File. micromanager "/DeviceAdapters")
