[Openmcl-devel] consing iterating through a loop

[Randall Beer]

Cyrus,

This is pretty much the kind of thing that FPC-PPC 
(http://vorlon.cwru.edu/~beer/index.html#software) was written for:

? (flet ((foo ()
             (declare (optimize (speed 3) (safety 0) (space 0)))
             (let ((z 2.0d0))
               (WITH-TEMP-DOUBLE-FLOATS (a)
                 (dotimes  (i 500000)
                   (declare (fixnum i))
                   (%SET-DOUBLE! a (+ a z)))
                 (%COPY-FLOAT a)))))
        (time (foo)))

(FOO) took 16 milliseconds (0.016 seconds) to run.
Of that, 20 milliseconds (0.020 seconds) were spent in user mode
          0 milliseconds (0.000 seconds) were spent in system mode
  16 bytes of memory allocated.
1000000.0D0

Randy


On Jan 26, 2005, at 8:01 PM, Cyrus Harmon wrote:

> In OpenMCL:
>
> (FOO) took 760 milliseconds (0.760 seconds) to run.
> Of that, 150 milliseconds (0.150 seconds) were spent in user mode
>          50 milliseconds (0.050 seconds) were spent in system mode
>          560 milliseconds (0.560 seconds) were spent executing other 
> OS processes.
> 361 milliseconds (0.361 seconds) was spent in GC.
>  8,000,000 bytes of memory allocated.
>
> 1000000.0D0