* 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
Source of Nothingness
NANRI
NANRI