Clojure macro to insert timeouts into loops

loop-with-timeout.clj

;;Code rewriting macro
(defmacro loop-with-timeout [timeout bindings & forms]
  `(let [starttime# (System/currentTimeMillis)]
     (loop ~bindings
       (if  (> (- (System/currentTimeMillis) starttime#) ~timeout)
	 (throw (RuntimeException. (str "Hit timeout of " ~timeout "ms.")))
	 (do ~@forms)))))

;;example use of macro
(loop-with-timeout 60000 [] 
  (if (not (.isTextPresent sel text))
     (do (Thread/sleep 15000) 
         (recur))))