Revision: 3448 Author: hans URL: http://bknr.net/trac/changeset/3448

Add function to reset statistics

U trunk/bknr/web/src/web/handler-statistics-handler.lisp

Modified: trunk/bknr/web/src/web/handler-statistics-handler.lisp =================================================================== --- trunk/bknr/web/src/web/handler-statistics-handler.lisp 2008-07-15 12:16:38 UTC (rev 3447) +++ trunk/bknr/web/src/web/handler-statistics-handler.lisp 2008-07-15 12:42:26 UTC (rev 3448) @@ -31,4 +31,9 @@ (fastest-entry (aref fastest-array (1- (array-dimension fastest-array 0))))) (when fastest-entry (html - (:princ (format-elapsed (car fastest-entry)))))))))))))))) \ No newline at end of file + (:princ (format-elapsed (car fastest-entry)))))))))))))))) + +(defun reset-handler-statistics () + (dolist (handler (website-handlers *website*)) + (setf (page-handler-statistics handler) (make-handler-statistics)))) +