261 |
(let ((high (- (car time) (aref timer 1))) |
(let ((high (- (car time) (aref timer 1))) |
262 |
(low (- (nth 1 time) (aref timer 2)))) |
(low (- (nth 1 time) (aref timer 2)))) |
263 |
(+ low (* high 65536)))) |
(+ low (* high 65536)))) |
264 |
|
|
265 |
(defun timer-event-handler (timer) |
(defun timer-event-handler (timer) |
266 |
"Call the handler for the timer TIMER. |
"Call the handler for the timer TIMER. |
267 |
This function is called, by name, directly by the C code." |
This function is called, by name, directly by the C code." |