X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=strings.lisp;h=bc5f4bde8c178e0ae257d025dc12509bdfa9da1f;hp=166c5fa28bec6e30ff68dd0083f8ab583f6bc8ec;hb=739b14ee8844dc777b174105646df3abcb865282;hpb=68c8a7d41640b4b26c0e088c752fb53703f3c548

diff --git a/strings.lisp b/strings.lisp
index 166c5fa..bc5f4bd 100644
--- a/strings.lisp
+++ b/strings.lisp
@@ -496,6 +496,13 @@ for characters in a string"
 	(setf (schar str dpos) ch)))))
 
 
+(defun uri-query-to-alist (query)
+  "Converts non-decoded URI query to an alist of settings"
+  (mapcar (lambda (set)
+            (let ((lst (kmrcl:delimited-string-to-list set #\=)))
+              (cons (first lst) (second lst))))
+          (kmrcl:delimited-string-to-list
+           (kmrcl:decode-uri-string query) #\&)))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defvar +unambiguous-charset+