Access fast property lists
General form: (getprop symb key default world-name world-alist)
See getpropc for a convenient abbreviation, and see world for
discussion of both utilities
Macro:
(defmacro getprop (symb key default world-name world-alist) (if (equal world-name ''current-acl2-world) (cons 'fgetprop (cons symb (cons key (cons default (cons world-alist 'nil))))) (cons 'sgetprop (cons symb (cons key (cons default (cons world-name (cons world-alist 'nil))))))))