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