(FILECREATED "27-Oct-84 16:54:13" ("compiled on " {ERIS}LEXICON>LOOKUP.;3) "18-Oct-84 21:14:34" recompiled changes: FIND.SUBSTRING GETPRONUN in "INTERLISP-D 18-Oct-84 ..." dated "18-Oct-84 21:30:19") (FILECREATED "27-Oct-84 16:53:59" {ERIS}LEXICON>LOOKUP.;3 2193 changes to: (FNS GETPRONUN FIND.SUBSTRING) (VARS LOOKUPCOMS) previous date: "24-Oct-84 22:00:34" {ERIS}LEXICON>LOOKUP.;1) FIND.SUBSTRING D1 (P 4 SPELLING P 3 I P 1 PATTERN P 0 OUTSTREAM I 2 OUTFILE I 1 PHRASE I 0 ARRAY F 5 PRONUNCIATION) `Bg A°Gd@ kKJó³2@K(¼@K(c ¿IL •UH ¿KdlúÜjð™¿gi ¿KkÔ[°ÎµºH ¿H (135Q CLOSEF 130Q TERPRI 107Q PRIN1 66Q PRIN1 60Q STRPOS 25Q ARRAYSIZE 6 OPENSTREAM) (103Q clank 3 OUTPUT) () GETPRONUN D1 (P 4 SPELLING P 3 I P 1 PATTERN P 0 OUTSTREAM I 2 OUTFILE I 1 PHRASE I 0 ARRAY F 5 PRONUNCIATION) gBg A°Nd@ kKJó³9@K(¼@K(c ¿ILhdihdi •UH ¿KdlúÜjð™¿gi ¿KkÔ[°Çµ³H ¿H (144Q CLOSEF 137Q TERPRI 116Q PRIN1 75Q PRIN1 67Q STRPOS 25Q ARRAYSIZE 6 OPENSTREAM) (112Q chomp 3 OUTPUT) () (PRETTYCOMPRINT LOOKUPCOMS) (RPAQQ LOOKUPCOMS ((FNS FIND.SUBSTRING GETPRONUN))) NIL