Very handy in CLJC projects especially to log long running operations. Happy to do PR(s).
[expr msg]
`(let [start# (. System (nanoTime))
ret# ~expr]
(prn (str msg (/ (double (- (. System (nanoTime)) start#)) 1000000.0) " msecs"))
ret#))
Even better would be fmt-msg. (format msg-msg (/ (double (- (. System (nanoTime)) start#)) 1000000.0))