X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=log.lisp;h=8aeec2f0ec4b5b8fd03a8f00e44630ff731f7996;hp=478e372945f691ce8ae4bcb5a53489f0bda25330;hb=54e14006564ff34c8249b9ddb357201759d77101;hpb=761774603f988ef58b11ab22c5bbf862819f9cef;ds=sidebyside

diff --git a/log.lisp b/log.lisp
index 478e372..8aeec2f 100644
--- a/log.lisp
+++ b/log.lisp
@@ -1,6 +1,13 @@
 (in-package :empire-log)
 
+(defvar *user-log-path* #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))