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

Modified Files: soap.lisp Log Message: OK, the last changed introduced some nasty bug - sorry

Date: Thu Oct 6 10:07:59 2005 Author: scaekenberghe

Index: cl-soap/src/soap.lisp diff -u cl-soap/src/soap.lisp:1.10 cl-soap/src/soap.lisp:1.11 --- cl-soap/src/soap.lisp:1.10 Wed Oct 5 15:24:38 2005 +++ cl-soap/src/soap.lisp Thu Oct 6 10:07:58 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: soap.lisp,v 1.10 2005/10/05 13:24:38 scaekenberghe Exp $ +;;;; $Id: soap.lisp,v 1.11 2005/10/06 08:07:58 scaekenberghe Exp $ ;;;; ;;;; The basic SOAP protocol ;;;; @@ -106,11 +106,11 @@ :header-attributes header-attributes :body-attributes body-attributes)) (call-xml (s-xml:print-xml-string call-soap-envelope :pretty t)) - result-xml result-soap-envelope) + result-soap-envelope) (when *debug-stream* (setf *last-soap-call-xml* call-soap-envelope) (format *debug-stream* ";; SOAP CALL sending: ~a~%" call-xml)) - (multiple-value-bind (result code) + (multiple-value-bind (result-xml code) (do-http-request (get-url server-end-point) :method :POST :headers `(("SOAPAction" . ,(or soap-action "")))