   Returns a list of vectors of two elements, the first being the attribute key,
   and the second the value.
   The keys are expanded like <association name>_<associated item index>_<attribute name>"
-  (let [association-name   (name (:name    association))
-        association-schema (:schema  association)]
+  (let [association-name   (name (:name association))
+        association-schema (:schema association)]
     (apply concat
     (map-indexed
       (fn [index item-string]
          (let [item-name         (str association-name "_" index)
                named-association (assoc association :name item-name)]
            (if (empty? association-schema)
-             [ item-name item-string ]
+             [item-name item-string]
              (explode-nested-item named-association item-string))))
       items))))
 

          username   (sec/session-username (-> ctx :request :session))
          profile_id (sha1/gen-key :profile profile)]
      (when (and entity_id timestamp)
        (when (seq
                (first
                  (db/execute session (hayt/select :entities (hayt/where [[= :id entity_id]])))))
          (let [query-profile (-> profile
                                 (assoc :user_id username)
                                 (update-stringified-lists

    (fn [associated-item associated-item-attr]
      (let [associated-item-attr-name (name associated-item-attr)
            exploded-attr-name (str (name association-name) "_" index "_" associated-item-attr-name)]
        (conj associated-item {associated-item-attr (input exploded-attr-name)})))
    {}
    association-schema))

