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