Commits

Anonymous committed fb4d34e

s-xml::echo-xml is now optional; made debug-prevalence optional as well, noted dependency in a comment

Comments (0)

Files changed (2)

cl-prevalence.asd

     ((:file "package")
      (:file "serialization" :depends-on ("package"))
      (:file "prevalence" :depends-on ("serialization"))
-     (:file "debug-prevalence" :depends-on ("prevalence"))
      (:file "managed-prevalence" :depends-on ("prevalence"))
      (:file "sysdeps" :depends-on ("package"))
      (:file "master-slave" :depends-on ("prevalence" "sysdeps"))

src/debug-prevalence.lisp

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