(FILECREATED "26-Jun-87 14:24:12" ("compiled on " {QV}1.3K>NEXT>RGPATCH050.;2) "12-Nov-85 14:59:23" recompiled changes: NC.CardTypeStubLoader in "LOOPS/KOTO 17-Apr-87 ..." dated "17-Apr-87 16:50:00") (FILECREATED "26-Jun-87 14:23:57" {QV}1.3K>NEXT>RGPATCH050.;2 3366 changes to: (FNS NC.CardTypeStubLoader) (VARS RGPATCH050COMS) previous date: "18-Jun-87 18:03:30" {QV}1.3K>NEXT>RGPATCH050.;1) NC.CardTypeStubLoaderA0001 D1 (NAME ERRORSET F 0 FileName F 1 RESETVARSLST F 2 AddTypeFn F 3 TypeName F 4 RESETY F 5 NSServerFlg) hggggPhohiggPhohhhhQc¿gSg c µU—P` ˆRPhg ¿P ci(142Q NC.FixFileDates 135Q LOADFNS 123Q LOAD? 110Q FNTYP 103Q PACK*) (132Q VARS 120Q NC.LOADFLG 100Q Card 74Q NCAddStub. 37Q QUOTE 34Q REMPROP 13Q QUOTE 10Q PUTPROP 5 oldFILEDATES 2 COND) ( 47Q ((QUOTE FILEDATES)) 23Q ((QUOTE FILEDATES) oldFILEDATES)) NC.CardTypeStubLoader D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 AddTypeFn P 2 NSServerFlg P 1 oldFILEDATES P 0 FileName I 1 FileSuggestion I 0 TypeName F 7 LISPXHIST F 10Q RESETVARSLST) fA@i Hg¹oH H´IW!Wog ‘h‚g^ ¿N“¿K ³ooKoHo  ¿K (143Q APPLY 136Q NC.ReportError 133Q CONCAT 103Q FNTYP 75Q ERROR! 67Q RESETRESTORE 55Q NC.CardTypeStubLoaderA0001 26Q STRPOS 5 NC.FindFile) (63Q ERROR 52Q INTERNAL 14Q FILEDATES) ( 127Q "." 122Q " in " 115Q "NoteCards: Can't find card type stub init procedure: " 111Q "NC.CardTypeStubLoader" 47Q (NC.CardTypeStubLoaderA0001) 22Q ":") (PRETTYCOMPRINT RGPATCH050COMS) (RPAQQ RGPATCH050COMS ((* * rg 6/18/87 now checks for files on NS servers by looking for a colon in the file name) (* * changes to NCTYPESMECH) (FNS NC.CardTypeStubLoader))) (PUTPROPS RGPATCH050 COPYRIGHT ("Xerox Corporation" 1987)) NIL