git.pond.sub.org Git - eow/blob - log.lisp

   1 (in-package :empire-log)
   2
   3 (defvar *user-log-prefix* #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))