class-v-struct.lisp CCL bench (Thinkpad x1 Extreme)

ccl.md

? (load "/home/lisp/class-v-struct.lisp")
#P"C:/home/lisp/class-v-struct.lisp"
? (run-test-suite)

(LOOP FOR I FROM 1 TO RUN-TIMES DO (SET-RANDOM-CLASS MY-CLASS-INSTANCE))
took 72,604,000 microseconds (72.604000 seconds) to run.
During that period, and with 12 available CPU cores,
     72,593,750 microseconds (72.593750 seconds) were spent in user mode
              0 microseconds ( 0.000000 seconds) were spent in system mode
 64 bytes of memory allocated.

(LOOP FOR I FROM 1 TO RUN-TIMES DO (SET-RANDOM-STRUCT MY-STRUCT-INSTANCE))
took 61,757,000 microseconds (61.757000 seconds) to run.
During that period, and with 12 available CPU cores,
     61,750,000 microseconds (61.750000 seconds) were spent in user mode
              0 microseconds ( 0.000000 seconds) were spent in system mode
 64 bytes of memory allocated.

(LOOP FOR I FROM 1 TO RUN-TIMES DO (MAKE-INSTANCE 'SIMPLE-CLASS :SLOT-1 (RANDOM 10) :SLOT-2 (RANDOM 10) :SLOT-3 (RANDOM 10)))
took 9,095,000 microseconds (9.095000 seconds) to run.
        62,575 microseconds (0.062575 seconds, 0.69%) of which was spent in GC.
During that period, and with 12 available CPU cores,
     9,015,625 microseconds (9.015625 seconds) were spent in user mode
        31,250 microseconds (0.031250 seconds) were spent in system mode
 800,000,592 bytes of memory allocated.

(LOOP FOR I FROM 1 TO RUN-TIMES DO (MAKE-SIMPLE-STRUCT :SLOT-1 (RANDOM 10) :SLOT-2 (RANDOM 10) :SLOT-3 (RANDOM 10)))
took 1,063,000 microseconds (1.063000 seconds) to run.
        31,257 microseconds (0.031257 seconds, 2.94%) of which was spent in GC.
During that period, and with 12 available CPU cores,
     1,046,875 microseconds (1.046875 seconds) were spent in user mode
             0 microseconds (0.000000 seconds) were spent in system mode
 480,000,064 bytes of memory allocated.

(LOOP FOR I FROM 1 TO MAKE-TIMES DO (LET ((MY-CLASS (MAKE-INSTANCE 'SIMPLE-CLASS :SLOT-1 (RANDOM 10) :SLOT-2 (RANDOM 10) :SLOT-3 (RANDOM 10)))) (LOOP FOR I FROM 1 TO SET-TIMES DO (SET-RANDOM-CLASS MY-CLASS))))
took 7,594,000 microseconds (7.594000 seconds) to run.
During that period, and with 12 available CPU cores,
     7,593,750 microseconds (7.593750 seconds) were spent in user mode
             0 microseconds (0.000000 seconds) were spent in system mode
 80,064 bytes of memory allocated.
(LOOP FOR I FROM 1 TO MAKE-TIMES DO (LET ((MY-STRUCT (MAKE-SIMPLE-STRUCT :SLOT-1 (RANDOM 10) :SLOT-2 (RANDOM 10) :SLOT-3 (RANDOM 10)))) (LOOP FOR I FROM 1 TO SET-TIMES DO (SET-RANDOM-STRUCT MY-STRUCT))))
took 6,251,000 microseconds (6.251000 seconds) to run.
During that period, and with 12 available CPU cores,
     6,250,000 microseconds (6.250000 seconds) were spent in user mode
             0 microseconds (0.000000 seconds) were spent in system mode
 48,064 bytes of memory allocated.

lispworks.md

CL-USER 1 > (run-test-suite)
Timing the evaluation of (LOOP FOR I FROM 1 TO RUN-TIMES DO (SET-RANDOM-CLASS MY-CLASS-INSTANCE))

User time    =  0:02:03.531
System time  =        0.171
Elapsed time =  0:02:03.495
Allocation   = 388752 bytes
0 Page faults
Timing the evaluation of (LOOP FOR I FROM 1 TO RUN-TIMES DO (SET-RANDOM-STRUCT MY-STRUCT-INSTANCE))

User time    =  0:01:28.390
System time  =        0.062
Elapsed time =  0:01:28.424
Allocation   = 21568 bytes
0 Page faults
Timing the evaluation of (LOOP FOR I FROM 1 TO RUN-TIMES DO (MAKE-INSTANCE (QUOTE SIMPLE-CLASS) :SLOT-1 (RANDOM 10) :SLOT-2 (RANDOM 10) :SLOT-3 (RANDOM 10)))

User time    =        2.687
System time  =        0.000
Elapsed time =        2.688
Allocation   = 1520009392 bytes
0 Page faults
Timing the evaluation of (LOOP FOR I FROM 1 TO RUN-TIMES DO (MAKE-SIMPLE-STRUCT :SLOT-1 (RANDOM 10) :SLOT-2 (RANDOM 10) :SLOT-3 (RANDOM 10)))

User time    =        1.046
System time  =        0.000
Elapsed time =        1.047
Allocation   = 9480 bytes
0 Page faults
Timing the evaluation of (LOOP FOR I FROM 1 TO MAKE-TIMES DO (LET ((MY-CLASS (MAKE-INSTANCE (QUOTE SIMPLE-CLASS) :SLOT-1 (RANDOM 10) :SLOT-2 (RANDOM 10) :SLOT-3 (RANDOM 10)))) (LOOP FOR I FROM 1 TO SET-TIMES DO (SET-RANDOM-CLASS MY-CLASS))))

User time    =       12.625
System time  =        0.015
Elapsed time =       12.622
Allocation   = 164840 bytes
0 Page faults
Timing the evaluation of (LOOP FOR I FROM 1 TO MAKE-TIMES DO (LET ((MY-STRUCT (MAKE-SIMPLE-STRUCT :SLOT-1 (RANDOM 10) :SLOT-2 (RANDOM 10) :SLOT-3 (RANDOM 10)))) (LOOP FOR I FROM 1 TO SET-TIMES DO (SET-RANDOM-STRUCT MY-STRUCT))))

User time    =        9.234
System time  =        0.015
Elapsed time =        9.251
Allocation   = 52312 bytes
0 Page faults
NIL

sbcl.md

* (load "/home/lisp/class-v-struct.lisp")
T
* (run-test-suite)
Evaluation took:
  49.413 seconds of real time
  49.390625 seconds of total run time (49.390625 user, 0.000000 system)
  99.96% CPU
  109,109,870,083 processor cycles
  0 bytes consed

Evaluation took:
  46.446 seconds of real time
  46.437500 seconds of total run time (46.437500 user, 0.000000 system)
  99.98% CPU
  102,546,037,147 processor cycles
  0 bytes consed

Evaluation took:
  0.860 seconds of real time
  0.859375 seconds of total run time (0.843750 user, 0.015625 system)
  [ Run times consist of 0.095 seconds GC time, and 0.765 seconds non-GC time. ]
  99.88% CPU
  18 lambdas converted
  1,889,600,752 processor cycles
  800,462,320 bytes consed

Evaluation took:
  0.797 seconds of real time
  0.796875 seconds of total run time (0.796875 user, 0.000000 system)
  100.00% CPU
  1,736,629,439 processor cycles
  479,999,680 bytes consed

Evaluation took:
  4.650 seconds of real time
  4.656250 seconds of total run time (4.656250 user, 0.000000 system)
  100.13% CPU
  10,249,687,649 processor cycles
  65,536 bytes consed

Evaluation took:
  4.352 seconds of real time
  4.343750 seconds of total run time (4.343750 user, 0.000000 system)
  99.82% CPU
  9,599,035,190 processor cycles
  65,504 bytes consed

NIL

Bench code: https://github.com/Slids/lisp-perf-test/blob/master/class-v-struct.lisp