(FILECREATED "20-Mar-87 12:22:25" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH020.;1
 3355   

      changes to:  (VARS RGPATCH020COMS)
		   (FNS NC.PostGreet))


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

(PRETTYCOMPRINT RGPATCH020COMS)

(RPAQQ RGPATCH020COMS
 ((* * RG 3/20/87 moved load of POSTRELEASEPATCHES after load of default card 
			    types)
			 (* * changes to NOTECARDS)
			 (FNS NC.PostGreet)))
(* * RG 3/20/87 moved load of POSTRELEASEPATCHES after load of default card types)


(* * changes to NOTECARDS)


(DEFINEQ

(NC.PostGreet

  [LAMBDA NIL                                                (* Randy.Gobbel "20-Mar-87 12:21")


          (* * called when loading NOTECARDS and after each greet (for NOTECARDS sysout users) Note this means you cannot put

	  anything in here that should not be called twice!)




          (* * kirk 10Jul86 added load of NCPOSTRELEASEPATCHES)




          (* * kirk 10Aug86 set quietflg in call on NC.CardTypeLoader)




          (* * fgh 8/27/86 Changed call to NC.AddCardTypeStub to NC.CardTypeStubLoader to go along with changes to 

	  AddCardTypeStub)




          (* * rg 10/29/86 Added calls to NC.FixFileDates after all LOAD calls)




          (* * rg 12/11/86 Changed LOADFROM of source to LOADVARS of coms)




          (* * RG 3/20/87 moved load of POSTRELEASEPATCHES after load of default card types)



    (DECLARE
 (
GLOBALVARS
 NC.CardTypes NC.CoreFiles NC.LOADFLG NOTECARDTYPES NOTECARDTYPESTUBS 
			     NOTECARDSLIBRARYFILES NCINITIALGLOBALPARAMS))
    [LET (FullFileName TypeName Type File)
         (for
 TypeName in
 NOTECARDTYPES unless
 (
AND
 (
SETQ
 Type (
GETHASH
 TypeName 
										    NC.CardTypes))
							    (
NOT
 (fetch
 (NoteCardType StubFlg)
								      of
 Type)))
	    do
 (
NC.CardTypeLoader
 TypeName NIL T))

          (* * in case new patches have been made since the sysout was made or the last greet)



         (
COND

	   ((
SETQ
 FullFileName (
NC.FindFile
 (
QUOTE
 POSTRELEASEPATCHES)))
	     (
LOAD?
 FullFileName NC.LOADFLG)
	     (
NC.FixFileDates
 FullFileName)))
         (for
 TypeName in
 NOTECARDTYPESTUBS unless
 (
OR
 (
NC.CardTypeRecord
 TypeName)
							       (
MEMB
 TypeName NOTECARDTYPES)
							       (
GETHASH
 TypeName NC.CardTypes))
	    do
 (
NC.CardTypeStubLoader
 TypeName))

          (* * Load the library packages requested by the user's NOTECARDSLIBRARYFILES parameters)



         (for
 File in
 NOTECARDSLIBRARYFILES unless
 (
GETPROP
 File (
QUOTE
 FILEDATES))
	    do
 (
COND

		   ((
SETQ
 FullFileName (
NC.FindFile
 File))
		     (
LOAD
 FullFileName NC.LOADFLG)
		     (
NC.FixFileDates
 FullFileName))
		   (T (
PRINT
 (
CONCAT
 "NoteCards: Can't find library file: " File "."]
    (
NCP.NoteCardsParameters
 NCINITIALGLOBALPARAMS)
    (if
 (
NEQ
 NC.LOADFLG (
QUOTE
 SYSLOAD))
	then
 [for
 file in
 (
CONS
 (
QUOTE
 NOTECARDS)
					NC.CoreFiles)
		  do
 (if
 (
NOT
 (
BOUNDP
 (
FILECOMS
 file)))
			   then
 (
LOADVARS
 (
FILECOMS
 file)
					      (
NC.FindFile
 file]
	       (
NC.FixFileDates
 NC.CoreFiles])
)
(PUTPROPS RGPATCH020 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (552 3274 (NC.PostGreet 562 . 3272)))))
STOP