+(defmacro get-rtime (key)
+ `(resource-time (gethash ,key resources-table)))
+
+(defmacro get-rplist (key)
+ `(resource-plist (gethash ,key resources-table)))
+
+(defmacro get-rconstructor (key)
+ `(resource-constructor (gethash ,key resources-table)))
+
+(defmacro get-rdestructor (key)
+ `(resource-destructor (gethash ,key resources-table)))
+