util/time.lsp [src]
Time- and date-related functions
(!avg-time fun num)
Prints statistical results after calling !time NUM times
FUN is the first argument to !time. This function passes nil for ALERT-P.
VARS:
(FUN LIST (FUNCTION-P (EVAL (CAR FUN))))
(NUM INT)
(!time func alert-p)
Prints the number of milliseconds it takes to run FUNC
FUNC should be a lisp form to be eval'd. If ALERT-P is nil, prints to the command
line. Otherwise, displays an alert box with the result.
Example: (!time '(repeat 100 (read-xdata (entlast) "")) nil)
VARS:
(FUNC LIST (FUNCTION-P (EVAL (CAR FUNC))))
(curdate)
Returns the current date formatted as DD/MM/YYYY