-
- ;; REMOVEME once runtime nonmonotonicity problem is debugged
- (when (boundp '*last-internal-run-time*)
- (unless (>= result *last-internal-run-time*)
- (error "non-monotonic:~@
- UTIME-SEC ~S ~S~@
- UTIME-USEC ~S ~S~@
- STIME-SEC ~S ~S~@
- STIME-USEC ~S ~S~@
- RESULT ~S ~S"
- *last-utime-sec* utime-sec
- *last-utime-usec* utime-usec
- *last-stime-sec* stime-sec
- *last-stime-usec* stime-usec
- *last-internal-run-time* result)))
- (setf *last-utime-sec* utime-sec
- *last-utime-usec* utime-usec
- *last-stime-sec* stime-sec
- *last-stime-usec* stime-usec
- *last-internal-run-time* result)
-