Update fast property lists
General form: (putprop symbol key value world-alist)
See world for discussion of both utilities getprop and
Function:
(defun putprop (symb key value world-alist) (declare (xargs :guard (and (symbolp symb) (symbolp key) (plist-worldp world-alist)))) (cons (cons symb (cons key value)) world-alist))