projects
/
rrq
/
hourglass.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
complete.. wrong operator image
[rrq/hourglass.git]
/
manager
/
usage-extra.lsp
diff --git
a/manager/usage-extra.lsp
b/manager/usage-extra.lsp
index e0cad6a5e3f4df45362be3e4f0b099c4f05551e3..1850723d4a632ea3307fa76219cec34526ab4bc6 100644
(file)
--- a/
manager/usage-extra.lsp
+++ b/
manager/usage-extra.lsp
@@
-1,7
+1,7
@@
(define (set-usage-extra m)
(let ((h (/ m 60)))
(setf m (- m (* h 60)))
(define (set-usage-extra m)
(let ((h (/ m 60)))
(setf m (- m (* h 60)))
- (write-file
"../control-extra.dat"
(format "%d %d\n" h m))))
+ (write-file
EXTRAFILE
(format "%d %d\n" h m))))
(catch
(let ((data "")(b "") (c '()) (v nil))
(catch
(let ((data "")(b "") (c '()) (v nil))