(FILECREATED "17-Aug-84 13:13:44" {ERIS}<SPEECH>LEXICON>SEARCHCOMPOUND.UTIL;1
 850    

      changes to:  (VARS SEARCHCOMPOUNDCOMS)
		   (FNS FINDCOMPOUNDS))


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

(PRETTYCOMPRINT SEARCHCOMPOUNDCOMS)

(RPAQQ SEARCHCOMPOUNDCOMS
 ((FNS FINDCOMPOUNDS)))
(DEFINEQ

(FINDCOMPOUNDS

  [LAMBDA (ARRAY OUTFILE)

          (* * find compounds marked with *)



    (PROG [(OUTSTREAM (OPENSTREAM OUTFILE (QUOTE OUTPUT]
          (for
 I TRANSCRIPTION from
 1 to
 (ARRAYSIZE ARRAY)
	     do
 (SETQ TRANSCRIPTION (CADR (ELT ARRAY I)))
		(if
 (STRPOS "*" TRANSCRIPTION)
		    then
 (PRIN1 TRANSCRIPTION OUTSTREAM)
			 (TERPRI OUTSTREAM))
		(if
 (EQ (IREMAINDER I 100)
			0)
		    then
 (PRIN1 (QUOTE hi)
				T))
	     finally
 (RETURN (CLOSEF OUTSTREAM])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (303 828 (FINDCOMPOUNDS 313 . 826)))))
STOP