Function Update-Alist

( update-alist < akey > < value > < alist > &key (test '#'eql) (key '#'identity) )
Macro to support below (setf get-alist)