<> <> <> <> DIRECTORY CD, Core; SchematicExtractor: CEDAR DEFINITIONS = BEGIN Extract: PROC [design: CD.Design, what: REF_NIL, into: Core.Design, mode: REF_NIL]; <<-- caller must guaranty atomic access>> END.