[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
8.0: Timers; Scheduler Sluggishness; Remote Terminal Status Line
I've spent quite a lot of time with the new timers, mostly
successfully. Here's what I came up with for looking at the
pending timers, which was partly cribbed from some code I
got from someone else.
(defun show-timers ()
(format t "~&~D timers" (process::number-of-entries process::*pending-timers*))
(process::map-heap process::*pending-timers*
#'(lambda (ignore ignore timer)
(format t "~&~A expires " (process:timer-name timer))
(time:print-universal-time
(process:timer-universal-time-of-expiration timer))))
(values))