The RAPs system I'm running in abcl makes extensive use of the
difference between two sequential get-internal-real-time calls. But
I get significantly different results in abcl than in acl.
Here's an example:
In acl:
CL-USER(24): (setf foo (/ (get-internal-real-time)(float
internal-time-units-per-second)))
8212185.5
CL-USER(25): (setf bar (/ (get-internal-real-time)(float
internal-time-units-per-second)))
8212195.0
CL-USER(26): (- bar foo)
9.5 ;; nine+ seconds
In abcl:
CL-USER(15): (setf foo (/ (get-internal-real-time)(float
internal-time-units-per-second)))
1.40157018E9
CL-USER(16): (setf bar (/ (get-internal-real-time)(float
internal-time-units-per-second)))
1.40157018E9
CL-USER(17): (- bar foo)
0.0 ;; 0 seconds
Thus, lots of time has to elapse between the calls before any
difference is produced. (/ (get-internal-real-time)(float
internal-time-units-per-second)) is the primitive time call
used in the RAPs system.
Of course the first thing I noticed is that the single floats in acl
don't have the E notation.
Is there a setting in abcl I can use to get the same behavior as in
acl, or is there another problem going on?
Thanks,
Pete