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