(FILECREATED "25-Mar-87 17:13:01" ("compiled on " {QV}1.3K>NEXT>RHTPATCH224.;2) "12-Nov-85 14:59:23" recompiled changes: NC.TitleSearch NC.MakeSearchCard in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "25-Mar-87 17:12:51" {QV}1.3K>NEXT>RHTPATCH224.;2 3625 changes to: (VARS RHTPATCH224COMS) (FNS NC.MakeSearchCard NC.TitleSearch) previous date: "25-Mar-87 15:21:33" {QV}1.3K>NEXT>RHTPATCH224.;1) (LOAD? (NC.FindFile (QUOTE NCSEARCHCARD))) NC.TitleSearchA0001 D1 (P 1 Card P 0 PredicateResult I 1 Key I 0 Value F 2 CollectionList F 3 SearchString) #@I SI @Rc@(27Q STRPOS 24Q NC.RetrieveTitle 15Q NC.ValidCardP 5 BLOCK) NIL () NC.TitleSearch D1 (P 0 CollectionList I 1 SearchString I 0 NoteFile) @g H(16Q MAPHASH) (13Q NC.TitleSearchA0001 6 NoteFile) () NC.MakeSearchCardA0004 D1 (NAME ERRORSET L (0 NIL) P 1 HitCard F 2 Card F 3 RESETVARSLST F 4 Window F 5 HitCards F 6 NC.ListContentsLinkLabel F 7 NoteFile F 10Q SearchString F 11Q RESETY) qg` hhScTio WW c R ol l k UHThol ciYRRIV HX(151Q NC.InsertLinkBeforeMarker 132Q NC.PrintMsg 127Q CHARACTER 102Q TEDIT.INSERT 76Q CONCAT 73Q CHARACTER 66Q CHARACTER 61Q DATE 52Q NC.FetchSubstance 43Q NC.TitleSearch 33Q NC.PrintMsg 10Q CURSOR) (5 WAITINGCURSOR 2 CURSOR) ( 122Q "Done!" 56Q " List compiled on: " 30Q "Searching for cards ...") NC.MakeSearchCard D1 (P 22Q RESETZ P 21Q RESETY P 20Q LISPXHIST P 17Q FieldValue P 16Q CardTypeRecord P 15Q CardTypeName P 14Q SuperType P 13Q FieldValue P 12Q CardTypeRecord P 11Q CardTypeName P 10Q NoteCardType P 6 Window P 5 WindowOrCard P 4 HitCards P 3 SearchString P 2 NoteFile P 0 \NF I 2 NoDisplayFlg I 1 Title I 0 Card F 23Q LISPXHIST F 24Q RESETVARSLST) @Hd`@H YIQ@@ O! Od _O_dgYOOd O _doO O_dg"oogoOo  OgOg O O!Od _O_dgYOOd O _doO O_dg"oogoOo  OgOg O_@AoBlO]@ M M^ohdiN [dod@hi h@AoKo b NNgA W&!W(og hg_$ O$l Ni M(734Q NC.ClearMsg 727Q BLOCK 720Q ERROR! 711Q RESETRESTORE 676Q NC.MakeSearchCardA0004 654Q PUTWINDOWPROP 642Q NC.SetTitle 635Q CONCAT 613Q NC.DeleteNoteCard 573Q NC.AskUser 553Q WINDOWP 547Q NC.ActivateCard 513Q NC.GetCardTypeFieldOfSuper 473Q NC.ReportError 470Q CONCAT 415Q NC.ReportError 412Q CONCAT 375Q NC.CardTypeRecord 366Q NC.CardTypeLoader 323Q NC.CardTypeRecord 274Q NC.GetCardTypeFieldOfSuper 254Q NC.ReportError 251Q CONCAT 176Q NC.ReportError 173Q CONCAT 156Q NC.CardTypeRecord 147Q NC.CardTypeLoader 104Q NC.CardTypeRecord 62Q NC.GetType 46Q SPAWN.MOUSE 32Q NC.NoteFileFromNoteFileUID) (704Q ERROR 673Q INTERNAL 650Q TITLE 510Q MakeFn 501Q \\FILLME// 452Q MakeFn 433Q \\EMPTY// 423Q NoteCardType 361Q NoteCardType 344Q \\EMPTY// 334Q NoteCardType 271Q SuperType 262Q \\FILLME// 233Q SuperType 214Q \\EMPTY// 204Q NoteCardType 142Q NoteCardType 125Q \\EMPTY// 115Q NoteCardType 52Q CardObject 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 670Q (NC.MakeSearchCardA0004) 632Q "%" in title" 625Q "Cards with %"" 601Q "" 563Q "Please enter the search string: " 532Q "SearchCard" 464Q " still \\EMPTY// after autoloading." 456Q " of card type " 447Q "Field name " 443Q "NC.GetCardTypeField" 405Q "Cannot find full definition of card type: " 245Q " still \\EMPTY// after autoloading." 237Q " of card type " 230Q "Field name " 224Q "NC.GetCardTypeField" 166Q "Cannot find full definition of card type: ") (PRETTYCOMPRINT RHTPATCH224COMS) (RPAQQ RHTPATCH224COMS ((* * Fix to bug #483: Search cards break on search for "NIL") (DECLARE: COPY FIRST (P (LOAD? (NC.FindFile (QUOTE NCSEARCHCARD))))) (* * Change to NCSEARCHCARD) (FNS NC.TitleSearch NC.MakeSearchCard))) (PUTPROPS RHTPATCH224 COPYRIGHT ("Xerox Corporation" 1987)) NIL