<> <> <> DIRECTORY CD; CDObjectProcs: CEDAR DEFINITIONS = BEGIN RegisterFurther: PROC [key: REF, technology: CD.Technology_NIL, default: REF_NIL]; <<--if default#NIl use only values type compatible with default>> 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.