"Converts a posted string to an assoc list of keyword names and values,
\"a=1&bc=demo\" => ((:a . \"1\") (:bc . \"demo\"))"
(when posted-string
"Converts a posted string to an assoc list of keyword names and values,
\"a=1&bc=demo\" => ((:a . \"1\") (:bc . \"demo\"))"
(when posted-string
(let ((name-val-list (kmrcl:delimited-string-to-list name=val #\=)))
(if (= 2 (length name-val-list))
(destructuring-bind (name val) name-val-list
(let ((name-val-list (kmrcl:delimited-string-to-list name=val #\=)))
(if (= 2 (length name-val-list))
(destructuring-bind (name val) name-val-list
(kmrcl:decode-uri-query-string val))
alist))
(cmsg-c :debug "Invalid number of #\= in ~S" name-val-list)))))))
(kmrcl:decode-uri-query-string val))
alist))
(cmsg-c :debug "Invalid number of #\= in ~S" name-val-list)))))))