(FILECREATED "13-Aug-84 14:42:02" {ERIS}<SPEECH>LEXICON>FOOT-UTILITY.;1
 923    

      changes to:  (VARS FOOT-UTILITYCOMS)
		   (FNS EXPANDS EXPAND.ALL))


(PRETTYCOMPRINT FOOT-UTILITYCOMS)

(RPAQQ FOOT-UTILITYCOMS
 ((FNS EXPAND.ALL EXPANDS)))
(DEFINEQ

(EXPAND.ALL

  [LAMBDA (SOUNDLIST)                                        (* mmw: "13-Aug-84 14:04")

    (for
 SOUND in
 SOUNDLIST do
 (EXPANDS
 SOUND])

(EXPANDS

  [LAMBDA (SOUND)                                            (* mmw: "13-Aug-84 14:03")

    (PROG ((LEXENTRY (GETLEX (QUOTE ENGLISH)
			     SOUND)))
          (if
 (for
 ELT in
 LEXENTRY thereis
 (EQUAL (CAR ELT)
						  SOUND))
	      then
 (RETURN T)
	    else
 [push
 LEXENTRY (CONS SOUND (QUOTE (         (* NIL)
]
		 (RETURN (/STORELEX (QUOTE ENGLISH)
				    SOUND LEXENTRY])
)
(PUTPROPS FOOT-UTILITY COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (252 860 (EXPAND.ALL 262 . 433) (EXPANDS 435 . 858)))))
STOP