perf.mal

   1 (defmacro! time
   2   (fn* (exp)
   3     `(let* (start_FIXME (time-ms)
   4             ret_FIXME ~exp)
   5       (do
   6         (prn (str "Elapsed time: " (- (time-ms) start_FIXME) " msecs"))
   7         ret_FIXME))))