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

[Sven Van Caekenberghe]

Update of /project/cl-soap/cvsroot/cl-soap/src
In directory common-lisp.net:/tmp/cvs-serv23840/src

Modified Files:
	soap.lisp 
Log Message:
added report-soap-call debugging tool

Date: Mon Sep 26 13:15:33 2005
Author: scaekenberghe

Index: cl-soap/src/soap.lisp
diff -u cl-soap/src/soap.lisp:1.6 cl-soap/src/soap.lisp:1.7
--- cl-soap/src/soap.lisp:1.6	Mon Sep 19 18:56:13 2005
+++ cl-soap/src/soap.lisp	Mon Sep 26 13:15:32 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: soap.lisp,v 1.6 2005/09/19 16:56:13 scaekenberghe Exp $
+;;;; $Id: soap.lisp,v 1.7 2005/09/26 11:15:32 scaekenberghe Exp $
 ;;;;
 ;;;; The basic SOAP protocol
 ;;;;
@@ -84,6 +84,12 @@
 
 (defvar *last-soap-result-xml* nil
   "When *debug-stream* is non-nil, will contain the last SOAP result's parsed XML")
+
+(defun report-soap-call ()
+  (format t "~&;; CL-SOAP last call and result envelopes:~%")
+  (pprint *last-soap-call-xml*)
+  (terpri)
+  (pprint *last-soap-result-xml*))
 
 (defun soap-call (server-end-point 
                   header