DIRECTORY CirioTypes USING [CompilerContext, Type, Node]; Lists: CEDAR DEFINITIONS = BEGIN CC: TYPE = CirioTypes.CompilerContext; Type: TYPE = CirioTypes.Type; Node: TYPE = CirioTypes.Node; CreateListType: PROC [listStructType: Type, listElementType: Type, getNewList: PROC [listType: Type, data: REF ANY, cc: CC] RETURNS [Node], procData: REF ANY, cc: CC] RETURNS [Type]; ListNodeInfo: TYPE = REF ListNodeInfoBody; ListNodeInfoBody: TYPE = RECORD [ getListStruct: PROC [listStructType: Type, cc: CC, data: REF ANY] RETURNS [Node], getListElements: PROC [index: INT, listElementType: Type, cc: CC, data: REF ANY] RETURNS [Node], storeList: PROC [valNode: Node, cc: CC, data: REF ANY], getPointer: PROC[data: REF ANY, cc: CC] RETURNS[CirioTypes.Node], data: REF ANY ]; CreateListIndirectNode: PUBLIC PROC [type: Type, info: REF ANY] RETURNS [Node]; END.  Lists.mesa Theimer, July 16, 1989 6:53:26 pm PDT CirioCode.GetTypeClass[type] = $list CCTypes.GetTypeRepresentation will return NIL. Κ¨•NewlineDelimiter ™J™ Jšœ%™%J™codešΟk ˜ Kšœ œ˜/K˜KšΠlnœœ œ˜šœ˜ K˜Kšœœ˜&Kšœœ˜Kšœœ˜K˜šΟnœœ;œœœœœœœœœ˜ΆK™$Kšœ*œ™.—K™Kšœœœ˜*šœœœ˜!Kš œœœœœœ˜QKš œœ œœœœœ˜`Kš œ œœœœ˜7Jš œ œœœœœ˜AKšœœ˜ Kšœ˜—K™Kš Ÿœ œœœœ˜O—K˜Kšœ˜——…—^–