(FILECREATED " 3-Apr-87 18:01:39" ("compiled on " {QV}1.3K>NEXT>RHTPATCH238.;1) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 3-Apr-87 18:01:22" {QV}1.3K>NEXT>RHTPATCH238.;1 16760 changes to: (VARS RHTPATCH238COMS)) (LOAD? (NC.FindFile (QUOTE NCREPAIR))) NC.ScavengeDatabaseFileA0001A0002 D1 (P 6 Link P 0 Card I 1 Key I 0 Value F 7 NoteCardNumber F 10Q ReconstructLinks F 11Q ReconstructGlobalLinks F 12Q InterestedWindow F 13Q CardTotal F 14Q ListOfBoxesToReconstruct F 15Q ListOfCardsNeedingGlobalLinksReconstructed) @Wkcdl YjI)I #Wiol oWoWo Hg H Hg )Hg HgH HgH Hi H H H gjHgH AJ[KHg HgH H Hg HgH WH MPWH MfHi N gN`HN NLMh\[JZtM&\N Ng NWcM]N Ng NWcM]v(562Q NC.FetchUserDataProp 544Q NC.GlobalLinkP 537Q BLOCK 515Q NC.FetchUserDataProp 477Q NC.ChildLinkP 472Q BLOCK 436Q NC.DelReferencesToCard 414Q NC.FetchStatus 402Q BLOCK 374Q NC.DeactivateCard 357Q NC.FetchFromLinks 340Q NC.FetchFromLinks 330Q NC.SetUserDataProp 325Q NC.FetchGlobalLinks 314Q NC.FetchUserDataProp 305Q NC.SetUserDataProp 302Q \NCONC2 277Q NC.FetchGlobalLinks 272Q NC.SetUserDataProp 267Q NC.FetchGlobalLinks 255Q NC.FetchUserDataProp 234Q NC.CollectReferences 216Q NC.FetchStatus 212Q NC.ActivateCard 206Q NC.GetMainCardData 201Q NC.DeactivateCard 173Q NC.SetUserDataProp 170Q NC.FetchGlobalLinks 157Q NC.SetUserDataProp 154Q NC.FetchGlobalLinks 142Q NC.FetchUserDataProp 131Q NC.FetchUserDataProp 121Q NC.GetLinks 114Q NC.FetchUserDataProp 104Q NC.PrintMsg 60Q CHARACTER 42Q \FZEROP 25Q REMAINDER 11Q BLOCK 2 BLOCK) (557Q NeedsGlobalLinksReconstructedFlg 552Q Link 512Q NeedsReconstructingFlg 505Q Link 426Q LinkTYPE# 417Q ACTIVE 407Q Link 321Q ScavengerGlobalLinks 311Q NeedsGlobalLinksReconstructedFlg 263Q ScavengerGlobalLinks 252Q NeedsGlobalLinksReconstructedFlg 230Q ScavengerToLinks 221Q ACTIVE 164Q ScavengerGlobalLinks 150Q ScavengerToLinks 137Q NeedsGlobalLinksReconstructedFlg 126Q NeedsReconstructingFlg 111Q NeedsGlobalLinksReconstructedFlg) ( 100Q "." 72Q " out of " 64Q "Collecting Links for item " 53Q "Rebuilding notefile links.") NC.ScavengeDatabaseFileA0001A0004 D1 (P 5 LinkLabel P 4 DestinationCard P 3 Link P 0 Card I 1 Key I 0 Value F 6 NoteCardNumber F 7 DiscoveredLinkLabels F 10Q InterestedWindow F 11Q CardTotal) @Vkc dld YjI(I "Wiol oVoWo H gHg 1JhK\gKLg  K]WMWcJZ(166Q NC.SetUserDataProp 162Q NC.FetchUserDataProp 137Q BLOCK 121Q NC.FetchUserDataProp 104Q NC.FetchStatus 77Q NC.PrintMsg 54Q CHARACTER 36Q \FZEROP 21Q REMAINDER 2 BLOCK) (173Q Link 157Q ScavengerFromLinks 152Q ScavengerFromLinks 144Q Link 116Q ScavengerToLinks 107Q ACTIVE) ( 73Q "." 65Q " out of " 60Q "Inverting links for item " 47Q "Repairing NoteFile.") NC.ScavengeDatabaseFileA0001A0006 D1 (P 0 Card I 1 Key I 0 Value F 2 NoteCardNumber F 3 ToBeFiledCards F 4 InterestedWindow F 5 CardTotal) @Rkcdl YjI&I Tiol oRoUo H g7Hdg Hdg Hdg H HScHi Hi H (211Q NC.SetUserDataPropList 205Q NC.DeactivateCard 177Q NC.PutLinks 163Q NC.CardNeedsFilingP 156Q NC.SetFromLinks 153Q NC.FetchUserDataProp 142Q NC.SetToLinks 137Q NC.FetchUserDataProp 126Q NC.SetGlobalLinks 123Q NC.FetchUserDataProp 105Q NC.FetchStatus 100Q NC.PrintMsg 56Q CHARACTER 41Q \FZEROP 24Q REMAINDER 11Q BLOCK 2 BLOCK) (150Q ScavengerFromLinks 134Q ScavengerToLinks 120Q ScavengerGlobalLinks 110Q ACTIVE) ( 74Q "." 67Q " out of " 62Q "Rewriting links for item " 51Q "Repairing NoteFile.") NC.ScavengeDatabaseFileA0001 D1 (NAME ERRORSET P 30Q ToLink P 26Q GlobalLink P 24Q Link P 17Q SourceCard P 16Q ThisCardsGlobalLinks P 15Q ThisCardsToLinks P 14Q Link P 12Q BoxToReconstruct P 10Q Box P 7 Card P 6 ToBeFiledCards P 5 ReconstructGlobalLinks P 4 ReconstructLinks P 3 DiscoveredLinkLabels P 2 OldLinkLabels P 1 NoteCardNumber P 0 CardTotal F 31Q NoteFile F 32Q InterestedWindow F 33Q RESETVARSLST F 34Q ListOfBoxesToReconstruct F 35Q RESETY F 36Q BadLinkLabelsFlg F 37Q ListOfCardsNeedingGlobalLinksReconstructed F 40Q FileName) gW2hhhW6c6pWdOgi W8dOgi W2 kٸW4iol okoHo jW2g W8 OMAO]W4iol okoHo jW2g W4iol okoHo jW2g N"W4ioN o NW2 KJ W2KJ W2i W4ioW@ o N:W4hoN o *_gW2oihO OgOg LAO !O" O Oi O__(OO( O(O _&O$O&h_$_"O _ O&&_$_O_g _O*>iOgOO Og _O.5iOgOO O_E_,OO, hO*_*_0OO0 hO._.W4i c:i(1220Q NC.ClearMsg 1177Q NC.SameLinkP 1167Q BLOCK 1145Q NC.SameLinkP 1135Q BLOCK 1115Q NC.SetUserDataProp 1063Q NC.FetchUserDataProp 1052Q NC.SetUserDataProp 1020Q NC.FetchUserDataProp 1000Q BLOCK 732Q NC.MakeChildLink 714Q NC.SameCardP 677Q BLOCK 657Q NC.DeactivateCard 650Q NC.PutMainCardData 642Q NC.SetUserDataProp 637Q \APPEND2 620Q NC.FetchUserDataProp 602Q NC.MakeNoteCard 560Q BLOCK 546Q NC.PrintMsg 536Q LENGTH 515Q NC.PrintMsg 505Q FULLNAME 470Q NC.CheckpointDatabase 461Q NC.StoreLinkLabels 456Q UNION 446Q LDIFFERENCE 440Q NCP.FileCards 424Q NC.PrintMsg 414Q LENGTH 375Q MAPHASH 355Q NC.PrintMsg 333Q CHARACTER 316Q MAPHASH 276Q NC.PrintMsg 254Q CHARACTER 202Q MAPHASH 162Q NC.PrintMsg 140Q CHARACTER 105Q NC.SetUserDataProp 57Q NC.SetUserDataProp 35Q NC.RetrieveLinkLabels) (1105Q ScavengerToLinks 1060Q ScavengerToLinks 1042Q ScavengerGlobalLinks 1015Q ScavengerGlobalLinks 1006Q Link 723Q Link 707Q Link 615Q ScavengerToLinks 610Q ScavengerToLinks 564Q FileBox 433Q NoteFile 372Q NC.ScavengeDatabaseFileA0001A0006 365Q NoteFile 313Q NC.ScavengeDatabaseFileA0001A0004 306Q NoteFile 177Q NC.ScavengeDatabaseFileA0001A0002 172Q NoteFile 117Q NoteFile 101Q NeedsReconstructingFlg 53Q NeedsGlobalLinksReconstructedFlg 2 NC.ForceDatabaseClose) ( 572Q "Untitled: Reconstructed during repair" 542Q " cards in ToBeFiled box." 532Q "Filed " 511Q "." 500Q "Repair Completed for " 420Q " cards in ToBeFiled box ..." 410Q "Filing " 351Q "." 344Q " out of " 337Q "Rewriting links for item " 326Q "Repairing NoteFile." 272Q "." 265Q " out of " 260Q "Inverting links for item " 247Q "Repairing NoteFile." 156Q "." 151Q " out of " 144Q "Collecting Links for item " 133Q "Rebuilding notefile links.") NC.ScavengeDatabaseFile D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 FileName P 0 NoteFile I 4 InterestedWindow I 3 ListOfCardsNeedingGlobalLinksReconstructed I 2 ListOfBoxesToReconstruct I 1 BadLinkLabelsFlg I 0 NoteFileOrFileName F 5 LISPXHIST F 6 RESETVARSLST) i @d`XYd -IhihdddidD XDhoIol o hU!Vog hg\ Lh(145Q ERROR! 136Q RESETRESTORE 124Q NC.ScavengeDatabaseFileA0001 103Q NC.PrintMsg 73Q CHARACTER 50Q NC.OpenNoteFile 30Q NC.NoteFileOpenP 5 SPAWN.MOUSE) (132Q ERROR 121Q INTERNAL 21Q NoteFile 13Q NoteFileTYPE#) ( 116Q (NC.ScavengeDatabaseFileA0001) 77Q "Repair aborted." 66Q "." 61Q "Couldn't open ") (PRETTYCOMPRINT RHTPATCH238COMS) (RPAQQ RHTPATCH238COMS ((DECLARE: FIRST (P (LOAD? (NC.FindFile (QUOTE NCREPAIR))))) (* * Call to NC.OpenNoteFile from NC.ScavengeDatabaseFile had extra NIL in it.) (* * Change to NCREPAIR) (FNS NC.ScavengeDatabaseFile))) (PUTPROPS RHTPATCH238 COPYRIGHT ("Xerox Corporation" 1987)) NIL