(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "11-May-2023 21:39:54" ("compiled on " {DSK}c>Users>Larry>home>il>MEDLEY>SOURCES>LEAF.;2) "10-May-2023 09:23:17" brecompiled changes%: nothing in "FULL 10-May-2023 ..." dated "10-May-2023 09:23:21") (FILECREATED "11-May-2023 21:39:24" {DSK}c>Users>Larry>home>il>MEDLEY>SOURCES>LEAF.;2 246615 :EDIT-BY "lmm" :CHANGES-TO (VARS LEAFCOMPILETIMECOMS) :PREVIOUS-DATE "19-Jan-93 10:41:31" {DSK}c>Users>Larry>home>il>MEDLEY>SOURCES>LEAF.;1) CLOSESEQUIN :D8 (L (0 SEQUIN)) 2@ @"` @dlil(24 AWAIT.EVENT 5 \SEQUIN.CLOSE) (31 SEQUIN 19 \ETHERTIMEOUT 12 SEQUIN) () INITSEQUIN :D8 (L (1 PROCNAME 0 SEQUIN)) @@j@A $@A "@j@j@j@k@j @j@j@j@j@j@g@hgAgggg HII(190 ADD.PROCESS 48 CREATE.EVENT 34 CREATE.MONITORLOCK 10 OPENPUPSOCKET) (184 DELETE 179 AFTEREXIT 174 SYSTEM 169 RESTARTABLE 163 NAME 154 \SEQUIN.PROCESS 149 SEQUIN 140 SEQUIN 131 SEQUIN 122 SEQUIN 113 SEQUIN 104 SEQUIN 95 SEQUIN 86 SEQUIN 76 SEQUIN 66 SEQUIN 56 SEQUIN 42 SEQUIN 28 SEQUIN 18 SEQUIN 5 SEQUIN) () GETSEQUIN :D8 (L (0 SEQUIN)) &@6 @k (32 BLOCK 12 \DEQUEUE) (20 SEQUIN 5 SEQUIN) () PUTSEQUINA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 SEQUIN F 2 OPUP F 3 DONTWAIT) Q$hg QdkRj%i#djQlRl%il@l A hdlk@jAl%A%l xA$Xdjk@ k@ @ @H@H@" A$Y@ dlCdldk@@kA hl@I A%dj@dl@k@@k@(A@lK@" @ @!@@ @J@kLidl@@k@ Ydl @lE@l 1dl @l @ll @l@l A i(584 RELEASE.PUP 577 \SEQUIN.FLUSH.CONNECTION 537 \SEQUIN.CONTROL 519 \SEQUIN.CONTROL 488 \SEQUIN.RETRANSMIT 402 NOTIFY.EVENT 309 \SEQUIN.HANDLE.ACK 296 RELEASE.PUP 251 \SEQUIN.COMPARE 231 NOTIFY.EVENT 109 RELEASE.PUP 102 \SEQUIN.CONTROL 75 \SEQUIN.OUT.OF.THE.BLUE 62 \SEQUIN.COMPARE 43 RELEASE.PUP) (562 SEQUIN 544 SEQUIN 503 SEQUIN 474 SEQUIN 468 SEQUIN 445 SEQUIN 434 SEQUIN 428 SEQUIN 417 SEQUIN 409 SEQUIN 395 SEQUIN 378 SEQUIN 363 SEQUIN 357 SEQUIN 346 SEQUIN 332 SEQUIN 282 SEQUIN 276 SEQUIN 243 SEQUIN 224 SEQUIN 214 SEQUIN 202 SEQUIN 193 SEQUIN 183 SEQUIN 169 SEQUIN 129 SEQUIN 54 SEQUIN 28 SEQUIN) () \SEQUIN.OUT.OF.THE.BLUE :D8 (L (1 PUP 0 SEQUIN)) hNIL NIL () \SEQUIN.HANDLE.ACK :D8 (L (1 ACKSEQ 0 SEQUIN) P 4 \INTERRUPTABLE) }@1HZ@j@ H @@ m @J%klY@&J@lKIAh(57 \DEQUEUE 45 BLOCK 39 \SEQUIN.RETRANSMITNEXT) (104 SEQUIN 84 SEQUIN 70 SEQUIN 64 SEQUIN 27 SEQUIN 16 SYSQUEUE 5 SEQUIN) () \SEQUIN.RETRANSMIT :D8 (L (0 SEQUIN) P 1 \INTERRUPTABLE) @jhu@HdiH%kl@@H HHhh@kkjhh(69 BLOCK) (118 SEQUIN 104 SYSQUEUE 98 SYSQUEUE 87 SYSQUEUE 81 SEQUIN 59 SEQUIN 43 SYSQUEUE 32 SYSQUEUE 20 SEQUIN 5 SEQUIN) () \SEQUIN.RETRANSMITNEXT :D8 (L (0 SEQUIN)) v@ H@H@$H@ $@H@HY I@j @@kh(96 SENDPUP) (108 SEQUIN 102 SEQUIN 86 SEQUIN 72 ETHERPACKET 66 SEQUIN 57 SEQUIN 46 SEQUIN 33 SEQUIN 22 SEQUIN 16 ETHERPACKET 5 SEQUIN) () \LEAF.CLOSEFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 1 STREAM F 2 CONNECTION F 3 FORCE F 4 INTERNAL) RBhg RkSfQljVTQhR<H RQdg" 297 "<" 291 "]" 285 "[" 271 "/" 265 "/" 234 "Host not found" 131 "Host not found" 83 "'" 32 "'") \LEAF.STRIP.QUOTES :D8 (L (0 NAME)) 4@ 1HI Hdl'dXJ KhZHXK&(17 CONCATCODES 5 CHCON) NIL () \LEAF.GETFILEDATES :D8 (L (1 FLG 0 STREAM)) R@H.@l X@jl YHIlĿI AHHjl @ H(78 \LEAF.SETVALIDATION 71 \CLEARBYTES 56 RELEASE.PUP 39 \LEAF.READFILEPROP 26 \ALLOCBLOCK) (19 STREAM 5 STREAM) () \LEAF.GETFILEINFO :D8 (L (2 DEV 1 ATTRIBUTE 0 STREAM)) @@A 0AgAgJBX YI`.@dg g`@ABC @ABC (59 \GENERIC.RENAMEFILE 48 \FTP.RENAMEFILE 25 GETHOSTINFO) (38 UNIXFTPFLG 30 UNIX 20 OSTYPE 13 FDEV 4 \FTPAVAILABLE) () \LEAF.REOPENFILE :D8 (L (5 STREAM 4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) @AgeD@ggig XvEYj HZj jIl Jl jH Hhdi D@ABihH XKHK EH  H(136 \LEAF.SETCREATIONDATE 123 \LEAF.GETFILE 109 \LEAF.CLOSEFILE 99 \LEAF.CREATIONDATE 89 \GETBASEFIXP 81 \GETBASEFIXP 68 \GETBASEFIXP 53 \GETBASEFIXP 35 \LEAF.GETFILE) (149 STREAM 143 STREAM 59 STREAM 44 STREAM 29 DATES 23 OLD 18 NONE 8 INPUT) () \LEAF.CREATIONDATE :D8 (L (0 STREAM)) @j o(13 \GETBASEFIXP) (5 STREAM) ( 18 -2147483648) \LEAF.SETCREATIONDATE :D8 (L (1 DATE 0 STREAM)) w@ AoJl,[dn8K@Klo KjKlKlI Kl li@J@hi HjI @ i(115 \LEAF.SETVALIDATION 109 \PUTBASEFIXP 101 \SENDLEAF 74 \PUTBASEFIXP 55 \PUTBASEFIXP 17 ALLOCATE.PUP 5 \LEAF.GETFILEDATES) (89 STREAM 38 STREAM) ( 50 -2048 11 -2147483648) \LEAF.SETFILEINFO :D8 (L (3 DEV 2 VALUE 1 ATTRIBUTE 0 STREAM)) @AdgB Bl b!gB3 Bl Ag;HC@gg b#Ag@B @B H@i (127 \LEAF.CLOSEFILE 118 \LEAF.SETCREATIONDATE 110 \LEAF.SETFILETYPE 91 \LEAF.GETFILE 60 \LISPERROR 35 \LISPERROR 25 IDATE) (101 TYPE 86 OLD 81 NONE 68 TYPE 45 ICREATIONDATE 15 CREATIONDATE 5 STREAM) () \LEAF.SETFILETYPE :D8 (L (2 BYTESIZE 1 TYPE 0 STREAM)) Hl,Ydn8I@Ilo IjIlAA3 bAbIAdgkjlIBlIl li@H@hi A(123 \SENDLEAF 42 \PUTBASEFIXP 4 ALLOCATE.PUP) (111 STREAM 76 TEXT 25 STREAM) ( 37 -1368) \LEAF.SETVALIDATION :D8 (L (0 STREAM)) %@@@HI INIL (21 STREAM 11 STREAM 5 STREAM) () \LEAF.TRUNCATEFILE :D8 (L (2 LASTOFF 1 LASTPAGE 0 STREAM)) RAOHl,Ydn8I@IlAB Ik IjIl i@H@hi @(78 \SENDLEAF 45 \PUTBASEFIXP 7 ALLOCATE.PUP) (66 STREAM 28 STREAM) () \LEAF.WRITEPAGES :D8 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @j@ @jBAHdHhHH@Ii !Kl,\n8L@LlIj LI@nLk @]LlJMkĿLl Mi@K@hi IkԹm(182 \SENDLEAF 109 \PUTBASEFIXP 70 ALLOCATE.PUP 64 \LEAF.LOOKUPCACHE 23 \LEAF.SETCREATIONDATE 18 IDATE) (170 STREAM 138 STREAM 118 STREAM 91 STREAM 30 STREAM 5 STREAM) () \SENDLEAF :D8 (L (5 DONTWAIT 4 NOREPLY 3 NOERROR 2 FILENAME 1 PUP 0 SEQUIN)) @Bl B#BjoB ABACljDijkAd,il"@AE hDi@"` ABAXddnAH,jH-nA H(191 RELEASE.PUP 133 AWAIT.EVENT 107 PUTSEQUIN 51 ERROR 12 \LISPERROR) (169 ETHERPACKET 152 ETHERPACKET 140 ETHERPACKET 128 \ETHERTIMEOUT 121 SEQUIN 70 ETHERPACKET 60 ETHERPACKET 44 STREAM 27 STREAM 19 STREAM) ( 38 "Attempt to operate on broken file. Do not proceed until the problem has been resolved.") \OPENLEAFCONNECTIONA0001A0036 :D8 (L (0 SEQUIN) F 0 RESETSTATE) P@ (8 \SEQUIN.CLOSE) NIL () \OPENLEAFCONNECTIONA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 11 HOST F 12 NAME/PASS F 13 SI::*RESETFORMS* F 14 IFSPORT)  `hg  `dWdWdg&dg(dg*dg,dg.dgJdg0dg4dg2dgN`dL6l dM>dkWo dNBl _dOl _dO`_dOdld`d` dl dl dkdjXWo HjHj@gHhhdWc[l,Zjl JlJliKW KWi KJil"KhKlHK HdlhkKYKiH"` IdLdnDdnnd,j4-I YdldldllIH cH h l`n_[l,Zjl Jl JliJOJOKll"KhKlHK H(673 PUTSEQUIN 608 \CLEARBYTES 595 ALLOCATE.PUP 574 RELEASE.PUP 567 \SEQUIN.CLOSE 555 \FIXPASSWORD 527 RELEASE.PUP 488 AWAIT.EVENT 426 PUTSEQUIN 385 \ADDLEAFSTRING 374 \ADDLEAFSTRING 350 \CLEARBYTES 337 ALLOCATE.PUP 292 INITSEQUIN 287 PACK* 203 \CREATECELL 187 \CREATECELL 174 CREATE.MONITORLOCK 169 CONCAT 145 \CREATECELL 15 OBTAIN.MONITORLOCK) (660 ETHERPACKET 650 ETHERPACKET 582 \LEAF.IDLETIMEOUT 483 \ETHERTIMEOUT 476 SEQUIN 464 ETHERPACKET 454 ETHERPACKET 433 SEQUIN 413 ETHERPACKET 403 ETHERPACKET 318 \OPENLEAFCONNECTIONA0001A0036 309 SEQUIN 299 SEQUIN 248 \ETHERTIMEOUT 239 \ETHERTIMEOUT 217 |SYSQUEUETYPE#| 131 |SYSQUEUETYPE#| 123 \LEAF.OPENERRORHANDLER 114 \LEAF.IDLE? 105 \LEAF.IDLE 96 \LEAF.WHENCLOSED 87 \LEAF.TIMEDIN 78 \LEAF.TIMEDOUT 69 \LEAF.FIX.BROKEN.SEQUIN 60 \LEAF.FIX.BROKEN.SEQUIN 51 \LEAF.HANDLE.INPUT 42 \LEAF.ACKED 23 |SEQUINTYPE#| 10 WITH.MONITOR 4 \LEAFCONNECTIONLOCK) ( 282 "#LEAF" 164 "#LEAFOPEN") \OPENLEAFCONNECTION :D8 (P 4 SI::*RESETFORMS* P 3 SI::*LOCKED-MONITOR* P 2 NAME/PASS P 1 IFSPORT I 0 HOST) n0@` @g XgH n@` Yd1jI`@ Z g $(103 SI::MONITOR-UNWIND 98 \MVLIST 93 \OPENLEAFCONNECTIONA0001 79 \INTERNAL/GETPASSWORD 56 BESTPUPADDRESS 40 MEMB 26 GETHOSTINFO 13 MEMB) (88 SI::MONITOR-UNWIND 71 \SOCKET.LEAF 51 PROMPTWINDOW 34 LEAF 21 PROTOCOLS 8 NONLEAFHOSTS) () \LEAF.BREAKCONNECTION :D8 (L (2 FAST 1 DEVICE 0 HOST)) f`AZSJ XHAhdAlKY.BIdA AMlLId HA (99 \CLOSELEAFCONNECTION 87 CLOSEF) (63 FDEV 35 FDEV 24 PUPFILESERVER 16 PUPFILESERVER 8 FDEV) () \CLOSELEAFCONNECTION :D8 (L (1 DEVICE 0 CONN)) 4@d @ghAh (6 CLOSESEQUIN) (45 PUPFILESERVER 38 FDEV 29 aborted 22 SEQUIN 14 SEQUIN) () \LEAF.EVENTFN :D8 (L (1 EVENT-TYPE 0 FDEV)) @!AgAgAdgH Yq@ I@ `gAgAgAg?H H@hd@lJ@ HHh@ h Hhl (186 \SEQUIN.FLUSH.CONNECTION 166 CLOSEPUPSOCKET 159 \PAGED.REVALIDATEFILELST 132 \REMOVEDEVICE 63 \CLOSELEAFCONNECTION 55 \FLUSH.OPEN.STREAMS) (173 PUPFILESERVER 149 PUPFILESERVER 139 PUPFILESERVER 115 FDEV 105 PUPFILESERVER 96 AFTERSAVEVM 88 AFTERSYSOUT 79 AFTERMAKESYS 70 AFTERLOGOUT 44 PUPFILESERVER 34 BEFORESYSOUT 25 BEFOREMAKESYS 16 BEFORELOGOUT 5 FDEV) () BREAKCONNECTION :D8 (L (1 FAST 0 HOST)) @@diR`ALM_*Y+IOOAlJO_N Oh^L\O&id X@ d0id Xd%*dHHAlK H(114 \GETDEVICEFROMNAME 104 CANONICAL.HOSTNAME 95 \GETDEVICEFROMNAME) (151 FDEV 135 FDEV 123 FDEV 63 FDEV 45 FDEV 31 FDEV 14 \FILEDEVICES) () \LEAF.ACKED :D8 (L (1 SEQUIN 0 PUP)) (A6@ AA kHI I(13 \ENQUEUE) (25 SEQUIN 19 SEQUIN 5 SEQUIN) () \LEAF.FIX.BROKEN.SEQUIN :D8 (L (1 PUP 0 SEQUIN) F 14 \WINDOWWORLD) @@@6@ d @ AJ\.JIJJhhI\HdlOLLL,l@@ Ll"lj @ kHlML@ iIIhho` @` o` o` K_hdKlO1 OmO]K@Fg@` h ^@ Wigg A>MK @A d@_OOh__O_qO&_NLM \o` ` i@D@@ oAA_@ dOl n`_O .@dFg@ i"n hh(663 AWAIT.EVENT 644 \SEQUIN.FLUSH.CONNECTION 619 TIMEREXPIRED? 605 \CLOCK0 574 ERROR 541 \SEQUIN.FLUSH.CONNECTION 523 TERPRI 512 PRIN1 494 \LEAF.USE.NEW.CONNECTION 442 \LEAF.REPAIR.BROKEN.PUP 434 \PAGED.REVALIDATEFILELST 422 PUTWINDOWPROP 404 HASTTYWINDOWP 394 \SEQUIN.FLUSH.CONNECTION 383 \LEAF.RECONNECT 376 \CLOCKGREATERP 308 PRIN1 292 PRIN1 276 PRIN1 257 PRIN1 220 \SEQUIN.FLUSH.CONNECTION 200 \SEQUIN.RETRANSMIT 193 \PUTBASEFIXP 177 CLOSEPUPSOCKET 164 OPENPUPSOCKET 46 \SEQUIN.FLUSH.RETRANSMIT 37 \GETDEVICEFROMNAME) (653 SEQUIN 635 ABORT 628 SEQUIN 593 STREAM 583 STREAM 567 SEQUIN 555 ETHERPACKET 531 SEQUIN 518 PROMPTWINDOW 507 PROMPTWINDOW 450 STREAM 417 EXPANDING-PAGEFULLFN 412 PAGEFULLFN 371 \LEAF.RECOVERY.TIMEOUT 364 SEQUIN 355 ABORT 348 SEQUIN 315 FDEV 303 PROMPTWINDOW 287 PROMPTWINDOW 271 PROMPTWINDOW 264 SEQUIN 252 PROMPTWINDOW 234 SYSQUEUE 228 SYSQUEUE 170 SEQUIN 159 SEQUIN 136 ETHERPACKET 113 SYSQUEUE 99 SYSQUEUE 93 SYSQUEUE 82 SYSQUEUE 76 ETHERPACKET 69 SYSQUEUE 58 SYSQUEUE 30 SEQUIN 22 SEQUIN 14 SEQUIN 5 SEQUIN) ( 547 "File server connection has been broken--cannot complete file operation(s). (RETURN) to try again to get a new connection." 502 "done]" 298 "trying to establish new connection..." 282 " crashed; " 247 "[Connection with ") \LEAF.REPAIR.BROKEN.PUP :D8 (L (1 PUP 0 OLDSEQUIN)) A!H+Hd!Y%oHH Anh@Al,ZdldldldldlJHihI(53 ERROR) (113 STREAM 60 ETHERPACKET 43 STREAM 27 STREAM 20 STREAM 5 ETHERPACKET) ( 37 "File server connection broken") \LEAF.USE.NEW.CONNECTION :D8 (L (2 AFFECTEDFILES 1 UNSENTPUPS 0 SEQUIN))   A'HB h__BLJ bdAdb[hKl,YlIlIlIdl,KZKMdBBbJHJHKLwl>KZeJdHKLXljJHCJB b6IkKn#KM_lj?i oi Oi oi i i Od_ZBOJ-ONOMN:g@ddi3 g@hNddi3 gNhh M(421 ADD.PROCESS 311 TERPRI 304 TERPRI 297 PRIN1 285 PRIN1 269 PRIN1 257 TERPRI 201 DREMOVE 37 \PAGED.REVALIDATEFILES 12 UNION) (408 QUOTE 387 QUOTE 370 \LEAF.RESENDPUPS 342 STREAM 327 ETHERPACKET 277 STREAM 241 STREAM 217 ETHERPACKET 178 STREAM 153 ETHERPACKET 107 ETHERPACKET 66 ETHERPACKET 55 ETHERPACKET) ( 291 " was open for write during a file server crash; data may be lost" 263 "*****Warning: ") \LEAF.RESENDPUPS :D8 (L (1 PUPS 0 SEQUIN)) "Adl"lj @AAb (29 PUTSEQUIN 15 \PUTBASEFIXP) NIL () \LEAF.HANDLE.INPUT :D8 (L (1 SEQUIN 0 PUP)) 7@l,QA6 Ydo AA m HdPjoA @ \jHiIl,ZL`o@ KIdljuLlHne@JI]MMkI@g@Mddi3 gMhAIh 'IkjI@@ I h(307 RELEASE.PUP 300 RELEASE.PUP 268 ADD.PROCESS 131 HELP 87 RELEASE.PUP 80 HELP 32 SHOULDNT 19 \DEQUEUE) (290 ETHERPACKET 276 ETHERPACKET 251 QUOTE 233 \LEAF.ERROR 224 ETHERPACKET 211 STREAM 205 STREAM 197 STREAM 189 ETHERPACKET 177 ETHERPACKET 146 ETHERPACKET 119 LEAFDEBUGFLG 73 SEQUIN 45 SEQUIN 39 SEQUIN 12 SEQUIN) ( 125 "Answer does not match head of done queue" 67 "Leaf Protocol violation--will terminate connection" 27 "Leaf lost a packet somewhere!") \LEAF.OPENERRORHANDLER :D8 (L (1 PUP 0 SEQUIN)) A6dlX` o` @` `o` o` ln@` o` @` o` i(161 PRIN1 145 PRIN1 126 PRIN1 110 TERPRI 91 PRIN1 75 PRIN1 54 PRIN1 35 PRIN1 19 TERPRI) (156 PROMPTWINDOW 140 PROMPTWINDOW 133 SEQUIN 121 PROMPTWINDOW 105 PROMPTWINDOW 86 PROMPTWINDOW 70 PROMPTWINDOW 59 \FTPAVAILABLE 49 PROMPTWINDOW 42 SEQUIN 30 PROMPTWINDOW 14 PROMPTWINDOW) ( 151 "]" 116 "[No route to " 81 "]" 65 "; trying FTP..." 25 "[No Leaf Server on ") \LEAF.TIMEDIN :D8 (L (0 SEQUIN)) :@dD&@D @hD@hF@hHh(24 CLOSEW) (51 SEQUIN 41 SEQUIN 31 SEQUIN 17 SEQUIN 6 SEQUIN) () \LEAF.TIMEDOUT :D8 (L (1 CNT 0 SEQUIN)) +@Fg@l @ `A@H@HIdl@g` @ kF@ Z@J` `@J` ` @AH~Ily@i ZN`@` o` @` o` @ @J` AH` @A h(295 \LEAF.TIMEDOUT.EXCESSIVE 275 \LEAF.NOT.RESPONDING 262 \SEQUIN.FLUSH.CONNECTION 255 PRIN1 239 PRIN1 220 PRIN1 204 TERPRI 184 \LEAF.STREAM.IN.QUEUE 159 TERPRI 148 \LEAF.NOT.RESPONDING 128 \LEAF.NOT.RESPONDING 109 \LEAF.STREAM.IN.QUEUE 96 \SEQUIN.FLUSH.CONNECTION 89 \LEAF.NOT.RESPONDING 28 \SEQUIN.FLUSH.CONNECTION 22 \SEQUIN.CONTROL) (284 \MAXLEAFTRIES 270 PROMPTWINDOW 250 PUPTRACEFILE 234 PUPTRACEFILE 227 SEQUIN 215 PUPTRACEFILE 199 PUPTRACEFILE 192 PUPTRACEFLG 166 SEQUIN 154 PUPTRACEFILE 143 PUPTRACEFILE 134 PUPTRACEFLG 123 PROMPTWINDOW 84 PROMPTWINDOW 79 :OPEN 54 SEQUIN 46 SEQUIN 34 \MAXLEAFTRIES 12 ABORT 5 SEQUIN) ( 245 " aborted]" 210 "[File server connection to ") \LEAF.NOT.RESPONDING :D8 (L (2 OUTSTREAM 1 REASON 0 SEQUIN)) rB oB @B oB Adi3gooB AdAB oB (111 PRIN1 99 PRIN1 75 PRIN1 44 PRIN1 32 PRIN1 17 PRIN1 5 TERPRI) (91 STREAM 83 STREAM 55 :OPEN 24 SEQUIN) ( 105 "]" 69 " for " 62 " to Leaf connection attempt" 38 " not responding" 11 "[") \LEAF.TIMEDOUT.EXCESSIVEA0008 :D8 (L (0 WINDOW)) @gh (11 PUTWINDOWPROP) (5 SEQUIN) () \LEAF.TIMEDOUT.EXCESSIVE :D8 (L (1 CNT 0 SEQUIN))  ` o@ @6i @HD@H oH H I.Jh@YLZd_H oH OdoH OHoho oH OH H H oH H oH H `dodgdg dgjdndh_dO Hdg g` ll  Hg@ Hgg h]IYdM_MI,dl*Il,^NZdnnk_i(dldlMljLg_h@Lh__OOhL\OdK__OOOOOKAO;OK3H oH OH OK(655 PRIN1 646 PRIN1 634 TERPRI 408 PUTWINDOWPROP 392 PUTWINDOWPROP 380 ADDMENU 368 STRINGWIDTH 353 GETWINDOWPROP 279 TERPRI 272 PRIN1 260 TERPRI 253 PRIN1 241 TERPRI 234 TERPRI 223 PRIN1 213 PRIN1 201 MAPRINT 179 PRIN1 160 PRIN1 148 TERPRI 104 TERPRI 97 PRIN1 85 PRIN1 43 CREATEW 38 CONCAT 20 MAKEWITHINREGION 4 WINDOWWORLDP) (545 EOF 530 STREAM 458 STREAM 446 STREAM 438 STREAM 426 ETHERPACKET 415 ETHERPACKET 403 \LEAF.TIMEDOUT.EXCESSIVEA0008 398 CLOSEFN 386 SEQUIN 363 MENUFONT 358 ABORT 348 WIDTH 318 DEFAULTMENUHELDFN 309 CLRPROMPT 300 \LEAF.ABORT.FROMMENU 284 |MENUTYPE#| 129 SYSQUEUE 122 SEQUIN 77 SEQUIN 68 SEQUIN 56 SYSQUEUE 49 SEQUIN 31 SEQUIN 15 LEAFABORTREGION) ( 640 "Reading " 291 (ABORT) 266 "If you do not wish to wait for the server to resume operation, you can abort the connection by clicking ABORT below" 247 "... will keep trying." 207 " of " 195 ", " 189 " " 173 "s" 154 "Writing page" 91 " is not responding." 25 "Leaf Abort window for ") \LEAF.ABORT.FROMMENU :D8 (L (2 BUTTON 1 MENU 0 ITEM)) IA Hdkjh@ (130 \SEQUIN.CLOSE 84 \SEQUIN.CONTROL 58 \GETDEVICEFROMNAME 45 ADD.PROCESS) (114 SEQUIN 92 STREAM 63 FDEV 51 SEQUIN 33 QUOTE 16 \LEAF.MAYBE.FLUSH.CACHE 6 SEQUIN) () \LEAF.MAYBE.FLUSH.CACHE :D8 (L (0 SEQUIN)) @Bid @ (22 \LEAF.FLUSH.CACHE 14 OBTAIN.MONITORLOCK) (5 SEQUIN) () \LEAF.WHENCLOSED :D8 (L (2 REASON 1 FINALSTATE 0 SEQUIN)) Blnn@h<@dD@D @hD@6 J@ E@j @id dY @ Ih hHH(113 \GETDEVICEFROMNAME 87 \DEQUEUE 72 \DEQUEUE 48 CLOSEW) (161 ETHERPACKET 151 ETHERPACKET 141 PUPFILESERVER 129 PUPFILESERVER 121 FDEV 104 SEQUIN 95 SEQUIN 80 SEQUIN 65 SEQUIN 55 SEQUIN 41 SEQUIN 30 SEQUIN 20 SEQUIN) () \LEAF.IDLE? :D8 (L (0 SEQUIN)) #@d jh<``NIL (32 \LEAF.IDLETIMEOUT 26 \LEAF.CACHETIMEOUT 18 SEQUIN 6 SEQUIN) () \ADDLEAFSTRING :D8 (L (2 DECODE 1 STRING 0 PUP)) @l,HikmYAjUdd3@AkA; A bAdj Adj Al IJl^no@ HI]JMk]Jj8B)Jkj__OO$MOKOLlIǿOk_KLMjJ HNih(200 \MOVEBYTES 129 ERROR 105 \GETBASEFIXP 93 %%ARRAY-OFFSET 76 %%ARRAY-BASE 60 MKSTRING 53 STRINGP) NIL ( 123 "PUP OVERFLOW") \FIXPASSWORD :D8 (L (2 DIRECTORY 1 CONNECTION 0 ERRCODE)) iA@lhB@dloGl@dlo5lo*@dlolo@loo (102 \INTERNAL/GETPASSWORD) (5 SEQUIN) ( 97 "Unknown error" 91 "Can't login as files-only directory" 80 "Protection violation" 69 "Invalid connect name" 55 "Incorrect connect password" 44 "Invalid username" 26 "Incorrect password") \GETLEAFSTRING :D8 (L (0 ADDR)) @Hj @lH (19 \GETBASESTRING) NIL () \IFSERRORSTRINGA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CONNECTION F 3 \CONNECTED.HOST F 4 \IFSERRORFILENAME F 5 SI::NLSETQ-VALUE) 8i@gR#So cg hc g(35 OPENSTREAM 23 PACK*) (50 SEQUIN 44 :NORMAL 30 INPUT 9 {) ( 18 "}IFS.ERRORS") \IFSERRORSTRING :D8 (L (1 FILENAME 0 CODE) P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 2 CONNECTION F 12 \IFSERRORFILENAME F 13 *PROCEED-CASES* F 14 *CONDITION-HANDLER-BINDINGS*) AAW `WioWI gHq L l dl l9`ll0l m݇`l оLMcNo@o Ljhdi _YNo LO L O_ _LO Ok__OOOOL Ok_OL h(243 CLOSEF 226 RPLCHARCODE 198 SETFILEPTR 187 ALLOCSTRING 177 GETEOFPTR 169 FFILEPOS 161 CONCAT 146 FFILEPOS 135 CONCAT 76 CHARACTER 63 FULLNAME 42 \IFSERRORSTRINGA0001 9 STRING.EQUAL) (104 \OneCharAtomBase 87 \OneCharAtomBase 48 :NORMAL 21 SI::NLSETQ-PROCEED-CASE) ( 156 "$$" 130 " " 124 "$$" 30 (CL:ERROR . SI::NLSETQHANDLER)) \LEAF.ERROR :D8 (L (3 SENTPUP 2 CONNECTION 1 FILENAME 0 PUP)) @l,!HYdlAl lIdlAl* lAl IdnoA lo6Ino)o@"lHl IAB I ZHk,` J` ` Al JA (207 ERROR 199 \LISPERROR 191 TERPRI 180 PRIN1 168 TERPRI 149 CONCAT 141 \IFSERRORSTRING 131 \GETLEAFSTRING 85 ERROR 57 \LISPERROR 44 \LISPERROR 24 \LISPERROR) (186 PROMPTWINDOW 175 PROMPTWINDOW 163 PROMPTWINDOW 78 STREAM) ( 115 "Leaf error: " 108 "Leaf Broken--a file you had open was accessed by another user while it was idle." 95 "File busy" 72 "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 :D8 (L (0 FILENAME)) )@g gH YHkIk H(36 SUBATOM 24 STRPOS 10 FILENAMEFIELD) (18 > 5 DIRECTORY) () GETHOSTINFO :D8 (L (1 ATTRIBUTE 0 HOST)) @ bd`Hng@ oZ` '` @ bh@` (@d b@`X`h`AgAdgHdg'SPg%@`Hdg'/`%AgHdd3@Hdgo HHA'(100 CANONICAL.HOSTNAME 84 GETHASH 69 \DOMAIN.NAME.QUALIFY.FULLY 54 BOUNDP 36 STRPOS 10 MKATOM 5 U-CASE) (239 IFS 218 PROTOCOLS 208 NETWORKLOGINFO 197 OSTYPE 183 NETWORKLOGINFO 174 LOGINFO 163 OSTYPE 148 OSTYPE 139 OS 131 DEFAULT.OSTYPE 119 DEFAULT.OSTYPE 110 NETWORKOSTYPES 89 HOSTS.TXT.ENTRY 79 \IP.HOSTNAMES 61 \IPFLG 49 \IPFLG 30 %: 18 NETWORKOSTYPES) ( 247 (LEAF PUPFTP CHAT LOOKUPFILE) 42 (NIL . NS)) GETOSTYPE :D8 (L (0 HOST)) @g (10 GETHOSTINFO) (5 OSTYPE) () EXPANDING-PAGEFULLFN :D8 (L (0 W) F 5 \#DISPLAYLINES F 6 \CURRENTDISPLAYLINE) S@ @g ljh@ U#@HIHԼHIջjKKjHLH Jc (77 SHAPEW 28 DSPLINEFEED 16 GETWINDOWUSERPROP 5 WINDOWREGION) (11 EXPANDING-INCREMENT) () \IFS.LOOKUPFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 IPUP F 4 REMOTENAME F 5 DEVINFO F 6 OPUP F 7 PUPSOC F 8 RESULT F 9 HOSTNAME F 10 ATTRIBUTE F 11 LOCK F 12 *UPPER-CASE-FILE-NAMES* F 13 ROOTNAME)  Whg c Wl1lhW VoT T T `!kYHWVhi c#dlWdgd5gWgWgS, cWT \TYdgSl,k o 8dgSl,k ogSl,l W cudlhcjlS6l`ES` 7S IkԱ hcU.UUkZJlUhW SS WgUhh(385 RELEASE.PUP 375 CLOSEPUPSOCKET 311 RELEASE.PUP 302 PRINTERRORPUP 256 \ILLEGAL.ARG 248 \GETBASEFIXP 222 \GETBASEFIXP 200 GDATE 189 \GETBASEFIXP 164 MKATOM 159 U-CASE 147 CONCAT 86 EXCHANGEPUPS 60 \PUTPUPSTRING 53 \LEAF.STRIP.QUOTES 46 STRPOS 34 SETUPPUP 17 ALLOCATE.PUP 12 OBTAIN.MONITORLOCK) (401 PUPFILESERVER 393 ? 364 PUPFILESERVER 344 PUPFILESERVER 338 PUPFILESERVER 328 PUPFILESERVER 297 PUPTRACEFILE 289 PUPTRACEFLG 235 LENGTH 208 ICREATIONDATE 175 CREATIONDATE 138 ; 131 } 124 { 113 NAME 65 \MAXETHERTRIES 7 WITH.MONITOR) ( 227 -2147483648 194 -2147483648 40 "'") \IFS.LOOKUPFILE :D8 (L (1 RECOG 0 NAME) P 14 SI::*RESETFORMS* P 13 SI::*LOCKED-MONITOR* P 12 LOCK P 10 PUPSOC P 9 OPUP P 8 IPUP P 7 ROOTNAME P 3 REMOTENAME P 1 HOSTNAME P 0 RESULT I 3 DEVINFO I 2 ATTRIBUTE) gCC @k l{g@l ]hC_ C_Co _Cj@Mkg@Mk g@Mk \dkL@ h _gOO O)jO _gI gO _gOO ^7Og _iIg ZgTLAg:OO ONk l'hC_Hk_KOo L4NOkm OJggg@Lk JJgAgOo +O'NOkm OAgKo K[ g $H(518 SI::MONITOR-UNWIND 513 \MVLIST 508 \IFS.LOOKUPFILEA0001 492 CONCAT 469 SUBSTRING 451 CONCAT 420 CONCAT 415 SUBSTRING 384 SUBSTRING 366 CONCAT 323 NTHCHARCODE 310 NCHARS 278 GETHOSTINFO 262 CONCAT 247 STRPOS 230 CONCAT 217 \INTERNAL/GETPASSWORD 202 NCHARS 184 STRPOS 168 SUBSTRING 159 NCHARS 147 STRPOS 131 STRPOS 98 CREATE.MONITORLOCK 77 OPENPUPSOCKET 48 STRPOS 30 NTHCHARCODE) (503 SI::MONITOR-UNWIND 479 OLDEST 437 OLDEST 428 TOPS20 406 ! 400 %. 393 TOPS20 336 PUPFILESERVER 295 OLDEST 284 TENEX 273 OSTYPE 257 %. 238 %. 223 > 211 < 175 > 138 ! 122 ; 109 PUPFILESERVER 88 PUPFILESERVER 72 PUPFILESERVER 58 PUPFILESERVER 40 } 18 PUPFILESERVER 10 PUPFILESERVER 4 ?) ( 487 "!L" 446 ".-2" 361 ";-2" 93 "LookUpFile") \LEAFINIT :D8 NIL g h`dgdkdkdk0dgdg dgdgDdgdgFdgdgdg dgd`hdgRdgPdgNdgHdgBdg@dg>dg