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