debugging galore

[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)))
-    (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))