Update of /project/cl-soap/cvsroot/cl-soap/src In directory common-lisp.net:/tmp/cvs-serv3830/src
Modified Files: http-client.lisp namespaces.lisp soap.lisp Log Message: some bugfixes (thx to carlos.ungil@bluewin.ch)
Date: Thu Sep 8 17:39:42 2005 Author: scaekenberghe
Index: cl-soap/src/http-client.lisp diff -u cl-soap/src/http-client.lisp:1.1 cl-soap/src/http-client.lisp:1.2 --- cl-soap/src/http-client.lisp:1.1 Mon Sep 5 10:35:55 2005 +++ cl-soap/src/http-client.lisp Thu Sep 8 17:39:42 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: http-client.lisp,v 1.1 2005/09/05 08:35:55 scaekenberghe Exp $ +;;;; $Id: http-client.lisp,v 1.2 2005/09/08 15:39:42 scaekenberghe Exp $ ;;;; ;;;; A basic HTTP client, somewhat API compatible with portableaserve's do-http-request ;;;; Copied from another project (basic authorization support removed) @@ -115,7 +115,8 @@ (ignore-errors (close connection :abort abort)))))))
(defun open-socket-stream (host port) - #+lispworks (comm:open-tcp-stream host port)) + #+lispworks (comm:open-tcp-stream host port) + #+openmcl (ccl:make-socket :remote-host host :remote-port port))
(defun get-open-connection (host port state &key force-new) (if state
Index: cl-soap/src/namespaces.lisp diff -u cl-soap/src/namespaces.lisp:1.1 cl-soap/src/namespaces.lisp:1.2 --- cl-soap/src/namespaces.lisp:1.1 Mon Sep 5 10:35:55 2005 +++ cl-soap/src/namespaces.lisp Thu Sep 8 17:39:42 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: namespaces.lisp,v 1.1 2005/09/05 08:35:55 scaekenberghe Exp $ +;;;; $Id: namespaces.lisp,v 1.2 2005/09/08 15:39:42 scaekenberghe Exp $ ;;;; ;;;; Definition of some standard XML namespaces commonly needed for SOAP ;;;; @@ -22,7 +22,7 @@ (:export "Envelope" "Header" "Body" "Fault" "encodingStyle") (:documentation "Package for symbols in the SOAP Envelope XML Namespace"))
-(defparameter *soapenv-ns* (s-xml:register-namespace +soapenv-ns-uri+ "soap-env" :soapenv)) +(defparameter *soapenv-ns* (s-xml:register-namespace +soapenv-ns-uri+ "soapenv" :soapenv))
;;; XSD
Index: cl-soap/src/soap.lisp diff -u cl-soap/src/soap.lisp:1.1 cl-soap/src/soap.lisp:1.2 --- cl-soap/src/soap.lisp:1.1 Mon Sep 5 10:35:55 2005 +++ cl-soap/src/soap.lisp Thu Sep 8 17:39:42 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: soap.lisp,v 1.1 2005/09/05 08:35:55 scaekenberghe Exp $ +;;;; $Id: soap.lisp,v 1.2 2005/09/08 15:39:42 scaekenberghe Exp $ ;;;; ;;;; The basic SOAP protocol ;;;; @@ -38,7 +38,7 @@ (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 :|faultactor| (rest xml))))) + (detail (second (lxml-find-tag :|detail| (rest xml))))) (make-condition 'standard-soap-fault :code code :string string