Code: Select all
(defmacro $ (form &optional (count-form 1000000)) `(time (dotimes (_ ,count-form) ((lambda () ,form)))))
Code: Select all
($ (function))
Code: Select all
($ (progn (function) (function)))
Code: Select all
($ (function) (function))
(it can be changed to a defun to make this happen but the count-form would need to default to 1,000,000 and it would need to stay optional):