(FILECREATED "11-Dec-86 19:18:43" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH003.;2
 3197   

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

      previous date: "11-Dec-86 19:15:56" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH003.;1)


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

(PRETTYCOMPRINT RGPATCH003COMS)

(RPAQQ RGPATCH003COMS
 ((* * Fix for screwup caused by LOADFROM rather than LOADVARS in NC.PostGreet)
			 (* * changes to NOTECARDS)
			 (FNS NC.PostGreet)))
(* * Fix for screwup caused by LOADFROM rather than LOADVARS in NC.PostGreet)


(* * changes to NOTECARDS)


(DEFINEQ

(NC.PostGreet

  [LAMBDA NIL                                                (* Randy.Gobbel "11-Dec-86 19:13")


          (* * 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)



    (DECLARE
 (
GLOBALVARS
 NC.CardTypes NC.CoreFiles NC.LOADFLG))
    [LET (FullFileName TypeName Type File)

          (* * 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
 NOTECARDTYPES unless
 (
AND
 (
SETQ
 Type (
GETHASH
 TypeName 
										    NC.CardTypes))
							    (
NOT
 (fetch
 (NoteCardType StubFlg)
								      of
 Type)))
	    do
 (
NC.CardTypeLoader
 TypeName NIL T))
         (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
 NC.CoreFiles do
 (if
 (
NOT
 (
BOUNDP
 (
FILECOMS
 file)))
						      then
 (
LOADVARS
 (
FILECOMS
 file)
									 (
NC.FindFile
 file]
	       (
NC.FixFileDates
 NC.CoreFiles])
)
(PUTPROPS RGPATCH003 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (616 3116 (NC.PostGreet 626 . 3114)))))
STOP