Update of /project/cl-prevalence/cvsroot/cl-prevalence/test In directory common-lisp.net:/tmp/cvs-serv18557/test
Modified Files: demo1.lisp Log Message: preparing to support new serialization protocol
Date: Mon Jun 21 08:26:21 2004 Author: scaekenberghe
Index: cl-prevalence/test/demo1.lisp diff -u cl-prevalence/test/demo1.lisp:1.1.1.1 cl-prevalence/test/demo1.lisp:1.2 --- cl-prevalence/test/demo1.lisp:1.1.1.1 Sun Jun 20 12:13:41 2004 +++ cl-prevalence/test/demo1.lisp Mon Jun 21 08:26:21 2004 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: demo1.lisp,v 1.1.1.1 2004/06/20 19:13:41 scaekenberghe Exp $ +;;;; $Id: demo1.lisp,v 1.2 2004/06/21 15:26:21 scaekenberghe Exp $ ;;;; ;;;; A Common Lisp version of the the Java Prevalyer demo1 example ;;;; @@ -61,18 +61,12 @@ (incf candidate))) (close-open-streams system))))
-(defun reset-demo1 () - "Throw away any xml files that we find: we want to start from scratch" - (when (probe-file *system-location*) - (dolist (pathname (directory (merge-pathnames "*.xml" *system-location*))) - (delete-file pathname)))) - (defun benchmark1 () - (reset-demo1) (let (system) (setf system (make-prevalence-system *system-location*)) + (totally-destroy system) (execute system (make-transaction 'tx-create-numbers-root)) - (time (dotimes (i 1000) (execute system (make-transaction 'tx-add-number i)))) + (time (dotimes (i 10000) (execute system (make-transaction 'tx-add-number i)))) (close-open-streams system) (setf system (time (make-prevalence-system *system-location*))) (close-open-streams system)))