[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))