(FILECREATED "28-May-86 22:07:22" ("compiled on " {ERIS}LIBRARY>CLMAIL.;5) "14-May-86 16:07:00" bcompl'd in "Xerox Lisp 14-May-86 ..." dated "14-May-86 16:39:45") (FILECREATED "28-May-86 22:00:53" {ERIS}LIBRARY>CLMAIL.;5 17448 changes to: (VARS CLMAILCOMS CLM.MENUFORMAT) (FNS UPDATEHASHFILES CLMAILDISPLAYMSG CLMAILSHOW CLMAILREDOMENU) previous date: "17-May-86 00:35:17" {ERIS}LIBRARY>CLMAIL.;2) CLMAILSHOW D1 (P 2 X P 0 WP F 3 CLM.MAILHASHNAME F 4 CLM.HEADHASHNAME F 5 CLM.MENUFORMAT) )Sg Tg U dg HIdhHIZwhHIhHIh`dg `g lddho  ` Zd` gJiIY|`JJ gJoikJaZd` gJ[iWIYIZd` gJFiBIY4(414Q \ILLEGAL.ARG 345Q \ILLEGAL.ARG 277Q \ILLEGAL.ARG 232Q \ILLEGAL.ARG 215Q OPENW 207Q MOVEW 204Q GETBOXPOSITION 170Q GETWINDOWPROP 157Q GETWINDOWPROP 41Q GETWINDOWUSERPROP 27Q FREEMENU 20Q OPENHASHFILE 6 OPENHASHFILE) (424Q BELOWFIELD 417Q FREEMENUITEM 407Q FREEMENUITEMTYPE# 355Q ABOVEFIELD 350Q FREEMENUITEM 340Q FREEMENUITEMTYPE# 307Q LINE1 302Q FREEMENUITEM 265Q FREEMENUITEMTYPE# 242Q THEWORD 235Q FREEMENUITEM 225Q FREEMENUITEMTYPE# 212Q CLM.MENUWINDOW 165Q HEIGHT 162Q CLM.MENUWINDOW 154Q WIDTH 150Q CLM.MENUWINDOW 144Q CLM.BELOWITEM 122Q CLM.ABOVEITEM 100Q CLM.HEADITEMS 61Q CLM.WORD 36Q FM.ITEMS 32Q CLM.MENUWINDOW 23Q CLM.HEADHASH 15Q INPUT 11Q CLM.MSGHASH 3 INPUT) ( 200Q "Specify the position of the menu window") CLMAILDISPLAY D1 (P 0 MSG# I 0 SLOT#) @`H` `H( h(31Q CLMAILDISPLAYMSG 16Q ARRAYSIZE) (23Q CLM.HEADARRAY 13Q CLM.HEADARRAY 3 CLM.HEAD#) () CLMAILDISPLAYMSG D1 (I 0 MSG F 0 CLM.MSGDIR) @3P@ o@ (27Q ERROR 16Q TEDIT 13Q MKATOM 10Q CONCAT) NIL ( 23Q "This isn't a CL message number") CLMAILSEARCH D1 (P 0 MSGS) ]` g' h`g !H``o  g d kJI`JHH*JkZk(132Q CLMAILLAST 72Q ARRAYSIZE 63Q ARRAY 55Q LENGTH 51Q FM.CHANGELABEL 26Q LOOKUPHASHFILE 14Q MKATOM 5 FM.READSTATE) (127Q CLM.HEAD# 105Q CLM.HEADARRAY 66Q CLM.HEADARRAY 60Q POINTER 42Q CLM.MENUWINDOW 37Q CLM.WORD 23Q RETRIEVE 20Q CLM.MSGHASH 10Q THEWORD 2 CLM.MENUWINDOW) ( 46Q "Sorry, that word isn't indexed") CLMAILREDOMENU D1 (P 2 ITM P 1 APTR) N``k` `j` `l ` ``HhZI ` IkعHX(102Q FM.CHANGELABEL 74Q CLMAILHEADSTRING 47Q FM.CHANGELABEL 41Q MAX 27Q ARRAYSIZE 15Q FM.CHANGELABEL) (77Q CLM.MENUWINDOW 55Q CLM.HEAD# 52Q CLM.HEADITEMS 44Q CLM.MENUWINDOW 32Q CLM.HEAD# 24Q CLM.HEADARRAY 20Q CLM.BELOWITEM 12Q CLM.MENUWINDOW 5 CLM.HEAD# 2 CLM.ABOVEITEM) () CLMAILHEADSTRING D1 (I 0 HEAD#) 7@` o`d@(3@`@(`@(h`g *`@((54Q LOOKUPHASHFILE 6 ARRAYSIZE) (61Q CLM.HEADARRAY 51Q RETRIEVE 46Q CLM.HEADHASH 40Q CLM.HEADARRAY 33Q CLM.HEADARRAY 20Q CLM.HEADARRAY 3 CLM.HEADARRAY) ( 14Q "") CLMAILFIRST D1 NIL k(6 CLMAILREDOMENU) (3 CLM.HEAD#) () CLMAILLAST D1 NIL k` l (22Q CLMAILREDOMENU 14Q MAX 6 ARRAYSIZE) (17Q CLM.HEAD# 3 CLM.HEADARRAY) () CLMAILFWD D1 NIL k`l ` l (33Q CLMAILREDOMENU 25Q MAX 22Q MIN 14Q ARRAYSIZE) (30Q CLM.HEAD# 11Q CLM.HEADARRAY 3 CLM.HEAD#) () CLMAILBKWD D1 NIL k`l (17Q CLMAILREDOMENU 11Q MAX) (14Q CLM.HEAD# 3 CLM.HEAD#) () CLMAILQUIT D1 NIL ` ` ` (21Q CLOSEW 13Q CLOSEHASHFILE 5 CLOSEHASHFILE) (16Q CLM.MENUWINDOW 10Q 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 (115Q PUTHASHFILE 111Q CONCAT 70Q READ 63Q READ 56Q READ 51Q READ 43Q CLOSEF 36Q CLOSEHASHFILE 31Q EOFP 22Q OPENSTREAM 13Q CREATEHASHFILE) (17Q INPUT 3 SMALLEXPR) ( 104Q " " 77Q " ") 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(64Q PUTHASHFILE 60Q NREVERSE 45Q READ 33Q PUTHASHFILE 27Q NREVERSE 21Q 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 10Q LISPXHIST F 11Q RESETVARSLST) AAglPnY @g 2I ZW!Wog hg_ ON(74Q ERROR! 66Q RESETRESTORE 53Q MAKECMLMAILHASHA0001 31Q READ 22Q OPENSTREAM 13Q CREATEHASHFILE) (61Q ERROR 50Q INTERNAL 17Q INPUT 3 EXPR) ( 45Q (MAKECMLMAILHASHA0001)) UPDATEHASHFILES D1 (P 11Q VLIST P 10Q 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 12Q CLM.MAILDATANAME F 13Q CLM.HEADDATANAME F 14Q CLM.MAILHASHNAME F 15Q CLM.MSGDIR F 16Q CLM.HEADHASHNAME F 17Q 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(340Q SPACES 332Q PRIN1 323Q PUTHASHFILE 317Q \NCONC2 314Q DREVERSE 307Q LOOKUPHASHFILE 266Q READ 256Q SPACES 250Q PRIN1 242Q DELFILE 235Q COPYFILE 232Q CONCAT 223Q CONCAT 214Q PUTHASHFILE 205Q READ 200Q READ 172Q TERPRI 165Q PRIN1 154Q TERPRI 147Q CLOSEHASHFILE 142Q CLOSEF 135Q PUTHASHFILE 131Q \NCONC2 126Q DREVERSE 121Q LOOKUPHASHFILE 104Q READP 75Q READ 70Q TERPRI 64Q CLOSEF 57Q CLOSEHASHFILE 51Q READP 37Q OPENHASHFILE 27Q OPENHASHFILE 17Q OPENSTREAM 7 OPENSTREAM) (304Q RETRIEVE 116Q RETRIEVE 34Q BOTH 24Q BOTH 14Q INPUT 4 INPUT) ( 161Q "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 () (PRETTYCOMPRINT CLMAILCOMS) (RPAQQ CLMAILCOMS ((FNS CLMAILSHOW CLMAILDISPLAY CLMAILDISPLAYMSG CLMAILSEARCH 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)))) (RPAQQ CLM.MENUFORMAT ((PROPS FORMAT ROW) ((LABEL "Common Lisp Mailing List Index" FONT (MODERN 10 BOLD) HJUSTIFY CENTER)) ((TYPE EDITSTART LABEL Word: FONT (MODERN 10 BOLD) LINK THEWORD) (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