[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-serv27775/src

Modified Files:
	debug-prevalence.lisp 
Log Message:
s-xml::echo-xml is now optional; made debug-prevalence optional as well, noted dependency in a comment

Date: Thu Jan  5 15:08:24 2006
Author: scaekenberghe

Index: cl-prevalence/src/debug-prevalence.lisp
diff -u cl-prevalence/src/debug-prevalence.lisp:1.2 cl-prevalence/src/debug-prevalence.lisp:1.3
--- cl-prevalence/src/debug-prevalence.lisp:1.2	Mon Jul  5 23:22:08 2004
+++ cl-prevalence/src/debug-prevalence.lisp	Thu Jan  5 15:08:24 2006
@@ -1,6 +1,6 @@
 ;;;; -*- Mode: LISP -*-
 ;;;;
-;;;; $Id: debug-prevalence.lisp,v 1.2 2004/07/05 21:22:08 scaekenberghe Exp $
+;;;; $Id: debug-prevalence.lisp,v 1.3 2006/01/05 14:08:24 scaekenberghe Exp $
 ;;;;
 ;;;; Some debugging routines for CL-PREVALENCE
 ;;;;
@@ -12,11 +12,13 @@
 
 (in-package :cl-prevalence)
 
+;; the code for #'s-xml::echo-xml is in "echo.lisp" in S-XML's test code
+
 (defun print-transaction-log (system)
   "Echo the XML making up the transaction log of system to t"
   (with-open-file (in (get-transaction-log system) :direction :input)
     (loop
-     (let ((transaction (s-xml:echo-xml in *standard-output*)))
+     (let ((transaction (s-xml::echo-xml in *standard-output*)))
        (when (null transaction) (return)))))
   t)
 
@@ -33,7 +35,7 @@
 (defun print-snapshot (system)
   "Echo the XML making up the snapshot of system to t"
   (with-open-file (in (get-snapshot system) :direction :input)
-    (s-xml:echo-xml in *standard-output*))
+    (s-xml::echo-xml in *standard-output*))
   t)
 
 (defun transaction-log-tail (system &optional (count 8))