(FILECREATED " 9-Jan-85 17:27:11" {ERIS}<SPEECH>LEXICON>MODIFY-LFG.PLUS;1 1302   

      changes to:  (VARS MODIFY-LFGCOMS)
		   (FNS STORELEXPRIME))


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

(PRETTYCOMPRINT MODIFY-LFGCOMS)

(RPAQQ MODIFY-LFGCOMS ((FNS STORELEXPRIME)))
(DEFINEQ

(STORELEXPRIME
  [LAMBDA (LANGUAGE WORD ENTRY)                              (* mmw: " 9-Jan-85 17:23")

          (* * comment)


    (OR (EQ WORD (QUOTE >>W<<))
	(PROG ((LEXNAME (LIST LANGUAGE WORD))
	       (OLDENTRY (GETLEX LANGUAGE WORD)))
	      (RETURN (COND
			[(NEQ T (EQUALN OLDENTRY ENTRY 1000))
			  (COND
			    [ENTRY [/PUTHASH WORD ENTRY
					     (CDR (OR (FASSOC LANGUAGE LEXICONLIST)
						      (CAR (push LEXICONLIST
								 (CONS LANGUAGE (CONS (HARRAY 20]
				   (MARKASCHANGED LEXNAME (QUOTE LEXENTRIES)
						  (QUOTE CHANGED))
				   (CONS LEXNAME (QUOTE (redefined]
			    (OLDENTRY (/PUTHASH WORD NIL (CDR (FASSOC LANGUAGE LEXICONLIST)))
				      (MARKASCHANGED LEXNAME (QUOTE LEXENTRIES)
						     (QUOTE DELETED))
				      (CONS LEXNAME (QUOTE (deleted]
			(T (CONS LEXNAME (QUOTE (not changed])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (289 1280 (STORELEXPRIME 299 . 1278)))))
STOP