1 (define (set-usage-extra m)
3 (setf m (- m (* h 60)))
4 (write-file EXTRAFILE (format "%d %d\n" h m))))
7 (let ((data "")(b "") (c '()) (v nil))
8 (while (read 0 b 1000) (extend data b))
9 (setf v (map (fn (x) (parse x "=")) (parse data "&")))
10 (set-usage-extra (int (or (lookup "minutes" v) "0") 0 10))))