(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10) (FILECREATED "16-May-2026 09:19:48" ("compiled on " |{MEDLEY}tmax>TMAX-INDEX.;24|) "15-May-2026 14:49:15" |brecompiled| |exprs:| CREATE.INDEX.FILE GET.INDEX.FILE |in| "FULL 15-May-2026 ..." |dated| "15-May-2026 14:49:24") (FILECREATED "16-May-2026 09:19:48" |{MEDLEY}tmax>TMAX-INDEX.;24| 46972 :EDIT-BY |rmk| :CHANGES-TO (FNS CREATE.INDEX.FILE GET.INDEX.FILE) :PREVIOUS-DATE "28-Feb-2025 23:36:19" |{MEDLEY}tmax>TMAX-INDEX.;22|) INDEXOBJ :D8 (P 0 NEWOBJ I 1 INDEXENTRY.PARMS I 0 KEY F 1 \\INDEXOBJ.IMAGEFNS) )AQ Hg@HggH(37 IMAGEOBJPROP 21 IMAGEOBJPROP 6 IMAGEOBJCREATE) (32 INDEXOBJ 27 TYPE 15 INDEX.KEY) () INDEXOBJP :D8 (I 0 OBJ) @dŸg gð(12 IMAGEOBJPROP) (17 INDEXOBJ 7 TYPE) () INDEX.DISPLAYFN :D8 (P 1 CURRENT.PAGE P 0 PGS/IMOBJS I 3 TSTREAM I 2 IMAGESTREAMTYPE I 1 IMAGESTREAM I 0 OBJ F 2 INDEXDISPLAYAPPEARANCE) ”A gð²URgð³J`A Rdgð¿@A`gðš@Anÿÿ@A @ A h@A Hd²¿IH µHdIh Ih(139 \\APPEND2 126 MEMB 108 INDEX.PAGE.NUMBER 103 GETHASH.INDEX 93 PRIN3 87 INDEX.STRING 81 TMAX.SHADEOBJ 73 TMAX.SHADEOBJ 55 TMAX.SHADEOBJ 33 DSPFONT 5 IMAGESTREAMTYPE) (61 HIGHLIGHT 50 GRAYSHADE 40 BOX 27 |GP.DefaultFont| 19 INVISIBLE 10 DISPLAY) () INDEX.IMAGEBOXFN :D8 (I 3 RIGHTMARGIN I 2 CURRENTX I 1 STREAM I 0 OBJ F 0 INDEXDISPLAYAPPEARANCE) }A gð™Pdgðš¿jdddhdgð¨dgð²¿l A AÈ âjdh¿@ ` `È `È jh(92 STRINGWIDTH 82 INDEX.STRING 58 CHARWIDTH 5 IMAGESTREAMTYPE) (114 FONTDESCRIPTOR 109 |GP.DefaultFont| 102 FONTDESCRIPTOR 97 |GP.DefaultFont| 87 |GP.DefaultFont| 64 FONTDESCRIPTOR 46 HIGHLIGHT 38 BOX 19 INVISIBLE 10 DISPLAY) () INDEX.PUTFN :D8 (P 1 INDEX.PUT.ARG P 0 DATUM I 1 STREAM I 0 OBJ) 3@Ég@g hH™IHh ¿IA (48 PRIN2 40 \\NCONC2 23 IMAGEOBJPROP) (18 INDEX.KEY 12 |Index| 5 IMAGEOBJ) () INDEX.GETFN :D8 (I 1 COPY.OBJECT I 0 STREAM) gAµ @ (19 APPLY 13 READ) (4 INDEXOBJ) () INDEX.COPYFN :D8 (I 2 TARGET.STREAM I 1 SOURCE.STREAM I 0 IMAGE.OBJ) KB gð²-@g B@g @ÉhlHoB (72 ERROR 67 IMAGESTREAMTYPE 39 IMAGEOBJPROP 24 IMAGEOBJPROP 5 IMAGESTREAMTYPE) (45 IMAGEOBJ 34 INDEX.KEY 19 GETFN 10 TEXT) ( 61 "Unknown TARGET stream type") INDEX.BUTTONEVENTINFN :D8 (P 4 NEW.INDEX P 0 DATUM I 7 BUTTON I 6 HOSTSTREAM I 5 WINDOW I 4 RELY I 3 RELX I 2 SEL I 1 STREAM I 0 OBJ) ·¿`kåjðhð´‚±¡@É1`@g ¹dI¿H•o„ohºdJ¿di¿dg ¿dg¿jdnÿdh»dK ¿ L´6H—@A †@A \´!@gLHš@Lg(162 IMAGEOBJPROP 145 CHANGE.INDEX 137 CHANGE.INDEXENTRY 122 MENU 50 IMAGEOBJPROP 4 GETMOUSESTATE) (180 CHANGED 170 IMAGEOBJ 155 INDEX.KEY 97 DEFAULTMENUHELDFN 88 CLRPROMPT 45 INDEX.KEY 38 |MENUTYPE#| 28 IMAGEOBJ 10 LASTMOUSEBUTTONS) ( 69 (|Change Index| T "Change Index") 63 (|Change Extended Index| T "Change Extended Index")) INSERT.INDEX :D8 (P 1 NEW.INDEX.OBJ P 0 NEWINDEX.KEY I 0 STREAM) :@o H²H I@ @oi(55 TEDIT.PROMPTPRINT 42 TEDIT.INSERT.OBJECT 32 INDEXOBJ 20 MKATOM 15 CONVERT.TABS.TO.SPACES 10 TEDIT.GETINPUT) NIL ( 49 "" 5 "Index Key:") INSERT.INDEXENTRY :D8 (P 2 NEW.INDEX.OBJ P 1 NEWINDEX.FONT P 0 NEWINDEX.KEY I 0 TSTREAM) ”@o H²mH@oH µH@oi¿` Yµ @o°æ@oi¿h J@ @oi(145 TEDIT.PROMPTPRINT 132 TEDIT.INSERT.OBJECT 122 INDEXOBJ 113 GET.INDEXENTRY.NUMBER 107 TEDIT.PROMPTPRINT 83 GET.TSP.FONT 72 TEDIT.PROMPTPRINT 54 MKATOM 49 CONVERT.TABS.TO.SPACES 44 TEDIT.GETINPUT 39 MKSTRING 20 MKATOM 15 CONVERT.TABS.TO.SPACES 10 TEDIT.GETINPUT) (78 |GP.DefaultFont|) ( 139 "" 101 "Extended Index Number option..." 92 "Invalid font specification...try again." 66 "Extended Index Entry font..." 33 "Extended Index Entry:" 5 "Extended Index Key:") INSERT.KNOWN.INDEX :D8 (P 4 NEWINDEX.OBJ P 3 NEWINDEX.KEY P 0 PREVINDICES I 0 TSTREAM) ´o @ !H²i`do¿dH¿H jØ¹dI¿di¿dg¿dg ¿dg¿jdnÿdhºdJ ¿ d²d³h@oi¿hK´#gK L@ @oi(177 TEDIT.PROMPTPRINT 165 TEDIT.INSERT.OBJECT 155 APPLY 136 TEDIT.PROMPTPRINT 114 MENU 52 SQRT 47 LENGTH 15 INDEX.LIST.REFS 9 HELP) (149 INDEXOBJ 89 DEFAULTMENUHELDFN 80 CLRPROMPT 71 SUBITEM.SELECTFN 26 |MENUTYPE#|) ( 171 "" 130 "There are no Indices/Extended Indices in this document." 33 "Index Keys" 4 "NEED TO DO TEDIT.MAPPIECES INSTEAD OF INDEX.LIST.REFS") SUBITEM.SELECTFN :D8 (P 2 SUBITEMS P 1 SUBMENU P 0 SUBMENUS I 2 KEY I 1 MENU I 0 ITEM) Ag 1@dŸ¿g@Zµ@ABH YµH`dJ¿di¿dg ¿dg¿jdnÿdh»dK ¿¹AgJIH¿I (126 MENU 119 PUTMENUPROP 47 SASSOC 40 DEFAULTWHENSELECTEDFN 10 GETMENUPROP) (109 SUBMENUS 82 DEFAULTMENUHELDFN 73 CLRPROMPT 56 |MENUTYPE#| 23 SUBITEMS 5 SUBMENUS) () ADD.NEW.INDEX :D8 (P 3 ENTRY.OBJS P 2 INDEX.OBJS P 1 HASH.VALUE P 0 CODE.ARRAY I 2 OBJ I 1 INDEXKEY I 0 IMAGESTREAM) @g 1H ³