Collecting the time and space results produced by `time` macro?

Question

Common Lisp provide a time macro for finding out how long a form takes to execute, and it prints the information to the trace output:

time evaluates form in the current environment (lexical and dynamic). … time prints various timing data and other information to trace output. The nature and format of the printed information is implementation-defined. Implementations are encouraged to provide such information as elapsed real time, machine run time, and storage management statistics.

For instance:

(time (length (make-array 1000000)))
      Real time: 0.0140014 sec.
      Run time: 0.0 sec.
      Space: 4000008 Bytes
      GC: 1, GC time: 0.0 sec.

Is there a way to collect these parameters and push them step by step into some stack or list and return it from a function?

sds · Accepted Answer · 2014-05-12T14:10:43.390

3

Some things are standard: get-internal-run-time and get-internal-real-time:

(defvar *my-timings* nil)
(let ((run (get-internal-run-time))
      (real (get-internal-real-time)))
  (multiple-value-prog1 (my-code)
    (push (cons (- (get-internal-run-time) run)
                (- (get-internal-real-time) real))
          *my-timings*)))

Others are not (space and GC count), you need to find the implementation-specific versions.

You might also consider using with-timing - it provides progress reports including ETA.

Incidentally, in your code, memory allocation (make-array) dwarfs length (which is slot access for an array).

edited May 12 '14 at 14:10

answered May 09 '14 at 17:26

sds

58,617
29
161
278

In place of my-code I called a function(if my approach is right) but its saying "variables *my-timings* has not value. – Pankaj Sejwal May 10 '14 at 14:03
@Rorschach: you need to define the variable `*my-timings*`, e.g. `(defvar *my-timings*)`. – Rörd May 10 '14 at 20:48
@Rörd : I don't know why its not working for me still. – Pankaj Sejwal May 11 '14 at 06:59
1

Did you do `(defvar *my-timings* nil)`? what is your error message? – sds May 11 '14 at 07:28
@sds : I am getting " SYSTEM::READ-EVAL-PRINT: variable MY-TIMINGS has no value" even after setting it to nil as suggested. – Pankaj Sejwal May 12 '14 at 08:18
please make sure that you define and use the *same* variable, i.e., both have stars around the name. – sds May 12 '14 at 14:11

Collecting the time and space results produced by `time` macro?

1 Answers1