<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
</head>
<body bgcolor="#FFFFFF" text="#000000">
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.<br>
<br>
Here's an example:<br>
<br>
In acl:<br>
<br>
<tt>CL-USER(24): (setf foo (/ (get-internal-real-time)(float
internal-time-units-per-second)))</tt><tt><br>
</tt><tt>8212185.5</tt><tt><br>
</tt><tt>CL-USER(25): (setf bar (/ (get-internal-real-time)(float
internal-time-units-per-second)))</tt><tt><br>
</tt><tt>8212195.0</tt><tt><br>
</tt><tt>CL-USER(26): (- bar foo)</tt><tt><br>
</tt><tt>9.5 ;; nine+ seconds</tt><tt><br>
</tt><tt><br>
</tt><tt>In abcl:</tt><tt><br>
</tt><tt>CL-USER(15): (setf foo (/ (get-internal-real-time)(float
internal-time-units-per-second)))</tt><tt><br>
</tt><tt>1.40157018E9</tt><tt><br>
</tt><tt>CL-USER(16): (setf bar (/ (get-internal-real-time)(float
internal-time-units-per-second)))</tt><tt><br>
</tt><tt>1.40157018E9</tt><tt><br>
</tt><tt>CL-USER(17): (- bar foo)</tt><tt><br>
</tt><tt>0.0</tt><tt> ;; 0 seconds</tt><br>
<br>
Thus, lots of time has to elapse between the calls before any
difference is produced. <tt>(/ (get-internal-real-time)(float
internal-time-units-per-second)) </tt>is the primitive time call
used in the RAPs system.<br>
<br>
Of course the first thing I noticed is that the single floats in acl
don't have the E notation.<br>
Is there a setting in abcl I can use to get the same behavior as in
acl, or is there another problem going on?<br>
<br>
Thanks,<br>
Pete<br>
</body>
</html>