(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "29-Oct-86 12:49:15" ("compiled on " {ERIS}LIBRARY>CLMAIL.;12) "21-Oct-86 04:13:01" "COMPILE-FILEd" in "Xerox Lisp 21-Oct-86 ..." dated "21-Oct-86 04:48:43") (FILECREATED "29-Oct-86 12:48:32" {ERIS}LIBRARY>CLMAIL.;12 16607 changes to%: (FNS CLMAILMERGE CLMAILDISPLAY CLMAILDISPLAYMSG CLMAILMSGHASH MAKECMLMAILHASH) previous date%: "22-Aug-86 15:06:43" {ERIS}LIBRARY>CLMAIL.;9) (RPAQQ CLMAILCOMS ((FNS CLMAILSHOW CLMAILDISPLAY CLMAILDISPLAYMSG CLMAILSEARCH CLMAILMSGHASH CLMAILMERGE CLMAILREDOMENU CLMAILHEADSTRING CLMAILFIRST CLMAILLAST CLMAILFWD CLMAILBKWD CLMAILQUIT MAKECMLHEADHASH MAKECMLMAILHASH UPDATEHASHFILES CMLMAIL1 CMLMAIL2 CMLMAIL3 CMLMAIL4 CMLMAIL5 CMLMAIL6 CMLMAIL7 CMLMAIL8 CMLMAIL9 CMLMAIL0) (VARS CLM.MENUFORMAT (* "Format list for Free Menu") CLM.MAILHASHNAME CLM.HEADHASHNAME (* "Names of hashfiles") CLM.MAILDATANAME CLM.HEADDATANAME (* "Names of unhashed data files") CLM.VAXCDIR CLM.MSGDIR (* "Names of magic directories")) (GLOBALVARS CLM.HEADITEMS (* "A pointer to the first message menu item in CLM.MENUFORMAT for easy referencing") CLM.ABOVEITEM CLM.BELOWITEM CLM.WORD (* "Points at Above:, Below:, and THEWORD fields") CLM.MSGHASH CLM.HEADHASH (* "Streams for message and head line hash files") CLM.MENUWINDOW (* "The menu window") CLM.HEADARRAY CLM.HEAD# (* "Array of head lines for menu and an index into it")))) CLMAILSHOW D1 (P 2 X P 0 WP F 3 CLM.MAILHASHNAME F 4 CLM.HEADHASHNAME F 5 CLM.MENUFORMAT) 7Sg Tg U dg HIdhHIZ{hHIhHIh`dg `g lddho  ` ZJoJ gJiIYxJoJ gJiieJ[ZJoJ gJQiMIY?ZJoJ gJ8i4IY&(282 ERROR 239 ERROR 197 ERROR 158 ERROR 141 OPENW 135 MOVEW 132 GETBOXPOSITION 120 GETWINDOWPROP 111 GETWINDOWPROP 33 GETWINDOWUSERPROP 23 FREEMENU 16 OPENHASHFILE 6 OPENHASHFILE) (290 BELOWFIELD 285 FREEMENUITEM 271 FREEMENUITEM 247 ABOVEFIELD 242 FREEMENUITEM 228 FREEMENUITEM 205 LINE1 200 FREEMENUITEM 184 FREEMENUITEM 166 THEWORD 161 FREEMENUITEM 147 FREEMENUITEM 138 CLM.MENUWINDOW 117 HEIGHT 114 CLM.MENUWINDOW 108 WIDTH 104 CLM.MENUWINDOW 100 CLM.BELOWITEM 82 CLM.ABOVEITEM 64 CLM.HEADITEMS 49 CLM.WORD 30 FM.ITEMS 26 CLM.MENUWINDOW 19 CLM.HEADHASH 13 INPUT 9 CLM.MSGHASH 3 INPUT) ( 278 "Arg must be FreeMenuItem" 235 "Arg must be FreeMenuItem" 192 "Arg must be FreeMenuItem" 154 "Arg must be FreeMenuItem" 128 "Specify the position of the menu window") CLMAILDISPLAY D1 (P 0 MSG# I 0 SLOT#) @`H` `H  h(27 CLMAILDISPLAYMSG 23 ELT 14 ARRAYSIZE) (19 CLM.HEADARRAY 11 CLM.HEADARRAY 3 CLM.HEAD#) () CLMAILDISPLAYMSG D1 (I 0 MSG F 0 CLM.MSGDIR) @3P@ o@ (23 ERROR 14 TEDIT 11 MKATOM 8 CONCAT) NIL ( 19 "This isn't a CL message number") CLMAILSEARCH D1 (P 0 MSGS) e``o`  !H`o`  g d kJI`JHH JkZk(98 CLMAILLAST 84 SETA 64 ARRAYSIZE 57 ARRAY 51 LENGTH 47 FM.CHANGELABEL 28 CLMAILMERGE 20 ERROR) (95 CLM.HEAD# 75 CLM.HEADARRAY 60 CLM.HEADARRAY 54 POINTER 44 CLM.MENUWINDOW 37 CLM.WORD 23 FREEMENUITEM 17 CLM.WORD 9 CLM.WORD 5 FREEMENUITEM 2 CLM.WORD) ( 41 "Sorry, that word isn't indexed" 14 "Arg must be FreeMenuItem") CLMAILMSGHASH D1 (I 0 WORD) @l@h`g o@ (25 CL:ERROR 16 LOOKUPHASHFILE) (13 RETRIEVE 10 CLM.MSGHASH) ( 21 "~S is not a word") CLMAILMERGE D1 (P 5 TR P 4 CL::$$TYPE-VALUE P 3 TERMLIST P 2 TERM P 1 RESULT P 0 STRINGSTREAM I 0 STRING) a@ g"H PH ZLJ [*LdhJdM K [oJ IgKKI YI(90 INTERSECTION 75 CL:ERROR 60 UNION 56 CLMAILMSGHASH 32 CLMAILMSGHASH 19 READ 13 EOFP 3 MAKE-STRING-INPUT-STREAM) (81 FIRSTTIME 41 LISTP 27 LITATOM 6 FIRSTTIME) ( 71 "~S is not a word or list of words") CLMAILREDOMENU D1 (P 2 ITM P 1 APTR) N``k` `j` `l ` ``HhZI ` IkعHX(66 FM.CHANGELABEL 60 CLMAILHEADSTRING 39 FM.CHANGELABEL 33 MAX 23 ARRAYSIZE 13 FM.CHANGELABEL) (63 CLM.MENUWINDOW 45 CLM.HEAD# 42 CLM.HEADITEMS 36 CLM.MENUWINDOW 26 CLM.HEAD# 20 CLM.HEADARRAY 16 CLM.BELOWITEM 10 CLM.MENUWINDOW 5 CLM.HEAD# 2 CLM.ABOVEITEM) () CLMAILHEADSTRING D1 (I 0 HEAD#) A@` o`d@ 3"@`@ `@ h`g  `@ (61 ELT 54 SETA 50 LOOKUPHASHFILE 40 ELT 33 ELT 21 ELT 6 ARRAYSIZE) (57 CLM.HEADARRAY 47 RETRIEVE 44 CLM.HEADHASH 36 CLM.HEADARRAY 29 CLM.HEADARRAY 16 CLM.HEADARRAY 3 CLM.HEADARRAY) ( 12 "") CLMAILFIRST D1 NIL k(6 CLMAILREDOMENU) (3 CLM.HEAD#) () CLMAILLAST D1 NIL k` l (18 CLMAILREDOMENU 12 MAX 6 ARRAYSIZE) (15 CLM.HEAD# 3 CLM.HEADARRAY) () CLMAILFWD D1 NIL k`l ` l (27 CLMAILREDOMENU 21 MAX 18 MIN 12 ARRAYSIZE) (24 CLM.HEAD# 9 CLM.HEADARRAY 3 CLM.HEAD#) () CLMAILBKWD D1 NIL k`l (15 CLMAILREDOMENU 9 MAX) (12 CLM.HEAD# 3 CLM.HEAD#) () CLMAILQUIT D1 NIL ` ` ` (17 CLOSEW 11 CLOSEHASHFILE 5 CLOSEHASHFILE) (14 CLM.MENUWINDOW 8 CLM.HEADHASH 2 CLM.MSGHASH) () MAKECMLHEADHASH D1 (P 5 DATE P 4 SENDER P 3 SUBJECT P 2 KEY P 1 DF P 0 HF I 1 HASHFILENAME I 0 DATAFILENAME) RAglFn @g BI H I hI I I I JKoLoM H (77 PUTHASHFILE 73 CONCAT 56 READ 51 READ 46 READ 41 READ 35 CLOSEF 30 CLOSEHASHFILE 25 EOFP 18 OPENSTREAM 11 CREATEHASHFILE) (15 INPUT 3 SMALLEXPR) ( 68 " " 63 " ") MAKECMLMAILHASHA0001A0002 D1 (F 0 HF F 1 DF) P Q (7 CLOSEF 3 CLOSEHASHFILE) NIL () MAKECMLMAILHASHA0001 D1 (NAME ERRORSET F 0 VLIST F 1 KEY F 2 RESETVARSLST F 3 DF F 4 HF F 5 NEXTITEM F 6 RESETY) HghhhRcS QP T hc iS c 3QP T UchcPc(52 PUTHASHFILE 48 CL:NREVERSE 37 READ 27 PUTHASHFILE 23 CL:NREVERSE 17 EOFP) (2 MAKECMLMAILHASHA0001A0002) () MAKECMLMAILHASH D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 NEXTITEM P 3 VLIST P 2 KEY P 1 DF P 0 HF I 1 HASHFILENAME I 0 DATAFILENAME F 8 LISPXHIST F 9 RESETVARSLST) AAglPnY @g 2I ZW!Wog hg_ ON(60 ERROR! 54 RESETRESTORE 43 MAKECMLMAILHASHA0001 25 READ 18 OPENSTREAM 11 CREATEHASHFILE) (49 ERROR 40 INTERNAL 15 INPUT 3 EXPR) ( 37 (MAKECMLMAILHASHA0001)) UPDATEHASHFILES D1 (P 9 VLIST P 8 NEXTITEM P 7 KEY P 6 VAXCFILE P 5 SUBJECT P 4 KEY P 3 HHF P 2 MHF P 1 HDF P 0 MDF F 10 CLM.MAILDATANAME F 11 CLM.HEADDATANAME F 12 CLM.MAILHASHNAME F 13 CLM.MSGDIR F 14 CLM.HEADHASHNAME F 15 CLM.VAXCDIR) Wg Wg Wg Wg 0I SK I H ! H nOdhJg O J H J i oi i hI I LMK WL ^WL N Li ki vH _33OdhJg O J Oi ki O_h_VO_M(224 SPACES 218 PRIN1 211 PUTHASHFILE 207 \NCONC2 204 DREVERSE 199 LOOKUPHASHFILE 182 READ 174 SPACES 168 PRIN1 162 DELFILE 157 COPYFILE 154 CONCAT 147 CONCAT 140 PUTHASHFILE 133 READ 128 READ 122 TERPRI 117 PRIN1 108 TERPRI 103 CLOSEHASHFILE 98 CLOSEF 93 PUTHASHFILE 89 \NCONC2 86 DREVERSE 81 LOOKUPHASHFILE 68 READP 61 READ 56 TERPRI 52 CLOSEF 47 CLOSEHASHFILE 41 READP 31 OPENHASHFILE 23 OPENHASHFILE 15 OPENSTREAM 7 OPENSTREAM) (196 RETRIEVE 78 RETRIEVE 28 BOTH 20 BOTH 12 INPUT 4 INPUT) ( 113 "DONE!") CMLMAIL1 D1 NIL k (3 CLMAILDISPLAY) NIL () CMLMAIL2 D1 NIL l (4 CLMAILDISPLAY) NIL () CMLMAIL3 D1 NIL l (4 CLMAILDISPLAY) NIL () CMLMAIL4 D1 NIL l (4 CLMAILDISPLAY) NIL () CMLMAIL5 D1 NIL l (4 CLMAILDISPLAY) NIL () CMLMAIL6 D1 NIL l (4 CLMAILDISPLAY) NIL () CMLMAIL7 D1 NIL l (4 CLMAILDISPLAY) NIL () CMLMAIL8 D1 NIL l (4 CLMAILDISPLAY) NIL () CMLMAIL9 D1 NIL l (4 CLMAILDISPLAY) NIL () CMLMAIL0 D1 NIL j (3 CLMAILDISPLAY) NIL () (RPAQQ CLM.MENUFORMAT ((PROPS FORMAT ROW) ((TYPE DISPLAY LABEL "Common Lisp Mailing List Index" FONT ( MODERN 10 BOLD) HJUSTIFY CENTER)) ((TYPE EDITSTART LABEL "Word (implicit AND):" LINKS (EDIT THEWORD) FONT (MODERN 10 BOLD)) (TYPE EDIT ID THEWORD LABEL "")) ((TYPE DISPLAY LABEL "Above:" FONT (MODERN 10 BOLD)) (TYPE DISPLAY ID ABOVEFIELD LABEL " ") (TYPE DISPLAY LABEL "Below:" FONT (MODERN 10 BOLD )) (TYPE DISPLAY ID BELOWFIELD LABEL " ")) ((TYPE MOMENTARY LABEL "Search!" FONT (MODERN 10 BOLD) SELECTEDFN CLMAILSEARCH) (TYPE MOMENTARY LABEL "First!" FONT (MODERN 10 BOLD) SELECTEDFN CLMAILFIRST) (TYPE MOMENTARY LABEL "Last!" FONT (MODERN 10 BOLD) SELECTEDFN CLMAILLAST) (TYPE MOMENTARY LABEL "Forwards!" FONT (MODERN 10 BOLD) SELECTEDFN CLMAILFWD) (TYPE MOMENTARY LABEL "Backwards!" FONT (MODERN 10 BOLD) SELECTEDFN CLMAILBKWD) (TYPE MOMENTARY LABEL "Quit!" FONT (MODERN 10 BOLD) SELECTEDFN CLMAILQUIT)) ((TYPE MOMENTARY LABEL " " ID LINE1 SELECTEDFN CMLMAIL0)) ((TYPE MOMENTARY LABEL "" SELECTEDFN CMLMAIL1)) ((TYPE MOMENTARY LABEL "" SELECTEDFN CMLMAIL2)) ((TYPE MOMENTARY LABEL "" SELECTEDFN CMLMAIL3)) ((TYPE MOMENTARY LABEL "" SELECTEDFN CMLMAIL4)) ((TYPE MOMENTARY LABEL "" SELECTEDFN CMLMAIL5)) ((TYPE MOMENTARY LABEL "" SELECTEDFN CMLMAIL6)) ((TYPE MOMENTARY LABEL "" SELECTEDFN CMLMAIL7)) ((TYPE MOMENTARY LABEL "" SELECTEDFN CMLMAIL8)) ((TYPE MOMENTARY LABEL "" SELECTEDFN CMLMAIL9)))) (RPAQQ CLM.MAILHASHNAME {ERIS}CLMAIL>MSGHASH) (RPAQQ CLM.HEADHASHNAME {ERIS}CLMAIL>HEADHASH) (RPAQQ CLM.MAILDATANAME {VAXC}/user/xais/bane/clmail/newwords) (RPAQQ CLM.HEADDATANAME {VAXC}/user/xais/bane/clmail/newheads) (RPAQQ CLM.VAXCDIR {VAXC}/user/xais/bane/clmail/) (RPAQQ CLM.MSGDIR {ERIS}CLMAIL>) (PUTPROPS CLMAIL COPYRIGHT ("Xerox Corporation" 1986)) NIL