(FILECREATED "22-Aug-86 14:45:52" ("compiled on " {ERIS}LIBRARY>CLMAIL.;7) "18-Aug-86 12:42:20" recompiled changes: CLMAILSEARCH CLMAILMSGHASH CLMAILMERGE in "" dated "18-Aug-86 13:55:08") (FILECREATED "22-Aug-86 14:34:53" {ERIS}LIBRARY>CLMAIL.;7 18543 changes to: (VARS CLM.MENUFORMAT CLMAILCOMS) (FNS CLMAILSEARCH CLMAILMSGHASH CLMAILMERGE) previous date: "29-May-86 17:22:19" {ERIS}LIBRARY>CLMAIL.;6) CLMAILSHOW D1 (P 2 X P 0 WP F 3 CLM.MAILHASHNAME F 4 CLM.HEADHASHNAME F 5 CLM.MENUFORMAT) @Sg Tg U dg HIµdh¿HIZµ~h¿HIµ‚±šh¿HIµ‚±µh`dg `g lddho  ` Z`ð‘J‡oJ Égð–Jµ‚i±ÿIY±ÿu`ð’JˆoJ ÉgðšJµ‚±ÿdi±ÿ`J±ÿVZ`ð‘J‡oJ ÉgðšJµ‚±ÿJi±ÿFIY±ÿ8Z`ð‘J‡oJ ÉgðšJµ‚±ÿ/i±ÿ+IY±ÿ(443Q ERROR 366Q ERROR 312Q ERROR 240Q ERROR 215Q OPENW 207Q MOVEW 204Q GETBOXPOSITION 170Q GETWINDOWPROP 157Q GETWINDOWPROP 41Q GETWINDOWUSERPROP 27Q FREEMENU 20Q OPENHASHFILE 6 OPENHASHFILE) (453Q BELOWFIELD 446Q FREEMENUITEM 427Q FREEMENUITEMTYPE# 376Q ABOVEFIELD 371Q FREEMENUITEM 352Q FREEMENUITEMTYPE# 322Q LINE1 315Q FREEMENUITEM 274Q FREEMENUITEMTYPE# 250Q THEWORD 243Q FREEMENUITEM 224Q 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) ( 437Q "Arg must be FreeMenuItem" 362Q "Arg must be FreeMenuItem" 305Q "Arg must be FreeMenuItem" 234Q "Arg must be FreeMenuItem" 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) @3›P@ o@ (27Q ERROR 16Q TEDIT 13Q MKATOM 10Q CONCAT) NIL ( 23Q "This isn't a CL message number") CLMAILSEARCH D1 (P 0 MSGS) g``ð“`‰o` É !Hµ`o`  g d kº¹JIó³`JHH¸ ¿JkÔZ°ëk(144Q CLMAILLAST 126Q SETA 102Q ARRAYSIZE 73Q ARRAY 65Q LENGTH 61Q FM.CHANGELABEL 36Q CLMAILMERGE 26Q ERROR) (141Q CLM.HEAD# 115Q CLM.HEADARRAY 76Q CLM.HEADARRAY 70Q POINTER 56Q CLM.MENUWINDOW 47Q CLM.WORD 31Q FREEMENUITEM 23Q CLM.WORD 13Q CLM.WORD 6 FREEMENUITEMTYPE# 2 CLM.WORD) ( 53Q "Sorry, that word isn't indexed" 20Q "Arg must be FreeMenuItem") CLMAILMSGHASH D1 (I 0 WORD) @lð›@h`g o@ (31Q CL:ERROR 20Q LOOKUPHASHFILE) (15Q RETRIEVE 12Q CLM.MSGHASH) ( 25Q "~S is not a word") CLMAILREDOMENU D1 (P 2 ITM P 1 APTR) N``kÙ` `j` `l ØÙ ` ``HµhZI ` ¿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) HghhhRc¿S žQP T ¿hc iS c 3µQP T ¿Uc¿hc¿°ÐPc¿°É(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 ‘h‚g_ O“N(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 _3µ3OdhJg 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 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")))) (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