diff options
Diffstat (limited to 'lisp/net/soap-client.el')
| -rw-r--r-- | lisp/net/soap-client.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el index 922f6985761..48cf6ec62f5 100644 --- a/lisp/net/soap-client.el +++ b/lisp/net/soap-client.el @@ -895,9 +895,8 @@ This is a specialization of `soap-encode-value' for (setf (soap-xs-element-type^ new-element) (soap-xs-complex-type-base type)) (cl-loop for i below (length value) - do (progn - (soap-encode-xs-element (aref value i) new-element) - ))) + do (soap-encode-xs-element + (aref value i) new-element))) (soap-encode-value value type)) (insert "</" fq-name ">\n")) ;; else @@ -1163,7 +1162,8 @@ See also `soap-wsdl-resolve-references'." "Add union members defined in XML NODE to TYPE, an `soap-xs-simple-type'." (cl-assert (eq (soap-l2wk (xml-node-name node)) 'xsd:union) nil - "expecting xsd:union node, got %s" (soap-l2wk (xml-node-name node))) + "expecting xsd:union node, got %s" + (soap-l2wk (xml-node-name node))) (setf (soap-xs-simple-type-base type) (mapcar 'soap-l2fq |