1 (in-package :empire-log)
3 (defvar *user-log-path* #p"/tmp/")
5 (defun info (&rest args)
6 (apply #'format *standard-output* args)
7 (terpri *standard-output*))
9 (defun user-log-path (user-name)
10 (make-pathname :defaults *user-log-prefix* :name user-name))
12 (defun open-user-log (user-name)
13 (open (user-log-path user-name) :direction :output :if-exists :supersede))