Function: cl--set-getf

(fn PLIST TAG VAL)