better resolution of post data

source/clog-connection.lisp

@@ -446,7 +446,7 @@ the contents sent to the brower."
                                                        page-data)))
                             (when (search "multipart/form-data;"
                                           (getf env :content-type))
-                              (let ((id  (get-universal-time))
+                              (let ((id  (random-hex-string))
                                     (req (lack.request:make-request env)))
                                 (setf (gethash id *connection-data*)
                                       (lack.request:request-body-parameters req))

source/clog-form.lisp

@@ -34,7 +34,7 @@ never be GC'd. File upload items will be a four part list
 
 (defmethod form-multipart-data ((obj clog-obj))
   (clog-connection:get-connection-data
-   (parse-integer (caar (form-post-data obj)) :junk-allowed t)))
+   (caar (form-post-data obj))))
 
 (defgeneric delete-multipart-data (clog-obj)
   (:documentation "Delete the multipart data upload"))