(FILECREATED "24-Oct-84 22:00:34" {ERIS}<SPEECH>LEXICON>LOOKUP.;1
 933    

      changes to:  (VARS LOOKUPCOMS)
		   (FNS GETPRONUN))


(* Copyright (c)  by NIL. All rights reserved.)

(PRETTYCOMPRINT LOOKUPCOMS)

(RPAQQ LOOKUPCOMS
 ((FNS GETPRONUN)))
(DEFINEQ

(GETPRONUN

  [LAMBDA (
ARRAY
 OUTFILE PATTERN)                            (* mmw: "24-Oct-84 21:50")

    (
PROG
 [(OUTSTREAM (
OPENSTREAM
 OUTFILE (
QUOTE
 OUTPUT]
          (for
 I SPELLING from
 1 to
 (
ARRAYSIZE
 ARRAY)
	     do
 (
SETQ
 SPELLING (
CAR
 (
ELT
 ARRAY I)))
		(
SETQ
 PRONUNCIATION (
CADR
 (
ELT
 ARRAY I)))
		(if
 (
STRPOS
 PATTERN SPELLING)
		    then
 (
PRIN1
 PRONUNCIATION OUTSTREAM)
			 (
TERPRI
 OUTSTREAM))
		(if
 (
EQ
 (
IREMAINDER
 I 250)
			0)
		    then
 (
PRIN1
 (
QUOTE
 chomp)
				T))
	     finally
 (
RETURN
 (
CLOSEF
 OUTSTREAM])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (261 911 (GETPRONUN 271 . 909)))))
STOP