(defun get-internal-real-time ()
#!+sb-doc
- "Return the real time in the internal time format. This is useful for
- finding elapsed time. See INTERNAL-TIME-UNITS-PER-SECOND."
+ "Return the real time in the internal time format. (See
+ INTERNAL-TIME-UNITS-PER-SECOND.) This is useful for finding elapsed time."
(multiple-value-bind (ignore seconds useconds) (sb!unix:unix-gettimeofday)
(declare (ignore ignore) (type (unsigned-byte 32) seconds useconds))
(let ((base *internal-real-time-base-seconds*)
(defun get-internal-run-time ()
#!+sb-doc
- "Return the run time in the internal time format. This is useful for
- finding CPU usage."
+ "Return the run time in the internal time format. (See
+ INTERNAL-TIME-UNITS-PER-SECOND.) This is useful for finding CPU usage."
(declare (values (unsigned-byte 32)))
(multiple-value-bind (ignore utime-sec utime-usec stime-sec stime-usec)
(sb!unix:unix-fast-getrusage sb!unix:rusage_self)
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.1.53"
+"0.8.2"