[cl-prevalence-cvs] CVS update: cl-prevalence/test/demo1.lisp

[Sven Van Caekenberghe]

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)))