[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-serv9341/src

Modified Files:
	soap.lisp 
Log Message:
better fault parsing

Date: Fri Sep 30 21:56:50 2005
Author: scaekenberghe

Index: cl-soap/src/soap.lisp
diff -u cl-soap/src/soap.lisp:1.7 cl-soap/src/soap.lisp:1.8
--- cl-soap/src/soap.lisp:1.7	Mon Sep 26 13:15:32 2005
+++ cl-soap/src/soap.lisp	Fri Sep 30 21:56:49 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: soap.lisp,v 1.7 2005/09/26 11:15:32 scaekenberghe Exp $
+;;;; $Id: soap.lisp,v 1.8 2005/09/30 19:56:49 scaekenberghe Exp $
 ;;;;
 ;;;; The basic SOAP protocol
 ;;;;
@@ -35,10 +35,10 @@
   (:documentation "Thrown by CL-SOAP when a standard SOAP Fault is read"))
 
 (defun lxml->standard-soap-fault (xml)
-  (let ((code (second (lxml-find-tag :|faultcode| (rest xml))))
-        (string (second (lxml-find-tag :|faultstring| (rest xml))))
-        (actor (second (lxml-find-tag :|faultactor| (rest xml))))
-        (detail (second (lxml-find-tag :|detail| (rest xml)))))
+  (let ((code (lxml-get-contents (lxml-find-tag :|faultcode| (rest xml))))
+        (string (lxml-get-contents (lxml-find-tag :|faultstring| (rest xml))))
+        (actor (lxml-get-contents (lxml-find-tag :|faultactor| (rest xml))))
+        (detail (lxml-get-contents (lxml-find-tag :|detail| (rest xml)))))
     (make-condition 'standard-soap-fault
                     :code code
                     :string string