(FILECREATED " 9-Jan-85 17:41:11" {ERIS}<SPEECH>LEXICON>MODIFY-LFG.PLUS;2
 1385   

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

      previous date: " 9-Jan-85 17:27:11" {ERIS}<SPEECH>LEXICON>MODIFY-LFG.PLUS;1)


(* 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 (372 1363 (STORELEXPRIME 382 . 1361)))))
STOP