[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/home/bmastenbrook/lisppaste2

Modified Files:
	web-server.lisp 
Log Message:
Make the timing go to the same dir as lisppaste

Date: Tue Jul  6 09:58:13 2004
Author: bmastenbrook

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.60 lisppaste2/web-server.lisp:1.61
--- lisppaste2/web-server.lisp:1.60	Tue Jul  6 09:33:46 2004
+++ lisppaste2/web-server.lisp	Tue Jul  6 09:58:13 2004
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.60 2004/07/06 16:33:46 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.61 2004/07/06 16:58:13 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -56,11 +56,7 @@
 (defun times-file-for-class (class)
   (merge-pathnames (format nil "times-~(~A~)"
                            (symbol-name (class-name (class-of class))))
-                   (make-pathname
-                    :directory
-                    (pathname-directory
-                     (or *load-truename*
-                         *default-pathname-defaults*)))))
+                   *times-file-root*))
 
 (defmethod araneida:handle-request-response :around ((handler lisppaste-basic-handler) method request)
   (with-open-file (*trace-output* (times-file-for-class handler)