Function List->Assoc

Part of:

package weblocks
( list->assoc < lst > &key (map #'identity) )
Nondestructively convert a list of elements to an association
list If an element of a list is a cons cell, it is left as
is. Otherwise, it is replaced with a cons cell whose 'car' is the
element and whose 'cdr' is a result of 'map' applied to the
element. The 'map' is an identity by default.

Ex:
(list->assoc '(name age (city . location))) => ((name . name) (age . age) (city . location))
(list->assoc '(1 (2 . 2) 3) :map #'1+) => ((1 . 2) (2 . 2) (3 . 4))