(FILECREATED " 8-Nov-85 13:01:12" ("compiled on " {ERIS}SOURCES>LEAF.;21) " 6-Nov-85 00:15:23" recompiled exprs: \SEQUIN.PROCESS \SEQUIN.HANDLE.INPUT \LEAF.OPENFILE \LEAF.REQUESTPAGE in "INTERLISP-D 6-Nov-85 ..." dated " 6-Nov-85 00:31:18") (FILECREATED " 8-Nov-85 12:59:01" {ERIS}SOURCES>LEAF.;21 160250 changes to: (FNS \SEQUIN.PROCESS \SEQUIN.HANDLE.INPUT \LEAF.OPENFILE \LEAF.REQUESTPAGE) (MACROS INCLEAFSTAT) (VARS LEAFCOMPILETIMECOMS) previous date: "25-Oct-85 16:47:37" {ERIS}SOURCES>LEAF.;20) CLOSESEQUIN D1 (L (0 SEQUIN)) (@ @ ` @dlil(20Q AWAIT.EVENT 3 \SEQUIN.CLOSE) (25Q SEQUIN 15Q \ETHERTIMEOUT 10Q SEQUIN) () INITSEQUIN D1 (L (1 PROCNAME 0 SEQUIN)) @@j@A "@A  @j@j@j@k@j @j@j@j@j@j@g@hgAgggg ===(214Q ADD.PROCESS 42Q CREATE.EVENT 30Q CREATE.MONITORLOCK 6 OPENPUPSOCKET) (210Q DELETE 205Q AFTEREXIT 202Q SYSTEM 177Q RESTARTABLE 173Q NAME 164Q \SEQUIN.PROCESS 161Q SEQUIN 152Q SEQUIN 143Q SEQUIN 134Q SEQUIN 125Q SEQUIN 116Q SEQUIN 107Q SEQUIN 100Q SEQUIN 70Q SEQUIN 60Q SEQUIN 50Q SEQUIN 36Q SEQUIN 24Q SEQUIN 14Q SEQUIN 3 SEQUIN) () GETSEQUIN D1 (L (0 SEQUIN)) @4 @k(30Q BLOCK 10Q \DEQUEUE) (16Q SEQUIN 3 SEQUIN) () PUTSEQUINA0001 D1 (NAME ERRORSET F 0 SEQUIN F 1 OPUP F 2 DONTWAIT F 3 RESETY) P"hi PdkQj!i!djPlQl!il2h[P PKP P 12Q FDEV 3 DIRECTORY) ( 73Q "QXZRYU") \LEAF.GENERATEFILES D1 (L (3 OPTIONS 2 DESIREDPROPS 1 PATTERN 0 DEVICE)) `@ABC @ABC (23Q \GENERATENOFILES 12Q \FTP.GENERATEFILES) (2 \FTPAVAILABLE) () \LEAF.GETFILEA0001 D1 (NAME ERRORSET F 0 CACHEDSTREAM F 1 CONNECTION F 2 FILENAME F 3 RESETY F 4 ACCESS F 5 OLDSTREAM F 6 REALLYOPEN F 7 OPTION) QBhi Q:cjTdgdgCUWPRNVPhPii7WdgR+gP PPPQh:Pihi hci(173Q \LEAF.CLOSEFILE 135Q \LEAF.GETFILEDATES 12Q OBTAIN.MONITORLOCK) (160Q SEQUIN 151Q STREAM 127Q DATES 116Q NAME 101Q STREAM 70Q STREAM 53Q STREAM 40Q INPUT 32Q NONE 17Q SEQUIN 3 SEQUIN) () \LEAF.GETFILE D1 (L (4 NOERROR 3 RECOG 0 DEVICE) P 16Q RESETY P 15Q LISPXHIST P 3 CACHEDSTREAM P 1 CONNECTION I 7 REALLYOPEN I 6 OLDSTREAM I 5 OPTION I 2 ACCESS I 1 FILENAME F 20Q LISPXHIST F 21Q RESETVARSLST) N@( AD@ ]dMHY @ Yh:-W !W"og hg_ OO_M __l(_jl OkOBgBdgngBgBdgn`l CdgnJgn @Cdgn 3gl*C"Bdgn gBgnn l nOliOO OOi OO OOi ON IOAi _d_dnO*O)EghIL iFdl`d@dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhb I FLFFH AFhBgFFj j FJ FJn EdgFFi gBgFi FlOdldldlOI _lOdlOIOA _llOlOdlEgD@hDnhIEgi2OlO-OIA _hDiOlhOAI O O DiOdllOlOlAl) Al (1513Q \LISPERROR 1504Q \LISPERROR 1434Q RELEASE.PUP 1425Q RELEASE.PUP 1420Q \LEAF.ERROR 1366Q \FIXPASSWORD 1363Q \LEAF.DIRECTORYNAMEONLY 1251Q \FIXPASSWORD 1246Q \LEAF.DIRECTORYNAMEONLY 1204Q \FIXPASSWORD 1142Q \LEAF.GETFILEDATES 1116Q \LEAF.CLOSEFILE 777Q \LEAF.READFILENAME 563Q \LEAF.CLOSEFILE 505Q \SENDLEAF 474Q \ADDLEAFSTRING 465Q \ADDLEAFSTRING 453Q \ADDLEAFSTRING 442Q \ADDLEAFSTRING 430Q \ADDLEAFSTRING 400Q \LISPERROR 253Q \LISPERROR 162Q \ZEROBYTES 145Q ALLOCATE.PUP 137Q \INTERNAL/GETPASSWORD 123Q ERROR! 114Q RESETRESTORE 101Q \LEAF.GETFILEA0001 44Q \LEAF.RECONNECT 16Q \PARSE.REMOTE.FILENAME) (1333Q DIRECTORY 1306Q DIRECTORY 1133Q NONE 1125Q DATES 1107Q STREAM 1100Q NAME 1063Q STREAM 1051Q STREAM 1034Q STREAM 1030Q STREAM 1021Q OUTPUT 1011Q STREAM 772Q STREAM 761Q STREAM 751Q STREAM 676Q \STREAM.DEFAULT.MAXBUFFERS 662Q FILELINELENGTH 645Q \FILEOUTCHARFN 636Q \EOSERROR 627Q \NOIMAGEOPS 620Q \STREAM.NOT.OPEN 611Q \STREAM.NOT.OPEN 577Q STREAMTYPE# 553Q DIRECTORY 517Q ETHERPACKET 361Q NONE 353Q INPUT 340Q OUTPUT 322Q OLDEST 307Q NEW 273Q OLD/NEW 260Q OLD 237Q BOTH 230Q APPEND 222Q OUTPUT 207Q NONE 200Q INPUT 107Q ERROR 76Q INTERNAL 54Q SEQUIN 33Q PUPFILESERVER 3 FDEV) ( 73Q (\LEAF.GETFILEA0001)) \PARSE.REMOTE.FILENAME D1 (L (2 DEVICE 1 NOERROR 0 FILENAME)) hddd@k)l{g@l <@l= k Aih@l* = <Ao= =B(<g@= k cg@= k <?@= k=g@= k)l.=l=k =ggg@= k @= k@m)l.mm (304Q SUBSTRING 255Q CONCAT 252Q SUBSTRING 224Q SUBSTRING 156Q STRPOS 141Q SUBSTRING 104Q ERROR 64Q \CANONICAL.HOSTNAME 56Q \LISPERROR 41Q SUBATOM 24Q STRPOS) (242Q ! 236Q %. 231Q TOPS20 174Q TOPS20 146Q ; 127Q TENEX 120Q PUPFILESERVER 113Q FDEV 16Q }) ( 77Q "Host not found") \LEAF.GETFILEDATES D1 (L (1 FLG 0 STREAM)) J@h=*@l <@jl <==lĿd A==jl @ =(105Q \LEAF.SETVALIDATION 100Q \ZEROBYTES 61Q RELEASE.PUP 37Q \LEAF.READFILEPROP 23Q \ALLOCBLOCK) (16Q STREAM 3 STREAM) () \LEAF.GETFILEINFO D1 (L (2 DEV 1 ATTRIBUTE 0 STREAM)) r@`@A ddAgAg>B(<<=:<@gA= <g@dA B@gg bA @i (156Q \LEAF.CLOSEFILE 151Q \LEAF.GETFILEINFO.OPEN 143Q \LEAF.GETFILE 127Q \LEAF.GETFILEINFO.OPEN 101Q \IFS.LOOKUPFILE 14Q \LEAF.GETFILEINFO.OPEN) (140Q OLD 135Q NONE 114Q STREAM 106Q ? 73Q OLD 61Q SEQUIN 47Q PUPFILESERVER 40Q FDEV 31Q ICREATIONDATE 23Q CREATIONDATE 4 STREAMTYPE#) () \LEAF.GETFILEINFO.OPEN D1 (L (1 ATTRIBUTE 0 STREAM)) Adg@ @ g@g Adg@g g@g Adg@ og@ oAdg@ ogAdgUlh@nl <g<Ag5=djhdkgld<gg= =g@n|l( dd = <(400Q RELEASE.PUP 372Q GetBcplString 363Q \LEAF.READFILEPROP 336Q RELEASE.PUP 236Q \LEAF.READFILEPROP 174Q \LEAF.GETFILEDATES 150Q \LEAF.GETFILEDATES 127Q \LEAF.GETFILEDATES 112Q GDATE 107Q \LEAF.GETFILEINFO.OPEN 72Q GDATE 67Q \LEAF.GETFILEINFO.OPEN 47Q GDATE 44Q \LEAF.GETFILEINFO.OPEN) (347Q AUTHOR 330Q ? 324Q BINARY 304Q TEXT 253Q BYTESIZE 245Q ? 216Q BYTESIZE 207Q TYPE 165Q IREADDATE 142Q IWRITEDATE 120Q ICREATIONDATE 104Q IREADDATE 76Q READDATE 64Q IWRITEDATE 55Q WRITEDATE 41Q ICREATIONDATE 33Q CREATIONDATE 24Q STREAM 14Q STREAM 4 LENGTH) ( 202Q -20000000000Q 156Q -20000000000Q 135Q -20000000000Q) \LEAF.GETFILENAME D1 (L (2 DEV 1 RECOG 0 NAME)) eB(hd=<=:Ag!@Ag= <gd@@B@gAig AgAg@B (142Q \GENERIC.OUTFILEP 116Q \LEAF.GETFILE 53Q \IFS.LOOKUPFILE) (132Q OLD/NEW 124Q NEW 112Q NAME 105Q NONE 70Q STREAM 60Q ? 46Q NAME 36Q NEW 26Q SEQUIN 14Q PUPFILESERVER 3 FDEV) () \LEAF.OPENFILE D1 (L (4 DEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 FILENAME))  D( @`@d @l \bCh__+ID@ABghLi YMIM _dih_dgdgOZdgO3 O [dgO ]dgO3 O ]ndg5Ag`D@ggigL \LLbL Lhdi 4g)O)`$Hg`@ABC YON^OI Ag+J`ZId jI jIJK I _d>nOj>Oj?OnOjOjOjIjIhIHdgdglZgkjI(545Q \LEAF.SETFILETYPE 465Q \LEAF.GETFILEDATES 440Q \FTP.OPENFILE 366Q \LEAF.CLOSEFILE 356Q \LEAF.CREATIONDATE 336Q \LEAF.GETFILE 273Q \ILLEGAL.ARG 242Q IDATE 220Q \ILLEGAL.ARG 127Q \LEAF.SETCREATIONDATE 106Q \LEAF.GETFILE 35Q \LISPERROR 25Q \GETACCESS) (715Q UNIX 700Q TOPS20 672Q TENEX 664Q PUPFILESERVER 613Q SEQUIN 562Q SEQUIN 552Q STREAM 532Q STREAM 517Q STREAM 507Q DEFAULTFILETYPE 472Q INPUT 427Q UNIXFTPFLG 422Q UNIX 415Q PUPFILESERVER 407Q \FTPAVAILABLE 373Q SEQUENTIAL 345Q STREAM 331Q DATES 325Q OLD 322Q NONE 312Q INPUT 302Q DON'T.CHANGE.DATE 252Q ICREATIONDATE 230Q CREATIONDATE 177Q BYTESIZE 161Q FILETYPE 153Q TYPE 77Q FIND 42Q STREAM 15Q STREAMTYPE# 3 FDEV) () \LEAF.READFILENAME D1 (L (1 DEVINFO 0 STREAM)) a@nld dd = <@ jdhdd= hg= gA< g==khdddd= k<= <==<= Cjhi<=k<=Td====<l;=dl!= <=<#l.= <=<=k<=l>j<<= k< =j=x=l;= Ag=`= =l.Ag=k=k <= g=m)l0== k===jgo==k (536Q PACK* 533Q U-CASE 530Q CONCAT 525Q SUBSTRING 465Q NCHARS 432Q SUBSTRING 25Q RELEASE.PUP 17Q GetBcplString 10Q \LEAF.READFILEPROP) (507Q ; 442Q UNIX 415Q TOPS20 412Q PUPFILESERVER 366Q TENEX 363Q PUPFILESERVER 101Q TENEX 72Q PUPFILESERVER 66Q } 61Q SEQUIN 54Q { 35Q STREAM) ( 514Q ".;") \LEAF.READFILEPROP D1 (L (2 LEN 1 OFFSET 0 STREAM)) b@ hd=l(<dn0=@=An= j= B=l i==@` <dn =dl(l(107Q \SENDLEAF 10Q ALLOCATE.PUP) (115Q ETHERPACKET 104Q NOFILEPROPERROR 35Q STREAM 3 STREAM) () \LEAF.READPAGES D1 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) P BAj#HJHhHHJI@ @ Ij@ jj0@Ii @Ik k_O&O@ Z@ Oj@d jDM^@JM Nn_Nl(_jROil ټKOlLkĿN h@O Ok_Ok԰@ @l  ` @Rkj@l Nn-N@@ M nLKLn LԺIkԹo@ (512Q HELP 462Q \ZEROBYTES 443Q \LEAF.ERROR 411Q \LISPERROR 357Q AWAIT.EVENT 344Q \LISPERROR 303Q \LEAF.REQUESTPAGE 273Q RELEASE.PUP 215Q RELEASE.PUP 104Q \LEAF.REQUESTPAGE) (505Q STREAM 435Q STREAM 427Q STREAM 402Q STREAM 366Q STREAM 354Q \ETHERTIMEOUT 347Q SEQUIN 335Q STREAM 325Q STREAM 202Q ETHERPACKET 166Q STREAM 151Q STREAM 137Q STREAM 111Q STREAM 61Q STREAM 46Q STREAM 34Q STREAM) ( 501Q "Failed to read page of file") \LEAF.REQUESTPAGE D1 (L (2 IMMEDIATE 1 PAGE# 0 STREAM)) @AB !H2B,@ d>k>@`@dkHB@k@ d?k?Yl(Zdn0J@JAJlJnJl i@ I@igBh HHII(230Q \SENDLEAF 131Q ALLOCATE.PUP 5 \LEAF.LOOKUPCACHE) (221Q GO 211Q STREAM 151Q STREAM 116Q SEQUIN 110Q STREAM 62Q STREAM 52Q \LEAF.MAXLOOKAHEAD 45Q STREAM 31Q SEQUIN 23Q STREAM) () \LEAF.LOOKUPCACHE D1 (L (2 DELETE 1 PAGE# 0 STREAM)) sj@h=6BAhh<d@====`@@AjBd@====<<=k<NIL (120Q STREAM 72Q STREAM 66Q STREAM 57Q \LEAF.MAXCACHE 35Q STREAM 4 STREAM) () CLEAR.LEAF.CACHE D1 (L (0 HOST)) A@d=id @ did hd=d#(<`d<d:= (76Q \LEAF.FLUSH.CACHE 26Q \GETDEVICEFROMNAME 16Q \CANONICAL.HOSTNAME 10Q \GETDEVICEFROMNAME) (65Q SEQUIN 50Q PUPFILESERVERTYPE# 40Q FDEV) () LEAF.ASSURE.FINISHEDA0001 D1 (NAME ERRORSET F 0 SEQUIN F 1 STREAM F 2 RESETY) P"hi hP4<d"iKP< d#i6h<ciQ=<hQ=<hP"P ` (173Q MONITOR.AWAIT.EVENT 12Q OBTAIN.MONITORLOCK) (170Q \ETHERTIMEOUT 163Q SEQUIN 155Q SEQUIN 137Q ETHERPACKET 126Q ETHERPACKET 111Q ETHERPACKET 100Q ETHERPACKET 51Q SYSQUEUE 44Q SEQUIN 25Q SYSQUEUE 20Q SEQUIN 3 SEQUIN) () LEAF.ASSURE.FINISHED D1 (P 2 RESETY P 1 LISPXHIST P 0 SEQUIN I 0 STREAM F 4 LISPXHIST F 5 RESETVARSLST) S@b H`=j?g=hhhRc<l(<jl =l=lidQ dQi d=ildhdl== =dlhkd<d<i= ` =ddnhnn=d(j5)= <dldldll== c%= hX <l(<jl =l =li=`nldldhdl== =<ci(1146Q PUTSEQUIN 1047Q \ZEROBYTES 1032Q ALLOCATE.PUP 1026Q RELEASE.PUP 1017Q \SEQUIN.CLOSE 1004Q \FIXPASSWORD 747Q RELEASE.PUP 667Q AWAIT.EVENT 601Q PUTSEQUIN 533Q \ADDLEAFSTRING 523Q \ADDLEAFSTRING 474Q \ZEROBYTES 457Q ALLOCATE.PUP 410Q INITSEQUIN 405Q PACK* 264Q \CREATECELL 243Q \CREATECELL 222Q CREATE.MONITORLOCK 217Q CONCAT 165Q \CREATECELL 7 OBTAIN.MONITORLOCK) (1131Q ETHERPACKET 1121Q ETHERPACKET 1075Q \LEAF.IDLETIMEOUT 664Q \ETHERTIMEOUT 657Q SEQUIN 643Q ETHERPACKET 632Q ETHERPACKET 607Q SEQUIN 564Q ETHERPACKET 554Q ETHERPACKET 436Q \OPENLEAFCONNECTIONA0001A0036 427Q SEQUIN 416Q SEQUIN 341Q \ETHERTIMEOUT 332Q \ETHERTIMEOUT 303Q SYSQUEUETYPE# 143Q SYSQUEUETYPE# 135Q \LEAF.OPENERRORHANDLER 126Q \LEAF.IDLE? 117Q \LEAF.IDLE 110Q \LEAF.WHENCLOSED 101Q \LEAF.TIMEDIN 72Q \LEAF.TIMEDOUT 63Q \LEAF.FIX.BROKEN.SEQUIN 54Q \LEAF.FIX.BROKEN.SEQUIN 45Q \LEAF.HANDLE.INPUT 36Q \LEAF.ACKED 17Q SEQUINTYPE# 2 \LEAFCONNECTIONLOCK) ( 402Q "#LEAF" 214Q "#LEAFOPEN") \OPENLEAFCONNECTION D1 (P 4 RESETY P 3 LISPXHIST P 2 NAME/PASS P 1 IFSPORT I 0 HOST F 6 LISPXHIST F 7 RESETVARSLST) `0@` @g XgH n@` YdjI`@ ZV!Wog hg] ML(133Q ERROR! 126Q RESETRESTORE 114Q \OPENLEAFCONNECTIONA0001 73Q \INTERNAL/GETPASSWORD 50Q BESTPUPADDRESS 34Q MEMB 22Q GETHOSTINFO 11Q MEMB) (122Q ERROR 111Q INTERNAL 65Q \SOCKET.LEAF 45Q PROMPTWINDOW 30Q LEAF 17Q PROTOCOLS 6 NONLEAFHOSTS) ( 106Q (\OPENLEAFCONNECTIONA0001)) \LEAF.EVENTFN D1 (L (1 FLG 0 FDEV)) @(hAgAgAdg=<V@ d@ HgAgAgAg1=<'`d(i<@ = '=hhl @hd< =h (230Q CLOSEPUPSOCKET 200Q \SEQUIN.FLUSH.CONNECTION 146Q \REMOVEDEVICE 60Q \CLOSELEAFCONNECTION 52Q \FLUSH.OPEN.STREAMS) (236Q PUPFILESERVER 207Q STREAM 165Q PUPFILESERVER 154Q PUPFILESERVER 131Q \OPENFILES 120Q PUPFILESERVER 110Q AFTERSAVEVM 102Q AFTERSYSOUT 74Q AFTERMAKESYS 65Q AFTERLOGOUT 40Q PUPFILESERVER 27Q BEFORESYSOUT 20Q BEFOREMAKESYS 12Q BEFORELOGOUT 3 FDEV) () \LEAF.ACKED D1 (L (1 SEQUIN 0 PUP)) A4@ AA k== =(11Q \ENQUEUE) (21Q SEQUIN 15Q SEQUIN 3 SEQUIN) () \LEAF.FIX.BROKEN.SEQUIN D1 (L (1 PUP 0 SEQUIN))  @@@4hddd@ A=<(== == hh= <= dl?=9=.=(l"@@ =j&@ k= l=@ i= = hho` @` o` o` `hdd=N=<<@ @Fg@` h <`@ A8== @A d @<=dh<<=<=&<=== <o` ` i@D5@ oAA<@ Qd`=l n`d $@dFg@ i n h<h(775Q AWAIT.EVENT 757Q \SEQUIN.FLUSH.CONNECTION 734Q TIMEREXPIRED? 724Q \CLOCK0 671Q ERROR 637Q \SEQUIN.FLUSH.CONNECTION 621Q TERPRI 612Q PRIN1 574Q \LEAF.USE.NEW.CONNECTION 513Q \LEAF.REPAIR.BROKEN.PUP 505Q \REVALIDATEFILELST 471Q \SEQUIN.FLUSH.CONNECTION 461Q \LEAF.RECONNECT 454Q \CLOCKGREATERP 424Q \GETDEVICEFROMNAME 364Q PRIN1 351Q PRIN1 336Q PRIN1 321Q PRIN1 263Q \SEQUIN.FLUSH.CONNECTION 237Q \SEQUIN.RETRANSMIT 221Q CLOSEPUPSOCKET 210Q OPENPUPSOCKET 32Q \SEQUIN.FLUSH.RETRANSMIT) (765Q SEQUIN 750Q ABORT 743Q SEQUIN 712Q STREAM 701Q STREAMTYPE# 664Q SEQUIN 652Q ETHERPACKET 627Q SEQUIN 616Q PROMPTWINDOW 607Q PROMPTWINDOW 521Q STREAM 451Q \LEAF.RECOVERY.TIMEOUT 444Q SEQUIN 435Q ABORT 430Q SEQUIN 417Q SEQUIN 370Q \OPENFILES 361Q PROMPTWINDOW 346Q PROMPTWINDOW 333Q PROMPTWINDOW 326Q SEQUIN 316Q PROMPTWINDOW 277Q SYSQUEUE 272Q SYSQUEUE 214Q SEQUIN 205Q SEQUIN 157Q ETHERPACKET 126Q SYSQUEUE 111Q SYSQUEUE 104Q SYSQUEUE 72Q SYSQUEUE 65Q ETHERPACKET 60Q SYSQUEUE 45Q SYSQUEUE 20Q SEQUIN 12Q SEQUIN 3 SEQUIN) ( 644Q "File server connection has been broken--cannot complete file operation(s). (RETURN) to try again to get a new connection." 604Q "done]" 356Q "trying to establish new connection..." 343Q " crashed; " 313Q "[Connection with ") \LEAF.REPAIR.BROKEN.PUP D1 (L (1 PUP 0 OLDSEQUIN)) zAhd=(=d` < o== Anh@Al(<dldldldldld=ih=(60Q ERROR) (152Q STREAM 65Q ETHERPACKET 47Q STREAM 30Q STREAM 22Q STREAMTYPE# 3 ETHERPACKET) ( 42Q "File server connection broken") \LEAF.USE.NEW.CONNECTION D1 (L (2 AFFECTEDFILES 1 UNSENTPUPS 0 SEQUIN)) hddddddA$= B h=迿B=K bdb<h=l(< l= l= l= dl:=< ==<dBBb====< ==<qlE=<_=d===<LRlj==< 5=B b)= k=n==< <Rlj.i oi di oi i i =<dd< Bd=)d=<d=<d3g@ddi3 g@h=ddi3 g=hh =(641Q ADD.PROCESS 471Q TERPRI 464Q TERPRI 457Q PRIN1 446Q PRIN1 433Q PRIN1 422Q TERPRI 332Q DREMOVE 46Q \REVALIDATEFILELST 17Q UNION) (625Q QUOTE 602Q QUOTE 564Q \LEAF.RESENDPUPS 526Q STREAM 510Q ETHERPACKET 440Q STREAM 404Q STREAM 352Q ETHERPACKET 300Q STREAM 242Q ETHERPACKET 146Q ETHERPACKET 71Q ETHERPACKET 57Q ETHERPACKET) ( 453Q " was open for write during a file server crash; data may be lost" 427Q "*****Warning: ") \LEAF.RESENDPUPS D1 (L (1 PUPS 0 SEQUIN)) Adj&@AAb (23Q PUTSEQUIN) NIL () \LEAF.HANDLE.INPUT D1 (L (1 SEQUIN 0 PUP)) @l(QA4 Ydo Ad m HdPjoA @ \jHiIl(ZL`o@ KhIdljZLlHnJ@JI]`MdkI@g@Mddi3 gMhAIh IkjI@@ I h(356Q RELEASE.PUP 351Q RELEASE.PUP 322Q ADD.PROCESS 150Q HELP 102Q RELEASE.PUP 75Q HELP 31Q SHOULDNT 17Q \DEQUEUE) (330Q ETHERPACKET 303Q QUOTE 264Q \LEAF.ERROR 245Q STREAM 236Q STREAMTYPE# 227Q ETHERPACKET 163Q ETHERPACKET 137Q LEAFDEBUGFLG 70Q SEQUIN 37Q SEQUIN 12Q SEQUIN) ( 144Q "Answer does not match head of done queue" 64Q "Leaf Protocol violation--will terminate connection" 26Q "Leaf lost a packet somewhere!") \LEAF.OPENERRORHANDLER D1 (L (1 PUP 0 SEQUIN)) wA2dl=` o` @` `o` o` ln-` o` @` o` i(162Q PRIN1 147Q PRIN1 132Q PRIN1 117Q TERPRI 100Q PRIN1 65Q PRIN1 47Q PRIN1 32Q PRIN1 17Q TERPRI) (157Q PROMPTWINDOW 144Q PROMPTWINDOW 137Q SEQUIN 127Q PROMPTWINDOW 114Q PROMPTWINDOW 75Q PROMPTWINDOW 62Q PROMPTWINDOW 52Q \FTPAVAILABLE 44Q PROMPTWINDOW 37Q SEQUIN 27Q PROMPTWINDOW 14Q PROMPTWINDOW) ( 154Q "]" 124Q "[No route to " 72Q "]" 57Q "; trying FTP..." 24Q "[No Leaf Server on ") \LEAF.TIMEDIN D1 (L (0 SEQUIN)) "@D@D @hD@hFh(20Q CLOSEW) (33Q SEQUIN 24Q SEQUIN 13Q SEQUIN 3 SEQUIN) () \LEAF.TIMEDOUT D1 (L (1 CNT 0 SEQUIN)) @Fg@l @ Ad`@h=dl4` o` @` o` @ lA<k<A"AdA b<A<A< = = l<no@ ==<= =k<=j8B'=kjd== ====lIǿdk<忌= = = j= ==ih(277Q \MOVEBYTES 161Q ERROR 101Q MKSTRING) (125Q STRINGP 114Q STRINGP) ( 155Q "PUP OVERFLOW") \FIXPASSWORD D1 (L (2 DIRECTORY 1 CONNECTION 0 ERRCODE)) ^A@lhB@dloAl@dlo0lo&@dlolo@loo (133Q \INTERNAL/GETPASSWORD) (3 SEQUIN) ( 130Q "Unknown error" 123Q "Can't login as files-only directory" 111Q "Protection violation" 77Q "Invalid connect name" 62Q "Incorrect connect password" 50Q "Invalid username" 27Q "Incorrect password") \GETLEAFSTRING D1 (L (0 ADDR)) @dj @l= (17Q \GETBASESTRING) NIL () \IFSERRORSTRINGA0001 D1 (NAME ERRORSET F 0 CONNECTION F 1 \CONNECTED.HOST F 2 \IFSERRORFILENAME) !gPQo cg h(25Q OPENFILE 15Q PACK*) (33Q SEQUIN 22Q INPUT 2 {) ( 12Q "}IFS.ERRORS") \IFSERRORSTRING D1 (L (1 FILENAME 0 CODE) I 2 CONNECTION F 0 \IFSERRORFILENAME) AAPo l l9`ll0l m݅`l hdd=duc=o@o = jhdi <Q=o = = = =< <= = =k= ===== +=k<쿿== h(245Q CLOSEF 203Q GETSTREAM 172Q SETFILEPTR 160Q ALLOCSTRING 150Q GETEOFPTR 141Q FFILEPOS 132Q CONCAT 115Q FFILEPOS 103Q CONCAT 17Q \IFSERRORSTRINGA0001) (50Q \OneCharAtomBase 31Q \OneCharAtomBase) ( 127Q "$$" 100Q " " 73Q "$$" 14Q (\IFSERRORSTRINGA0001)) \LEAF.ERROR D1 (L (3 SENTPUP 2 CONNECTION 1 FILENAME 0 PUP)) @l(hd=<dlAl l=dlAl* lAl =dnoA lo2=no%o@l=l =AB = <=k` =` ` Al =A (265Q ERROR 256Q \LISPERROR 250Q TERPRI 241Q PRIN1 230Q TERPRI 207Q CONCAT 200Q \IFSERRORSTRING 167Q \GETLEAFSTRING 114Q ERROR 65Q \LISPERROR 52Q \LISPERROR 27Q \LISPERROR) (245Q PROMPTWINDOW 236Q PROMPTWINDOW 225Q PROMPTWINDOW 107Q STREAM) ( 150Q "Leaf error: " 142Q "Leaf Broken--a file you had open was accessed by another user while it was idle." 125Q "File busy" 103Q "Leaf Error: Bad Handle. This shouldn't happen: Lisp and the server have different ideas about which file they are talking about. All operations to this file are now suspended. See a wizard if possible.") \LEAF.DIRECTORYNAMEONLY D1 (L (0 FILENAME)) "@g hg= <=k=k =(34Q SUBATOM 17Q STRPOS 6 FILENAMEFIELD) (12Q > 3 DIRECTORY) () GETHOSTINFO D1 (L (1 ATTRIBUTE 0 HOST)) jg@ h=@ bd@`<AgAdg!= =2gl==g'g=dlg og'(16Q \CANONICAL.HOSTNAME 6 STRPOS) (146Q PROTOCOLS 132Q IFS 112Q PROTOCOLS 105Q OSTYPE 64Q NS 45Q OSTYPE 36Q OS 27Q NETWORKOSTYPES 2 :) ( 141Q (LEAF PUPFTP CHAT LOOKUPFILE)) GETOSTYPE D1 (L (0 HOST)) @g (6 GETHOSTINFO) (3 OSTYPE) () \IFS.LOOKUPFILEA0001 D1 (NAME ERRORSET F 0 IPUP F 1 DEVINFO F 2 OPUP F 3 PUPSOC F 4 RESULT F 5 HOSTNAME F 6 ATTRIBUTE F 7 LOCK F 10Q RESETY F 11Q REMOTENAME F 12Q ROOTNAME)  Whi cUl1lhS RW `hk<=SRhi cdlXVdgdgUgWgP( 3dgP)o dgP)ogP+V cgdlhc\lP2l`?P` 5P dkԱ\hcQ+QQk==d<lQh S PP TgQhhci(410Q RELEASE.PUP 377Q CLOSEPUPSOCKET 304Q RELEASE.PUP 275Q PRINTERRORPUP 226Q \ILLEGAL.ARG 167Q GDATE 143Q PACK* 64Q EXCHANGEPUPS 36Q \PUTPUPSTRING 27Q SETUPPUP 12Q ALLOCATE.PUP 6 OBTAIN.MONITORLOCK) (423Q PUPFILESERVER 415Q ? 367Q PUPFILESERVER 337Q PUPFILESERVER 333Q PUPFILESERVER 323Q PUPFILESERVER 272Q PUPTRACEFILE 264Q PUPTRACEFLG 214Q LENGTH 175Q ICREATIONDATE 151Q CREATIONDATE 134Q ; 127Q } 123Q { 112Q NAME 42Q \MAXETHERTRIES) ( 207Q -20000000000Q 163Q -20000000000Q) \IFS.LOOKUPFILE D1 (L (1 RECOG 0 NAME) P 16Q RESETY P 15Q LISPXHIST P 14Q LOCK P 12Q PUPSOC P 11Q OPUP P 10Q IPUP P 7 ROOTNAME P 2 REMOTENAME P 1 HOSTNAME P 0 RESULT I 3 DEVINFO I 2 ATTRIBUTE F 20Q LISPXHIST F 21Q RESETVARSLST) gC @k)l{g@l ]hC_C_ Co _Cj@Mkg@Mk g@Mk [dkK@ h _gOO HO"jO _gI  gO _gOO Om)l.!C _Hk_Og _iIg \gKAgOpOo eK(NOkm OLggg@Kk 235Q < 203Q > 143Q ! 127Q ; 114Q PUPFILESERVER 74Q PUPFILESERVER 60Q PUPFILESERVER 44Q PUPFILESERVER 26Q } 6 PUPFILESERVER 2 ?) ( 572Q (\IFS.LOOKUPFILEA0001) 551Q "!L" 507Q ".-2" 406Q ";-2" 100Q "LookUpFile") \LEAFINIT D1 NIL g h`dgdkdkdk0dgdgdgdg dgdgdgdg dgdg:dg8dg6dg4dg2dg0dg.dg*dg$ (247Q \DEFINEDEVICE 5 CREATE.MONITORLOCK) (241Q \GENERIC.READP 232Q NILL 223Q \IS.NOT.RANDACCESSP 214Q \ILLEGAL.DEVICEOP 205Q \IS.NOT.RANDACCESSP 176Q \ILLEGAL.DEVICEOP 167Q \GENERIC.BINS 160Q \GENERIC.BOUTS 151Q \ILLEGAL.DEVICEOP 142Q \ILLEGAL.DEVICEOP 133Q \ILLEGAL.DEVICEOP 124Q \ILLEGAL.DEVICEOP 115Q \ILLEGAL.DEVICEOP 106Q \ILLEGAL.DEVICEOP 77Q \ILLEGAL.DEVICEOP 70Q \ILLEGAL.DEVICEOP 61Q NILL 52Q \LEAF.DEVICEP 21Q LEAF 14Q FDEVTYPE# 10Q \LEAFCONNECTIONLOCK 2 LEAF) () PRINTLEAF D1 (L (0 PUP)) d@lhddddd@!jo o @!`ho o @  o @ o @! h = j@l(< o = dko,dlo dlodlojoo = `ho = dPko = l= d ko = i=)o = i o = o o =  = l<  = dk= Pjo hodlodldl= Zdnnk<= <= <nj?j=8o ==< dn4o ==kذh d o =n= = l= Pj= l l <ojoo<= = == @(1140Q TERPRI 1134Q TERPRI 1130Q PRINTPACKETDATA 1114Q TERPRI 1027Q PRIN2 1012Q PRIN1 1002Q PRIN2 775Q TERPRI 755Q PRIN1 736Q PRIN2 712Q PRIN1 557Q PRIN1 506Q PRIN2 476Q PRIN1 466Q PRIN1 456Q PRIN2 450Q PRIN1 440Q PRIN2 427Q PRIN1 405Q PRIN1 351Q PRIN1 327Q PRINTCONSTANT 306Q PRIN1 176Q PRIN1 147Q TERPRI 142Q PRIN2 132Q PRIN1 122Q PRIN2 112Q PRIN1 102Q PRIN2 72Q PRIN1 62Q PRINTCONSTANT 42Q PRIN1 31Q PRIN1) (317Q LEAFOPCODES 52Q SEQUINOPS) ( 1106Q (BYTES) 1101Q ("Error op: " WORDS 6 "Error handle: " 10Q IFSSTRING) 1071Q ("Data: " CHARS 24Q ...) 1007Q " bytes from " 752Q " thru " 707Q ", Page " 603Q ("Login: " CHARS IFSSTRING BYTES) 566Q ("FileLength = " INTEGER 10Q ...) 551Q ("Mode: " WORDS 6 " Login: " CHARS IFSSTRING ; BYTES IFSSTRING " Connect: " CHARS IFSSTRING ; BYTES IFSSTRING " File: " CHARS IFSSTRING) 473Q ", Handle = " 463Q "!]" 445Q " [but Pup Length = header + " 424Q ", length = " 402Q " (eof)" 346Q " (ans)" 324Q "\LEAFOP." 303Q "Op = " 271Q "Error" 261Q "Write" 245Q "Read" 231Q "Close" 215Q "Open" 173Q "Leaf" 127Q ", send = " 107Q ", recv = " 67Q ", alloc = " 57Q "\SEQUIN." 37Q "SequinOp = " 26Q "SequinData") (PRETTYCOMPRINT LEAFCOMS) (RPAQQ LEAFCOMS ((E (RESETSAVE (RADIX 8))) (COMS (* SEQUIN protocol) (DECLARE: EVAL@COMPILE DONTCOPY ( COMS * SEQUINCOMS)) (INITRECORDS SEQUIN) (SYSRECORDS SEQUIN) (FNS CLOSESEQUIN INITSEQUIN GETSEQUIN PUTSEQUIN) (FNS \SEQUIN.CONTROL \SEQUIN.PUT \SEQUIN.PROCESS \SEQUIN.CLOSE \SEQUIN.FLUSH.CONNECTION \SEQUIN.CLEANUP \SEQUIN.FLUSH.RETRANSMIT \SEQUIN.COMPARE \SEQUIN.HANDLE.INPUT \SEQUIN.OUT.OF.THE.BLUE \SEQUIN.HANDLE.ACK \SEQUIN.RETRANSMIT \SEQUIN.RETRANSMITNEXT)) (COMS (* LEAF device operations) (FNS \LEAF.CLOSEFILE \LEAF.DELETEFILE \LEAF.DEVICEP \LEAF.RECONNECT \LEAF.DIRECTORYNAMEP \LEAF.GENERATEFILES \LEAF.GETFILE \PARSE.REMOTE.FILENAME \LEAF.GETFILEDATES \LEAF.GETFILEINFO \LEAF.GETFILEINFO.OPEN \LEAF.GETFILENAME \LEAF.OPENFILE \LEAF.READFILENAME \LEAF.READFILEPROP \LEAF.READPAGES \LEAF.REQUESTPAGE \LEAF.LOOKUPCACHE CLEAR.LEAF.CACHE LEAF.ASSURE.FINISHED \LEAF.FORCEOUTPUT \LEAF.FLUSH.CACHE \LEAF.RENAMEFILE \LEAF.REOPENFILE \LEAF.CREATIONDATE \LEAF.SETCREATIONDATE \LEAF.SETFILEINFO \LEAF.SETFILETYPE \LEAF.SETVALIDATION \LEAF.TRUNCATEFILE \LEAF.WRITEPAGES)) (COMS (* Main routing point for LEAF pups) (FNS \SENDLEAF)) (COMS (* Managing LEAF connections) (FNS BREAKCONNECTION \CLOSELEAFCONNECTION \OPENLEAFCONNECTION \LEAF.EVENTFN)) (COMS (* Functions called when various SEQUIN events occur) (FNS \LEAF.ACKED \LEAF.FIX.BROKEN.SEQUIN \LEAF.REPAIR.BROKEN.PUP \LEAF.USE.NEW.CONNECTION \LEAF.RESENDPUPS \LEAF.HANDLE.INPUT \LEAF.OPENERRORHANDLER \LEAF.TIMEDIN \LEAF.TIMEDOUT \LEAF.TIMEDOUT.EXCESSIVE \LEAF.ABORT.FROMMENU \LEAF.STREAM.IN.QUEUE \LEAF.IDLE \LEAF.WHENCLOSED \LEAF.IDLE?)) (ADDVARS (NETWORKOSTYPES)) (* Miscellaneous and error handling) (FNS \ADDLEAFSTRING \FIXPASSWORD \GETLEAFSTRING \IFSERRORSTRING \LEAF.ERROR \LEAF.DIRECTORYNAMEONLY GETHOSTINFO GETOSTYPE) (COMS (* LookUpFile stuff) (FNS \IFS.LOOKUPFILE) (DECLARE: EVAL@COMPILE DONTCOPY (COMS * LOOKUPFILECOMS))) (COMS (FNS \LEAFINIT) ( DECLARE: DONTEVAL@LOAD (P (\LEAFINIT)))) (COMS (FNS PRINTLEAF) (ALISTS (PUPPRINTMACROS 176))) ( INITVARS (LEAFDEBUGFLG) (LEAFABORTREGION (QUOTE (417 616 399 192))) (\MAXLEAFTRIES 4) (NOFILEPROPERROR ) (DEFAULTFILETYPE (QUOTE TEXT)) (\SOCKET.LEAF 35) (\SEQUIN.TIMEOUTMAX 10000) (\LEAF.IDLETIMEOUT 1800000) (\LEAF.CACHETIMEOUT 90000) (\LEAF.MAXCACHE 10) (\LEAF.RECOVERY.TIMEOUT 600000) ( \LEAF.MAXLOOKAHEAD 4) (\FTPAVAILABLE) (UNIXFTPFLG) (NONLEAFHOSTS)) (DECLARE: EVAL@COMPILE DONTCOPY ( COMS * LEAFCOMPILETIMECOMS)) (INITRECORDS PUPFILESERVER) (SYSRECORDS PUPFILESERVER))) (/DECLAREDATATYPE (QUOTE SEQUIN) (QUOTE (POINTER POINTER POINTER BYTE BYTE BYTE BYTE WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD WORD POINTER POINTER POINTER FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((SEQUIN 0 POINTER) (SEQUIN 2 POINTER) (SEQUIN 4 POINTER) (SEQUIN 4 (BITS . 7 )) (SEQUIN 2 (BITS . 7)) (SEQUIN 0 (BITS . 7)) (SEQUIN 6 (BITS . 7)) (SEQUIN 7 (BITS . 15)) (SEQUIN 8 (BITS . 15)) (SEQUIN 9 (BITS . 15)) (SEQUIN 10 (BITS . 15)) (SEQUIN 11 (BITS . 15)) (SEQUIN 12 (BITS . 15)) (SEQUIN 13 (BITS . 15)) (SEQUIN 14 (BITS . 15)) (SEQUIN 15 (BITS . 15)) (SEQUIN 16 (BITS . 15) ) (SEQUIN 17 (BITS . 15)) (SEQUIN 18 (BITS . 15)) (SEQUIN 19 (BITS . 15)) (SEQUIN 20 POINTER) (SEQUIN 22 POINTER) (SEQUIN 24 POINTER) (SEQUIN 24 (FLAGBITS . 0)) (SEQUIN 24 (FLAGBITS . 16)) (SEQUIN 24 ( FLAGBITS . 32)) (SEQUIN 24 (FLAGBITS . 48)) (SEQUIN 26 POINTER) (SEQUIN 28 POINTER) (SEQUIN 30 POINTER ) (SEQUIN 32 POINTER) (SEQUIN 34 POINTER) (SEQUIN 36 POINTER) (SEQUIN 38 POINTER) (SEQUIN 40 POINTER) (SEQUIN 42 POINTER) (SEQUIN 44 POINTER) (SEQUIN 46 POINTER) (SEQUIN 48 POINTER) (SEQUIN 50 POINTER) ( SEQUIN 52 POINTER) (SEQUIN 54 POINTER) (SEQUIN 56 POINTER) (SEQUIN 58 POINTER) (SEQUIN 60 POINTER) ( SEQUIN 62 (BITS . 15)) (SEQUIN 63 (BITS . 15)) (SEQUIN 64 (BITS . 15)) (SEQUIN 60 (FLAGBITS . 0)) ( SEQUIN 66 POINTER) (SEQUIN 68 POINTER) (SEQUIN 70 POINTER) (SEQUIN 72 POINTER) (SEQUIN 74 POINTER) ( SEQUIN 76 POINTER) (SEQUIN 78 POINTER))) (QUOTE 80)) (ADDTOVAR SYSTEMRECLST (DATATYPE SEQUIN ((SEQNAME POINTER) (SEQFRNPORT POINTER) (SEQSOCKET POINTER) ( SEQSTATE BYTE) (MYSENDSEQ BYTE) (MYRECEIVESEQ BYTE) (LASTACKEDSEQ BYTE) (SEQOUTALLOC WORD) (SEQINALLOC WORD) (SEQMAXALLOC WORD) (#UNACKEDSEQS WORD) (SEQINPUTQLENGTH WORD) (SEQTIMEOUT WORD) (SEQBASETIMEOUT WORD) (SEQRETRANSMITMAX WORD) (#SEQRESTARTS WORD) (#SEQRETRANSMITS WORD) (#SEQDUPLICATES WORD) ( #SEQTIMEOUTS WORD) (#SEQTURNOVERS WORD) (SEQRETRANSMITQ POINTER) (SEQTIMER POINTER) (SEQPROCESS POINTER) (SEQIGNOREDUPLICATES FLAG) (SEQRETRANSMITTING FLAG) (SEQCLOSEME FLAG) (SEQCLOSEDFORLOGOUT FLAG) (SEQLASTRESTARTTIMER POINTER) (SEQLASTRESTART POINTER) (SEQRETRANSMITNEXT POINTER) (SEQEVENT POINTER) (SEQLOCK POINTER) (SEQACKED POINTER) (SEQINPUT POINTER) (SEQBROKEN POINTER) (SEQABORTED POINTER) (SEQTIMEDOUT POINTER) (SEQCLOSED POINTER) (SEQIDLETIMEOUTCOMPUTER POINTER) (SEQIDLEFN POINTER ) (SEQDONEQ POINTER) (NIL POINTER) (NIL POINTER) (LEAFCACHEDFILE POINTER) (LEAFCACHETIMER POINTER) ( LEAFCACHEHITS WORD) (LEAFCACHEMISSES WORD) (LEAFTIMEOUTCOUNT WORD) (LEAFCLOSING FLAG) ( LEAFOPENCLOSELOCK POINTER) (LEAFABORTBUTTONWINDOW POINTER) (LEAFABORTSTATUS POINTER) (NIL POINTER) ( SEQTIMEDIN POINTER) (NIL POINTER) (SEQOPENERRORHANDLER POINTER)))) (ADDTOVAR NETWORKOSTYPES) (\LEAFINIT) (ADDTOVAR PUPPRINTMACROS (176 . PRINTLEAF)) (RPAQ? LEAFDEBUGFLG) (RPAQ? LEAFABORTREGION (QUOTE (417 616 399 192))) (RPAQ? \MAXLEAFTRIES 4) (RPAQ? NOFILEPROPERROR) (RPAQ? DEFAULTFILETYPE (QUOTE TEXT)) (RPAQ? \SOCKET.LEAF 35) (RPAQ? \SEQUIN.TIMEOUTMAX 10000) (RPAQ? \LEAF.IDLETIMEOUT 1800000) (RPAQ? \LEAF.CACHETIMEOUT 90000) (RPAQ? \LEAF.MAXCACHE 10) (RPAQ? \LEAF.RECOVERY.TIMEOUT 600000) (RPAQ? \LEAF.MAXLOOKAHEAD 4) (RPAQ? \FTPAVAILABLE) (RPAQ? UNIXFTPFLG) (RPAQ? NONLEAFHOSTS) (/DECLAREDATATYPE (QUOTE PUPFILESERVER) (QUOTE (BYTE POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((PUPFILESERVER 0 (BITS . 7)) (PUPFILESERVER 0 POINTER) (PUPFILESERVER 2 POINTER) (PUPFILESERVER 4 POINTER) (PUPFILESERVER 6 POINTER) (PUPFILESERVER 8 POINTER) (PUPFILESERVER 10 POINTER) (PUPFILESERVER 12 POINTER) (PUPFILESERVER 14 POINTER) ( PUPFILESERVER 16 POINTER) (PUPFILESERVER 18 POINTER) (PUPFILESERVER 20 POINTER))) (QUOTE 22)) (ADDTOVAR SYSTEMRECLST (DATATYPE PUPFILESERVER ((NIL BYTE) (PFSNAME POINTER) (PFSADDRESS POINTER) ( PFSOSTYPE POINTER) (PFSLEAFFLG POINTER) (PFSLEAFSEQUIN POINTER) (PFSLEAFTIMER POINTER) ( PFSLOOKUPFILESOCKET POINTER) (PFSLOOKUPFILELOCK POINTER) (PFSLOOKUPFAILCNT POINTER) (PFSKNOWNDIRS POINTER) (NIL POINTER)))) (PUTPROPS LEAF COPYRIGHT ("Xerox Corporation" 1983 1984 1985)) NIL