From scaekenberghe at common-lisp.net Mon Jul 5 21:22:08 2004 From: scaekenberghe at common-lisp.net (Sven Van Caekenberghe) Date: Mon, 05 Jul 2004 14:22:08 -0700 Subject: [cl-prevalence-cvs] CVS update: cl-prevalence/src/debug-prevalence.lisp Message-ID: Update of /project/cl-prevalence/cvsroot/cl-prevalence/src In directory common-lisp.net:/tmp/cvs-serv577/src Modified Files: debug-prevalence.lisp Log Message: forgot to follow a refactoring Date: Mon Jul 5 14:22:08 2004 Author: scaekenberghe Index: cl-prevalence/src/debug-prevalence.lisp diff -u cl-prevalence/src/debug-prevalence.lisp:1.1.1.1 cl-prevalence/src/debug-prevalence.lisp:1.2 --- cl-prevalence/src/debug-prevalence.lisp:1.1.1.1 Sun Jun 20 12:13:38 2004 +++ cl-prevalence/src/debug-prevalence.lisp Mon Jul 5 14:22:08 2004 @@ -1,6 +1,6 @@ ;;;; -*- Mode: LISP -*- ;;;; -;;;; $Id: debug-prevalence.lisp,v 1.1.1.1 2004/06/20 19:13:38 scaekenberghe Exp $ +;;;; $Id: debug-prevalence.lisp,v 1.2 2004/07/05 21:22:08 scaekenberghe Exp $ ;;;; ;;;; Some debugging routines for CL-PREVALENCE ;;;; @@ -24,7 +24,7 @@ "Print the transaction objects making up the transaction log of system to t" (with-open-file (in (get-transaction-log system) :direction :input) (loop - (let ((transaction (deserialize-xml in *serialization-state*))) + (let ((transaction (deserialize-xml in (get-serialization-state system)))) (if (null transaction) (return) (format t "~a~%" transaction))))) @@ -41,7 +41,7 @@ (let (transactions) (with-open-file (in (get-transaction-log system) :direction :input) (loop - (let ((transaction (deserialize-xml in *serialization-state*))) + (let ((transaction (deserialize-xml in (get-serialization-state system)))) (if (null transaction) (return) (push transaction transactions))))) From scaekenberghe at common-lisp.net Thu Jul 8 19:59:14 2004 From: scaekenberghe at common-lisp.net (Sven Van Caekenberghe) Date: Thu, 08 Jul 2004 12:59:14 -0700 Subject: [cl-prevalence-cvs] CVS update: public_html/index.html Message-ID: Update of /project/cl-prevalence/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv10850 Modified Files: index.html Log Message: added some personal info as well as a reference to a paper Date: Thu Jul 8 12:59:14 2004 Author: scaekenberghe Index: public_html/index.html diff -u public_html/index.html:1.5 public_html/index.html:1.6 --- public_html/index.html:1.5 Thu Jun 24 00:23:40 2004 +++ public_html/index.html Thu Jul 8 12:59:14 2004 @@ -13,10 +13,23 @@

CL-PREVALENCE

-

CL-PREVALENCE is an implementation of Object Prevalence for Common Lisp.

+

+ CL-PREVALENCE is an implementation of Object Prevalence for Common Lisp. + It was written by and is being maintained by Sven Van Caekenberghe. + CL-PREVALENCE is using S-XML for the XML serialization + protocol (there is also a more Lisp-like s-expression-based serialization protocol). +

- Object Prevalence is a simple but interesting concept first proposed by Klaus Wuestefeld in 2001. IBM developerWorks has a reasonable Introduction to Object Prevalence article. The main Java implementation is called Prevayler, with a (chaotic) wiki site with lots of information and discussions. Basically, the idea is this: + Object Prevalence is a simple but interesting concept first proposed by Klaus Wuestefeld in 2001. + IBM developerWorks has a reasonable + Introduction to Object Prevalence article. + The main Java implementation is called Prevayler, + with a (chaotic) wiki site with lots of information and discussions. + The following academic paper seems to describe the most essential features of Object Prevalence, without naming it as such: + A Simple and Efficient Implementation for Small Databases + by Birrell, Jones, and Wobber [1987]. + Basically, the idea is this:

-

CVS version $Id: index.html,v 1.5 2004/06/24 07:23:40 scaekenberghe Exp $

+

CVS version $Id: index.html,v 1.6 2004/07/08 19:59:14 scaekenberghe Exp $