X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=log.lisp;h=4c916da652437770d525d5650950b67ed41e41cf;hp=478e372945f691ce8ae4bcb5a53489f0bda25330;hb=refs%2Fheads%2Fxdump-nopack;hpb=761774603f988ef58b11ab22c5bbf862819f9cef

diff --git a/log.lisp b/log.lisp
index 478e372..4c916da 100644
--- a/log.lisp
+++ b/log.lisp
@@ -1,6 +1,13 @@
 (in-package :empire-log)
 
+(defvar *user-log-prefix* #p"/tmp/")
+
 (defun info (&rest args)
   (apply #'format *standard-output* args)
   (terpri *standard-output*))
 
+(defun user-log-path (user-name)
+  (make-pathname :defaults *user-log-prefix* :name user-name))
+
+(defun open-user-log (user-name)
+  (open (user-log-path user-name) :direction :output :if-exists :supersede))