<> <> <> <> <<>> DIRECTORY CD, SafeStorage; CDObjectProcs: CEDAR DEFINITIONS = BEGIN RegisterFurther: PROC [key: REF, technology: CD.Technology_NIL, baseType: SafeStorage.Type _ SafeStorage.anyType]; <<--if baseType#anyType, use only ref's to baseType for storage>> StoreFurther: PROC [p: REF CD.ObjectProcs, key: REF, value: REF]; <<--slow, value must be type compatible with default>> FetchFurther: PROC [p: REF READONLY CD.ObjectProcs, key: REF] RETURNS [value: REF]; <<--fast>> END.