adapt to newer hunchentoot

[eow] / log.lisp

diff --git a/log.lisp b/log.lisp
index 478e372945f691ce8ae4bcb5a53489f0bda25330..4c916da652437770d525d5650950b67ed41e41cf 100644 (file)
--- a/log.lisp
+++ b/log.lisp
@@ -1,6 +1,13 @@
 (in-package :empire-log)
 
+(defvar *user-log-prefix* #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))