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