(FILECREATED " 7-Dec-84 13:18:23" {ERIS}<LISPNEW>PATCHES>UNSAVEFNSPATCH.;3
 2284   

      changes to:  (FNS UNSAVEFNS)
		   (VARS UNSAVEFNSPATCHCOMS)

      previous date: " 7-Dec-84 09:37:24" {ERIS}<LISPNEW>PATCHES>UNSAVEFNSPATCH.;1)


(* Copyright (c) 1984 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT UNSAVEFNSPATCHCOMS)

(RPAQQ UNSAVEFNSPATCHCOMS
 [(FNS UNSAVEFNS)
			   (P (CHANGENAME (QUOTE UNSAVEFNS)
					  (QUOTE MSGETDEF)
					  (QUOTE \MASTERSCOPEBLOCK/MSGETDEF])
(DEFINEQ

(UNSAVEFNS

  [LAMBDA (FNS)                                              (* rmk: " 7-Dec-84 13:10")

    (
OR
 FNS (
SETQ
 FNS (
APPEND
 MSNEEDUNSAVE)))
    (for
 FN in
 FNS when
 FN
       do
 [
OR
 (
EXPRP
 (
OR
 (
GETP
 FN (
QUOTE
 BROKEN))
			 (
GETP
 FN (
QUOTE
 ADVISED))
			 FN))
	      (
PROG
 NIL
		    (
COND

		      ((
FGETD
 FN)
			(
VIRGINFN
 FN T)
			(
SAVEDEF
 FN)))
		    (
SELECTQ
 RECOMPILEDEFAULT
			     [CHANGES                        (* don't mark as changed)

				      (
RESETVARS
 (MSDATABASELST)
                                                             (* ASSERT: ((REMOTE CALL) MSMARKCHANGED))

					         (
MARKASCHANGED
 FN (
QUOTE
 FNS]
			     [EXPRS (for
 FL in
 (
WHEREIS
 FN (
QUOTE
 FNS)
							FILELST)
				       unless
 [
OR
 (
FMEMB
 FL NOTCOMPILEDFILES)
						  (
CDR
 (
GETP
 FL (
QUOTE
 FILE]
				       do
 (
/SETATOMVAL
 (
QUOTE
 NOTCOMPILEDFILES)
						       (
CONS
 FL NOTCOMPILEDFILES]
			     NIL)
		    (
PRINT
 (
LIST
 (
QUOTE
 loading)
				 FN)
			   T T)
		    (
/PUTD
 FN (
OR
 (MSGETDEF FN T T)
				  (
PROGN
 (
PRIN1
 "Can't find a definition for " T)
					 (
PRIN2
 FN T T)
					 (
PRINT
 (
QUOTE
 !)
						T T)
					 (
RETURN
]
	  (
/SETATOMVAL
 (
QUOTE
 MSNEEDUNSAVE)
		       (
REMOVE
 FN MSNEEDUNSAVE)))
    (
AND
 FNS (
EQ
 RECOMPILEDEFAULT (
QUOTE
 CHANGES))
	 (printout
 T 
"WARNING:  you must set RECOMPILEDEFAULT to EXPRS in order to have these functions recompiled automatically"
		   T])
)
(CHANGENAME (QUOTE UNSAVEFNS)
	    (QUOTE MSGETDEF)
	    (QUOTE \MASTERSCOPEBLOCK/MSGETDEF))
(PUTPROPS UNSAVEFNSPATCH COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (500 2106 (UNSAVEFNS 510 . 2104)))))
STOP