[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp - lisppaste-cvs@common-lisp.net - mailman3.common-lisp.net

6 Jul 2004

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)

    