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