(FILECREATED "27-Aug-86 18:56:43" {QV}<NOTECARDS>1.3K>NEXT>FGHPATCH102.;1
 2643   

      changes to:  (VARS FGHPATCH102COMS))


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

(PRETTYCOMPRINT FGHPATCH102COMS)

(RPAQQ FGHPATCH102COMS
 ((* * Fix to foxes in FGHPATCH098)
			  (* * From NOTECARDS)
			  (FNS NC.PostGreet)))
(* * Fix to foxes in FGHPATCH098)


(* * From NOTECARDS)


(DEFINEQ

(NC.PostGreet

  (LAMBDA NIL                                                (* fgh: "27-Aug-86 18:52")


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



    (LET (FullFileName TypeName Type File)

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



         (
COND

	   ((
SETQ
 FullFileName (
OR
 (
FINDFILE
 (
PACK*
 (
QUOTE
 POSTRELEASEPATCHES)
							    (
QUOTE
 .DCOM))
						   T NOTECARDSDIRECTORIES)
				       (
FINDFILE
 File T NOTECARDSDIRECTORIES)))
	     (
LOAD?
 FullFileName NC.LOADFLG)))
         (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 (
OR
 (
FINDFILE
 (
PACK*
 File (
QUOTE
 .dcom))
							   T NOTECARDSDIRECTORIES)
					       (
FINDFILE
 File T NOTECARDSDIRECTORIES)))
		     (
LOAD
 FullFileName NC.LOADFLG))
		   (T (
PRINT
 (
CONCAT
 "NoteCards: Can't find library file: " File "."))))))
    (
NCP.NoteCardsParameters
 NCINITIALGLOBALPARAMS)))
)
(PUTPROPS FGHPATCH102 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (416 2561 (NC.PostGreet 426 . 2559)))))
STOP