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