<> <> <> <> DIRECTORY CD; CDSomeImplementors: CEDAR DEFINITIONS = BEGIN <> <<>> <> SimpleGetOrigin: PRIVATE PROC[ob: CD.Object] RETURNS [CD.Position]; SimpleSetOrigin: PRIVATE PROC[ob: CD.Object, new: CD.Position]; <<--does NOT do any notification>> END.