Function Update-Plist

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