* start-timerの件
(let ((num 0) (time nil) (mes "")) (defun test () (unless time (setq time (get-internal-real-time))) (setq mes (concat mes (format nil "~d: ~d~%" (incf num) (- (get-internal-real-time) time)))) (msgbox "~a" mes) (setq time (get-internal-real-time)))) (start-timer 5 'test) (stop-timer 'test)
1: 0 2: 15 3: 5000 4: 5000 5: 5000 6: 5000変数の初期化漏れとかなのかな
update : 2007-01-18 (Thu) 17:46:13