(FILECREATED "17-Aug-84 17:56:21" {ERIS}<SPEECH>LEXICON>SEARCH.UTIL;2
 825    

      changes to:  (FNS FINDMATCH)

      previous date: "17-Aug-84 13:12:54" {ERIS}<SPEECH>LEXICON>SEARCH.UTIL;1)


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

(PRETTYCOMPRINT SEARCHCOMS)

(RPAQQ SEARCHCOMS
 ((FNS FINDMATCH)))
(DEFINEQ

(FINDMATCH

  [LAMBDA (ARRAY OUTFILE PATTERN)
    (PROG [(OUTSTREAM (OPENSTREAM OUTFILE (QUOTE OUTPUT]
          (for
 I TRANSCRIPTION from
 1 to
 (ARRAYSIZE ARRAY)
	     do
 (SETQ TRANSCRIPTION (CADR (ELT ARRAY I)))
		(if
 (STRPOS PATTERN TRANSCRIPTION)
		    then
 (PRIN1 TRANSCRIPTION OUTSTREAM)
			 (TERPRI OUTSTREAM))
		(if
 (EQ (IREMAINDER I 250)
			0)
		    then
 (PRIN1 (QUOTE chomp)
				T))
	     finally
 (RETURN (CLOSEF OUTSTREAM])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (319 803 (FINDMATCH 329 . 801)))))
STOP