[nongnu] elpa/xml-rpc 21a70769f4 49/64: Don't require cl (fix #11)

[Stefan Kangas]

branch: elpa/xml-rpc
commit 21a70769f4293d4228f1bceed95c69cd42faed09
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Don't require cl (fix #11)
---
 xml-rpc.el | 30 ++++++++++++++----------------
 1 file changed, 14 insertions(+), 16 deletions(-)

diff --git a/xml-rpc.el b/xml-rpc.el
index 6d3334db46..2f539980bf 100644
--- a/xml-rpc.el
+++ b/xml-rpc.el
@@ -208,8 +208,6 @@
 (require 'xml)
 (require 'url-http)
 (require 'timezone)
-(eval-when-compile
-  (require 'cl))
 
 (defconst xml-rpc-maintainer-address "mah@everybody.org"
   "The address where bug reports should be sent.")
@@ -254,20 +252,6 @@ Set it higher to get some info in the *Messages* buffer"
   "A list of extra headers to send with the next request.
 Should be an assoc list of headers/contents.  See `url-request-extra-headers'")
 
-(defsubst xml-rpc-valuep (value)
-  "Return t if VALUE is any sort of xml-rpc structure.
-
-Return nil otherwise."
-  (or (xml-rpc-value-intp value)
-      (xml-rpc-value-doublep value)
-      (xml-rpc-value-stringp value)
-      (xml-rpc-value-structp value)
-      (xml-rpc-value-arrayp value)
-      (xml-rpc-value-vectorp value)
-      (xml-rpc-value-booleanp value)
-      (xml-rpc-value-datetimep value)
-      (xml-rpc-value-base64p value)))
-
 ;;
 ;; Value type handling functions
 ;;
@@ -357,6 +341,20 @@ sequence, or it will be confused for a list."
   (and (listp value)
        (eq (car value) :base64)))
 
+(defsubst xml-rpc-valuep (value)
+  "Return t if VALUE is any sort of xml-rpc structure.
+
+Return nil otherwise."
+  (or (xml-rpc-value-intp value)
+      (xml-rpc-value-doublep value)
+      (xml-rpc-value-stringp value)
+      (xml-rpc-value-structp value)
+      (xml-rpc-value-arrayp value)
+      (xml-rpc-value-vectorp value)
+      (xml-rpc-value-booleanp value)
+      (xml-rpc-value-datetimep value)
+      (xml-rpc-value-base64p value)))
+
 (defun xml-rpc-string-to-boolean (value)
   "Return t if VALUE is a boolean"
   (or (string-equal value "true") (string-equal value "1")))