(FILECREATED "13-Dec-2020 16:25:56" ("compiled on " {DSK}arunwelch>Documents>unix>lisp>lde>docs>sybalsky>IMNAME.;1) " 9-Apr-2000 18:01:32" tcompl'd in "Medley 3.5 Full Sysout 11-Dec-2020 ..." dated "11-Dec-2020 18:51:10") (FILECREATED "14-Jul-86 14:48:47" {ERINYES}LISP>IMNAME.;2 36556 changes to: (VARS IMNAMECOMS) (FNS IMNAME.UPDATE.SEND.INFO) previous date: "30-Sep-85 13:02:01" {ERINYES}LISP>IMNAME.;1) DELETE.UNDER.MENUS D8 (P 2 UNDER.WINDOW P 1 UNDER.MENU P 0 TOP.WINDOW I 0 TOP.MENU.OR.WINDOW) N0@ @ Xd9g Y,Hgh I IhI Z J h(74 CLOSEW 67 DELETEMENU 61 WFROMMENU 52 DELETE.UNDER.MENUS 45 PUTWINDOWPROP 30 GETWINDOWUSERPROP 16 WFROMMENU 8 WINDOWP) (39 UNDER.MENU 25 UNDER.MENU) () DISPLAY.UNDER.MENU D8 (P 1 NEW.WINDOW P 0 TOP.WINDOW I 1 NEW.MENU I 0 TOP.MENU) @ H@ H H A A A hj Ygh AI Igg Igg HgA A h(159 MENU 152 PUTWINDOWPROP 139 WINDOWADDPROP 122 WINDOWADDPROP 105 ADDMENU 97 PUTWINDOWPROP 85 CREATEW 78 CREATEREGION 73 BITMAPHEIGHT 68 CHECK/MENU/IMAGE 62 BITMAPWIDTH 57 CHECK/MENU/IMAGE 50 BITMAPHEIGHT 45 CHECK/MENU/IMAGE 35 \INSUREWINDOW 26 \INSUREWINDOW 19 DELETE.UNDER.MENUS 5 WFROMMENU) (146 UNDER.MENU 134 MOVE.UNDER.MENUS 129 MOVEFN 117 DELETE.UNDER.MENUS 112 CLOSEFN 91 UNDER.MENU) () GET.IM.NAME.LIST D8 (P 1 HASHFILE.PTR P 0 NAME.LIST I 0 HASHFILE.NAME) ) @ YdhghIg XI H(37 CLOSEHASHFILE 30 LOOKUPHASHFILE 8 OPEN.IM.NAME.HASHFILE) (25 RETRIEVE 18 namelist) () IMNAME D8 (I 0 HASHFILE.NAME) @ (5 MAKE.IM.INSPECTOR) NIL () IMNAME.UPDATE.HASHFILEA0001 D8 (NAME SI*UNWIND-PROTECT* P 9 IM.REF.FLG P 8 IM.NOTE.FLG P 7 IM.INDEX.FILE.FLG P 6 GLOBAL.CHAPTER.NUMBER P 5 COMPLETE.FILE.NAME P 4 FILE P 2 IMNAME.UPDATE.SEND.INFO.FILENAME P 1 IMNAME.UPDATE.SEND.INFO.NEW.WORDS P 0 IMNAME.UPDATE.SEND.INFO.HASH I 0 SI*CLEANUP-FORMS* F 10 SI*RESETFORMS* F 11 NEW.IM.FILE.NAMES F 12 NEW.IM.FILE.INFO F 13 NEW.IM.HASH F 14 REDO.IM.FILE.NAMES F 15 NEW.IM.NAME.LIST)  ogd hggh hWcogd hggh hWcogd hggh hWcogd hggh hWcW!W!KIch\i ]o ohoMh LWcLdg WcLji" M K[(276 IMTRAN 256 GETFILEINFO 236 IM.PRINT.MESSAGE 215 SHOULDNT 203 FINDFILE 167 MOVD 147 GETD 123 MOVD 103 GETD 79 MOVD 59 GETD 35 MOVD 15 GETD) (251 CREATIONDATE 161 REF#TOPROG 156 IMNAME.UPDATE.REF#TOPROG 141 REF#TOPROG 117 SEND.INFO 112 IMNAME.UPDATE.SEND.INFO 97 SEND.INFO 73 INCLUDE.FILE 68 NILL 53 INCLUDE.FILE 29 DUMP 24 NILL 9 DUMP) ( 227 "Retranslating file: " 221 " Warning: " 210 "Could find file before, but not now" 136 (LAMBDA (FN DEF) (PUTD FN DEF)) 92 (LAMBDA (FN DEF) (PUTD FN DEF)) 48 (LAMBDA (FN DEF) (PUTD FN DEF)) 4 (LAMBDA (FN DEF) (PUTD FN DEF))) IMNAME.UPDATE.HASHFILE D8 (P 35 FLUSH.IM.NAMES P 34 NEW.REFS P 33 NAM P 31 RESETSTATE P 30 SI*RESETFORMS* P 29 LISPXHIST P 24 LATEST.VERSION.FILE P 23 STANDARD.FILE.NAME P 22 FILE P 20 COMPLETEFILENAME P 19 FILE P 15 ERRFILE.NAME P 14 ERRFILE P 13 DELETE.FILE.NAMES P 12 NEW.IM.HASH P 11 NEW.IM.FILE.INFO P 10 NEW.IM.FILE.NAMES P 9 NEW.IM.NAME.LIST P 8 NEW.HASHFILE P 7 NEW.HASHFILE.NAME P 6 OLD.IM.FILE.NAMES P 5 OLD.IM.FILE.INFO P 4 OLD.IM.NAME.LIST P 3 OLD.HASHFILE P 2 FLUSH.FILES P 1 REDO.IM.FILE.NAMES P 0 DISAPPEARED.IM.FILES I 3 FLUSH.DISAPPEARED.FLG I 2 DELETE.FILES I 1 ADD.FILES I 0 OLD.HASHFILE.NAME F 36 LISPXHIST) $o @ bA bB bghg@ _gggO _@ loho@h @g ghKg ghKg 0Md_ O" O h_$O &_"O$KohoOh A!O$ 0B_&i _(\gO&g gO&g _&IohoO(h O&N ,ohohohoO&oh O$_$mdgO&g gO&g _ O" O h_$O &_"O$_N1O*DHuohoHh Cdiohoh HJ Z8_,dO !ohoO,h O,JI O,JO,i _0ohoO,h O,Hfg O,MTohoO,ooO0g oO0g oh O,JO,IO*_*gMohoh K O )O ohioO ih hohoh NJ _M1O2O4_h_n _WH!g $OL _OhdoO _O1#O@OOF _gOO gOO K7O O $ohoO h O O dO _8O6O8h_6_4O2_2O8&_6_BKOBhKg OBO J _DOBODO OBOF_FO@_@'(1150 PUTHASHFILE 1136 IMNAME.UPDATE.REFS 1130 GETHASH 1121 LOOKUPHASHFILE 1068 MEMB 1055 CLOSEHASHFILE 1047 CLOSEF 1039 IM.PRINT.MESSAGE 1031 FULLNAME 1011 OPENP 1004 CLOSEHASHFILE 994 PUTHASHFILE 980 PUTHASHFILE 963 LDIFFERENCE 938 CREATEHASHFILE 932 LENGTH 914 UNION 901 SIRESETUNWIND 896 \MVLIST 891 IMNAME.UPDATE.HASHFILEA0001 874 HASHARRAY 843 LDIFFERENCE 835 IM.PRINT.MESSAGE 815 IM.PRINT.MESSAGE 804 FULLNAME 784 CLOSEF 775 OPENP 767 CLOSEHASHFILE 760 IM.PRINT.MESSAGE 715 IM.PRINT.MESSAGE 696 GETFILEINFO 679 GETFILEINFO 636 GETFILEINFO 618 IM.PRINT.MESSAGE 593 FINDFILE 576 MEMB 561 IM.PRINT.MESSAGE 537 MEMB 522 \APPEND2 514 IM.PRINT.MESSAGE 486 IM.PRINT.MESSAGE 421 PACKFILENAME 416 FILENAMEFIELD 399 FILENAMEFIELD 368 IM.PRINT.MESSAGE 325 MEMB 316 IM.PRINT.MESSAGE 290 PACKFILENAME 285 FILENAMEFIELD 268 FILENAMEFIELD 247 FINDFILE 220 IM.PRINT.MESSAGE 158 LOOKUPHASHFILE 140 LOOKUPHASHFILE 122 OPENHASHFILE 110 IM.PRINT.MESSAGE 88 INFILEP 80 PACKFILENAME 56 PACKFILENAME 37 U-CASE 29 U-CASE 21 U-CASE 15 FILESLOAD) (1116 RETRIEVE 985 fileinfo 971 namelist 886 SIRESETUNWIND 739 ERROR 691 CREATIONDATE 674 AUTHOR 631 CREATIONDATE 411 EXTENSION 404 EXTENSION 394 NAME 387 NAME 280 EXTENSION 273 EXTENSION 263 NAME 256 NAME 153 RETRIEVE 146 fileinfo 135 RETRIEVE 128 namelist 117 INPUT 73 BODY 68 IMERR 63 EXTENSION 50 BODY 44 VERSION) ( 1024 "IMTRAN Error File: " 1018 " Warning: " 925 1.3 828 "Will keep info for disappeared files" 822 " Warning: " 797 "IMTRAN Error File: " 790 " Warning: " 753 "--- returning ---" 747 " Warning: " 701 "]" 684 " , date=" 667 " [author=" 662 " has been updated -- will re-analyze" 655 "old file " 649 " Warning: " 608 "can't find old file " 602 " Warning: " 551 "will delete info for: " 545 " Warning: " 507 "Will delete info for disappeared files" 501 " Warning: " 477 "the following files have disappeared: " 471 " Warning: " 359 " -- ignored" 352 "Can't find file " 346 " Warning: " 338 "(updating version of file in old database)" 332 " Warning: " 306 "Adding file " 300 " Warning: " 210 "Will construct new hashfile named: " 204 " Warning: " 101 "Opening old hashfile " 95 " Warning: " 10 (IMTRAN)) IMNAME.UPDATE.REF#TOPROG D8 (P 9 NEW.HASH.INFO P 8 INFO.WORD P 7 TYPE.AS.STRING P 6 NAME P 5 TEMP P 4 ARGS P 3 TYPE P 2 REF.STRING P 1 SAV P 0 FILEPTR F 10 TO.NAME F 11 IMNAME.UPDATE.SEND.INFO.HASH F 12 IMNAME.UPDATE.SEND.INFO.NEW.WORDS F 13 IM.INFILE F 14 IMNAME.UPDATE.SEND.INFO.FILENAME)  W XYdh ]dddohoh h\WggM [ddi i _L ^Wi _NW _dNWcNOWOHhhOW h(178 PUTHASH 142 GETHASH 132 L-CASE 123 U-CASE 118 MKATOM 113 LIST.TO.STRING 105 LIST.TO.STRING 100 L-CASE 93 MKSTRING 88 L-CASE 76 U-CASE 50 IM.PRINT.MESSAGE 23 PARSE.INDEX.SPEC 15 SAVE.ARG 9 GETFILEPTR) (68 TAG 61 FIGUREREF) ( 43 "null index --- ignored" 37 " Warning: ") IMNAME.UPDATE.REFSA0001 D8 (L (1 B 0 A)) @ANIL NIL () IMNAME.UPDATE.REFS D8 (P 20 FILEREFS P 10 NEW.FILEREFS P 9 OLD.FILEREFS P 8 TYPE P 6 X P 4 NEW.REF P 3 TYPES I 2 FLUSH.FILES I 1 NEW.REFS I 0 OLD.REFS) V0@dIHhZH&JAMK1 OLi ^K NKM]_@ 1O*O_AAOCO _0Ohg dB _OOh__O_O&__&OO&O&_$O"O$h_"_ O_O$&_"dO(g O(0O(d_*O,O*_._,O.IHhZ _,O*H&J_O i _OOLO_(321 SORT 315 \NCONC2 290 LAST 237 SORT 142 MEMB 130 PARTITION.LIST 84 SASSOC 64 MEMBER 54 SORT) (232 IMNAME.UPDATE.REFSA0001 125 CAR) () IMNAME.UPDATE.SEND.INFO D8 (P 3 NEW.HASH.INFO P 2 TYPE.AS.STRING P 1 INFO.WORD P 0 FILEPTR I 4 PLIST I 3 INFO I 2 SAV I 1 TYPE I 0 NAME F 4 IMNAME.UPDATE.SEND.INFO.HASH F 5 IMNAME.UPDATE.SEND.INFO.NEW.WORDS F 6 IM.INFILE F 7 IMNAME.UPDATE.SEND.INFO.FILENAME) V gC ggC gAdi i @T Dg'UDg''oDg'oDg'oI oDg'oDg'oI gC Io gC Io K@Uc @JWIHhhKT h(248 PUTHASH 218 PACK* 206 MEMB 194 PACK* 182 MEMB 170 PACK* 133 PACK* 76 GETHASH 69 LIST.TO.STRING 64 L-CASE 57 MKSTRING 52 L-CASE 35 MEMB 16 MEMB 5 GETFILEPTR) (200 *END* 176 *BEGIN* 157 SUBTYPE 145 SUBNAME 120 SUBSUBTYPE 108 SUBSUBNAME 94 SUBSUBNAME 85 SUBNAME 42 Definition 29 *DEF* 22 Primary 10 *PRIMARY*) ( 213 "/end" 189 "/begin" 163 "/" 151 "/" 139 "sub -> " 126 "/" 114 "/" 102 " -> ") INSPECT.IM D8 (P 4 FILE.POS.PTR P 3 TYP P 2 HASHFILE.DEFAULT.DIRECTORY P 1 HASHFILE.PTR P 0 REFS I 1 HASHFILE.NAME I 0 NAM) PA YdhgIg g gIg g Z@ hIg XI H@o hh@JHh h(136 REDISPLAY.IM.TYPE.MENU 121 PROMPTPRINT 116 CONCAT 104 CLRPROMPT 96 CLOSEHASHFILE 89 LOOKUPHASHFILE 77 U-CASE 70 PACKFILENAME 65 FILENAMEFIELD 55 HASHFILEPROP 39 FILENAMEFIELD 29 HASHFILEPROP 8 OPEN.IM.NAME.HASHFILE) (84 RETRIEVE 60 DIRECTORY 50 NAME 44 DIRECTORY 34 HOST 24 NAME 18 HOST) ( 111 " has no references") MAKE.IM.INSPECTORA0001 D8 (I 0 WINDOW) @g (15 CLOSEHASHFILE 10 GETWINDOWUSERPROP) (5 IM.NAME.HASHFILE) () MAKE.IM.INSPECTOR D8 (P 4 MENU P 3 WINDOW P 2 HASHFILE.DEFAULT.DIRECTORY P 1 HASHFILE.WINDOW.STRING P 0 HASHFILE.PTR I 1 MENU.REGION I 0 HASHFILE.NAME) /`@ Xddg g YgHg g gHg g ZAljl%hddoI hj [dgh Kgh KgH KgI KgJ Kgg Kgg Kgg `dg dgjdndhdM \dK L h(299 REDISPLAY.IM.NAME.MENU 293 ADDMENU 244 WINDOWADDPROP 228 WINDOWADDPROP 212 WINDOWADDPROP 196 PUTWINDOWPROP 184 PUTWINDOWPROP 172 PUTWINDOWPROP 160 PUTWINDOWPROP 148 PUTWINDOWPROP 135 CREATEW 128 GETBOXREGION 122 CONCAT 100 PACKFILENAME 95 FILENAMEFIELD 85 HASHFILEPROP 69 FILENAMEFIELD 59 HASHFILEPROP 42 U-CASE 37 FILENAMEFIELD 27 HASHFILEPROP 8 OPEN.IM.NAME.HASHFILE) (265 DEFAULTMENUHELDFN 256 CLRPROMPT 249 MENUTYPE# 239 MOVE.UNDER.MENUS 234 MOVEFN 223 DELETE.UNDER.MENUS 218 CLOSEFN 207 MAKE.IM.INSPECTORA0001 202 CLOSEFN 190 IM.NAME.DEFAULT.DIRECTORY 178 IM.NAME.HASHFILE.WINDOW.STRING 166 IM.NAME.HASHFILE 154 IM.NAME.ASSOC 142 UNDER.MENU 90 DIRECTORY 80 NAME 74 DIRECTORY 64 HOST 54 NAME 48 HOST 32 NAME 22 NAME) ( 116 "Please position the IM Name Inspector Window for ") MOVE.UNDER.MENUS D8 (P 3 UNDER.WINDOW.NEW.POS P 2 UNDER.WINDOW P 1 UNDER.MENU P 0 TOP.WINDOW I 1 NEW.POS I 0 TOP.MENU.OR.WINDOW) F@@ @ Xd1g Yd# AAJ JK h(66 MOVEW 50 \INSUREWINDOW 39 WFROMMENU 30 GETWINDOWUSERPROP 16 WFROMMENU 8 WINDOWP) (25 UNDER.MENU) () OPEN.IM.NAME.HASHFILE D8 (P 2 FULL.HASHFILE.NAME P 1 ABBREV.HASHFILE.NAME P 0 DEFAULT.HASHFILE.NAME I 0 HASHFILE.NAME F 3 IM.NAME.HASHFILE.ABBREVS F 4 IM.NAME.DEFAULT.HASHFILE F 5 LOGINHOST/DIR) T"Ug gggS@SII@H>i ;g@gHg i g@gH Zd)oi Ji i Jg oi @i oi i h(196 TERPRI 189 PRIN1 177 PRIN1 169 PRIN1 157 OPENHASHFILE 145 TERPRI 138 PRIN1 130 PRIN1 115 INFILEP 110 PACKFILENAME 91 FINDFILE 85 PACKFILENAME 80 FILENAMEFIELD 56 FINDFILE 13 FILENAMEFIELD) (152 INPUT 104 BODY 98 BODY 75 EXTENSION 69 EXTENSION 63 BODY 31 INTERLISP 25 LOOPS 18 IVY 8 HOST) ( 183 " not found" 163 "data base file " 124 "opening data base file ") REDISPLAY.IM.NAME.MENUA0005 D8 (I 2 MOUSEKEY I 1 MENU I 0 ITEM F 0 PROMPTWINDOW) E@A@dg-ohoPhdo  A (66 SELECT.IM.MENU.ITEM 57 MKATOM 52 U-CASE 47 PROMPTFORWORD 21 CLRPROMPT) (12 Type% an% IM% name) ( 41 (13 27 10) 33 "Type a name to be looked up in the Interlisp Manual Index" 27 "Type an IM name: ") REDISPLAY.IM.NAME.MENU D8 (P 15 X P 11 C P 5 MENU P 4 HASHFILE.DEFAULT.DIRECTORY P 3 HASHFILE.WINDOW.STRING P 2 HASHFILE.PTR P 1 NAME.ASSOC P 0 WINDOW I 0 OLDMENU F 16 IM.NAME.MAX.DISPLAY) >@ Hg YHg ZHg [Hg \`W IkCOOKoN_dOdodkdgdg dgjdndh_dO ]@ @hH Hd H M M MH KMnH M_OOLOOoh_OOh__O_Ok_O&_(246 SHADEITEM 235 ADDMENU 228 SHAPEW 223 CREATEREGION 218 BITMAPHEIGHT 213 CHECK/MENU/IMAGE 207 BITMAPWIDTH 202 CHECK/MENU/IMAGE 192 \INSUREWINDOW 183 \INSUREWINDOW 176 DELETEMENU 168 DELETE.UNDER.MENUS 55 GETWINDOWUSERPROP 43 GETWINDOWUSERPROP 31 GETWINDOWUSERPROP 19 GETWINDOWUSERPROP 5 WFROMMENU) (138 DEFAULTMENUHELDFN 129 CLRPROMPT 120 REDISPLAY.IM.NAME.MENUA0005 61 MENUTYPE# 50 IM.NAME.DEFAULT.DIRECTORY 38 IM.NAME.HASHFILE.WINDOW.STRING 26 IM.NAME.HASHFILE 14 IM.NAME.ASSOC) ( 272 "Reselect an old IM name" 106 "IM Name Inspector" 88 (Type% an% IM% name Type% an% IM% name "The user is prompted to type in a new IM name")) REDISPLAY.IM.REF.MENUA0006 D8 (I 2 MOUSEKEY I 1 MENU I 0 ITEM) @h@ (17 TEDIT.IM.FILE) NIL () REDISPLAY.IM.REF.MENU D8 (P 14 PTR P 10 PTRS.TO.ONE.FILE P 3 REFS P 2 DEFAULT.DIR P 1 SELECTED.NAME P 0 SELECTED.TYPE I 1 TYPE.NAME.DIR.REFS I 0 NAME.OR.TYPE.MENU) 7AAAA4@`0 HKd oO gOgJ hoh@OVd_ooOo gOgJ Ooh_O Oh_O&_O_OoO__XOdLoIoHo dMdkdgdg dgjdndhdN h _O(302 LAST 295 DISPLAY.UNDER.MENU 235 CONCAT 136 PACKFILENAME 117 CONCAT 69 PACKFILENAME 50 CONCAT) (270 DEFAULTMENUHELDFN 261 CLRPROMPT 252 REDISPLAY.IM.REF.MENUA0006 130 BODY 122 BODY 63 BODY 55 BODY 22 MENUTYPE#) ( 229 ")" 223 " (type " 217 "Refs for " 146 "creates/finds TEDIT window into the file, and positions the cursor at the selected reference" 112 ")" 103 " (" 98 "index" 76 "creates/finds TEDIT window into the file" 42 "from: ") REDISPLAY.IM.TYPE.MENUA0006 D8 (I 2 MOUSEKEY I 1 MENU I 0 ITEM) @hA@@ (16 REDISPLAY.IM.REF.MENU) NIL () REDISPLAY.IM.TYPE.MENU D8 (P 2 REFS P 1 SELECTED.NAME P 0 NAME.WINDOW I 1 NAME.DIR.REFS I 0 NAME.MENU) @ AA3Jk @JA @`0J dAohONh_N&_OdKoIo dLdkdgdg dgjdndhdM h(167 DISPLAY.UNDER.MENU 107 CONCAT 33 REDISPLAY.IM.REF.MENU 21 EQLENGTH 5 WFROMMENU) (142 DEFAULTMENUHELDFN 133 CLRPROMPT 124 REDISPLAY.IM.TYPE.MENUA0006 42 MENUTYPE#) ( 102 "'" 96 "ref types for '" 58 "Select which type you want the references for") SELECT.IM.MENU.ITEM D8 (P 4 HASHFILE.PTR P 3 REFS P 2 NAM.DATA P 1 WINDOW P 0 NAME.ASSOC I 1 MENU I 0 NAM) PA Ydg XIg \@H[@HZddJdH @ hLg [5@KHIgH A bd@Ig Kh h@o h(153 PROMPTPRINT 148 CONCAT 136 CLRPROMPT 129 REDISPLAY.IM.TYPE.MENU 119 GETWINDOWUSERPROP 104 REDISPLAY.IM.NAME.MENU 98 PUTWINDOWPROP 77 LOOKUPHASHFILE 65 U-CASE 57 REMOVE 32 GETWINDOWUSERPROP 20 GETWINDOWUSERPROP 8 WFROMMENU) (114 IM.NAME.DEFAULT.DIRECTORY 92 IM.NAME.ASSOC 72 RETRIEVE 27 IM.NAME.HASHFILE 15 IM.NAME.ASSOC) ( 143 " has no references") TEDIT.IM.FILE D8 (P 7 FULL.FILE.NAME P 6 POSS.FILENAME P 5 POSS.TOBJ P 4 X P 1 TEDIT.TEXT.OBJECT P 0 NORMAL.FILE.NAME I 1 IM.FILE.PTR I 0 IM.FILE.NAME F 8 PROMPTWINDOW) ug@g g@g !@G1KIAIAklٺkJgJe\g ]K, ^d3@4Ng Hg Ng Hg hYMIK[kjg I IAkjg I I . yHi @ O'HW oW W >oW OW W OhdA gAkh h(369 TEDIT 345 TERPRI 337 PRIN1 327 PRIN1 314 CLRPROMPT 307 TERPRI 299 PRIN1 286 PRIN1 277 CLRPROMPT 265 INFILEP 257 FINDFILE 247 TTY.PROCESS 240 \INSUREWINDOW 225 TEDIT.NORMALIZECARET 218 TEDIT.SETSEL 202 TEDIT.NORMALIZECARET 195 TEDIT.SETSEL 168 FILENAMEFIELD 157 FILENAMEFIELD 143 FILENAMEFIELD 132 FILENAMEFIELD 114 FULLNAME 97 GETWINDOWUSERPROP 51 OPENWINDOWS 36 PACKFILENAME 31 FILENAMEFIELD 15 FILENAMEFIELD) (358 SEL 232 TEXTOBJ 213 LEFT 190 LEFT 163 EXTENSION 152 EXTENSION 138 NAME 127 NAME 107 TEXTOBJ 92 TEXTOBJ 26 EXTENSION 20 EXTENSION 10 NAME 4 NAME) ( 320 "Please specify a TEDIT window for " 292 " not found") (PRETTYCOMPRINT IMNAMECOMS) (RPAQQ IMNAMECOMS ((FNS DELETE.UNDER.MENUS DISPLAY.UNDER.MENU GET.IM.NAME.LIST IMNAME IMNAME.UPDATE.HASHFILE IMNAME.UPDATE.REF#TOPROG IMNAME.UPDATE.REFS IMNAME.UPDATE.SEND.INFO INSPECT.IM MAKE.IM.INSPECTOR MOVE.UNDER.MENUS OPEN.IM.NAME.HASHFILE REDISPLAY.IM.NAME.MENU REDISPLAY.IM.REF.MENU REDISPLAY.IM.TYPE.MENU SELECT.IM.MENU.ITEM TEDIT.IM.FILE) (INITVARS (IM.NAME.MAX.DISPLAY 5) ( IM.NAME.DEFAULT.HASHFILE NIL) (IM.NAME.HASHFILE.ABBREVS (QUOTE ((INTERLISP . {ERINYES}INTERLISP.IMNAMEHASH) (LOOPS . {INDIGO}MANUAL>LOOPS.IMNAMEHASH))))) (FILES HASH) (MACROS IMNAME.RESETSAVE.MOVD))) (RPAQ? IM.NAME.MAX.DISPLAY 5) (RPAQ? IM.NAME.DEFAULT.HASHFILE NIL) (RPAQ? IM.NAME.HASHFILE.ABBREVS (QUOTE ((INTERLISP . {ERINYES}INTERLISP.IMNAMEHASH) (LOOPS . {INDIGO}MANUAL>LOOPS.IMNAMEHASH)))) (FILESLOAD HASH) (PUTPROPS IMNAME.RESETSAVE.MOVD MACRO (X (BQUOTE (RESETSAVE (MOVD , (CAR X) , (CADR X) , (CADDR X)) ( LIST (QUOTE (LAMBDA (FN DEF) (PUTD FN DEF))) , (CADR X) (GETD , (CADR X))))))) (PUTPROPS IMNAME COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986)) NIL