Function: cl-set-getf

(fn PLIST TAG VAL)