[cl-prevalence-cvs] CVS update: cl-prevalence/src/debug-prevalence.lisp

[Sven Van Caekenberghe]

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