+29 Nov 2006 Kevin Rosenberg <kevin@rosenberg.net>
+ * Version 1.92
+ * strings.lisp: Add uri-query-to-alist
+
24 Oct 2006 Kevin Rosenberg <kevin@rosenberg.net>
* Version 1.91
* io.lisp: Fix output from read-file-to-string
+cl-kmrcl (1.92-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Wed, 29 Nov 2006 09:31:48 -0700
+
cl-kmrcl (1.91-1) unstable; urgency=low
* New upstream
-- Kevin M. Rosenberg <kmr@debian.org> Tue, 24 Oct 2006 20:45:19 -0600
+>>>>>>> .r11322
cl-kmrcl (1.90-1) unstable; urgency=low
* New upstream
#:charhex
#:encode-uri-string
#:decode-uri-string
+ #:uri-query-to-alist
#:non-alphanumericp
#:random-string
#:first-char
(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+