(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10) (FILECREATED " 2-Apr-87 12:11:17" ("compiled on " {ERIS}LIBRARY>TCPFTP.;42) "31-Mar-87 21:33:35" brecompiled changes%: nothing in "Xerox Lisp 31-Mar-87 ..." dated "31-Mar-87 21:58:30") (FILECREATED " 2-Apr-87 12:07:16" {ERIS}LIBRARY>TCPFTP.;42 59720 changes to%: (VARS TCPFTPCOMS) previous date%: " 8-Jan-87 16:40:25" {ERIS}LIBRARY>TCPFTP.;41) ARPACMDA0001A0002 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 CMD F 1 INC F 2 OUTC F 3 ARG F 4 DISCARD F 5 WANTARG F 6 WANT F 7 SI::*RESETFORMS*) MggggQogQhhggRogRhhhhhdWcP²R`² P` ¿S²o` ¿S` ¿PR ¿SžoR ¿SR ¿R ¿R ¿`²` ¿`šo` ¿Q c¿`²P` ¿o` ¿PUð¦UŸPU›Q l-ð“P PQ l-ðœQ ¿Q Pð²õPVð¨V›PdV—¿Q PPTð¨T›PdT—¿Q °ƒP3 ´PldÛdlð¤dlð–¿P °dlð¤dlð˜¿Qi ¿Q ±ÿO(328 DISCARDLINE 323 ERROR 320 GETLINE 302 FTPHELP 276 DISCARDLINE 257 DISCARDLINE 236 \TCPFTP.INPUT 231 DISCARDLINE 219 FTPHELP 197 PRIN1 186 PRIN1 171 \TCPFTP.INPUT 166 PRIN1 151 TERPRI 139 FORCEOUTPUT 134 TELNET.EOL 129 PRIN3 123 PRIN3 112 PRIN3 106 PRIN1 98 PRIN1 84 PRIN1) (194 FTPDEBUGLOG 183 FTPDEBUGLOG 177 FTPDEBUGFLG 163 FTPDEBUGLOG 155 FTPDEBUGFLG 148 FTPDEBUGLOG 143 FTPDEBUGFLG 103 FTPDEBUGLOG 95 FTPDEBUGLOG 81 FTPDEBUGLOG 75 FTPDEBUGFLG 45 CLOSEF 35 OPENP 32 AND 21 CLOSEF 11 OPENP 8 AND 5 RESETSTATE 2 COND) ( 191 " " 160 "< " 119 " " 92 " " 40 ((QUOTE OUTPUT)) 16 ((QUOTE INPUT))) ARPACMDA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 OUTC P 0 INC I 0 SI::*CLEANUP-FORMS* F 4 TCPFTPCON F 5 LISPXHIST) (`hgTTUg ¿ (37 CL:VALUES-LIST 33 SI::RESETUNWIND 30 \MVLIST 27 ARPACMDA0001A0002 9 OBTAIN.MONITORLOCK) (24 SI::RESETUNWIND 6 WITH.MONITOR 2 \TCPFTP.ARPACMD.LOCK) () ARPACMD :D4 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 5 WANTARG I 4 DISCARD I 3 WANT I 2 ARG I 1 CMD I 0 TCPFTPCON) g ¿ (18 CL:VALUES-LIST 14 SI::MONITOR-UNWIND 11 \MVLIST 8 ARPACMDA0001) (5 SI::MONITOR-UNWIND) () FTPHELP :D4 (I 0 ARG) @o (7 ERROR) NIL ( 4 " unrecognized response from remote FTP server") CMDREADCODE :D4 (I 0 IN) @ @ @ (14 PACK* 11 CMDREAD 7 CMDREAD 3 CMDREAD) NIL () CMDREAD :D4 (P 0 CH I 0 IN) @ `–H` H(15 BOUT) (12 FTPDEBUGLOG 7 FTPDEBUGFLG) () DISCARDLINE :D4 (P 0 CH I 0 IN) >`²*@ @ Xl ð£Hjð—` h`H ¿°å¿h³ò@ dl ð¤djð²ò¿i°ð(37 BOUT 28 TERPRI 8 \BACKFILEPTR) (33 FTPDEBUGLOG 25 FTPDEBUGLOG 2 FTPDEBUGFLG) () GETLINE :D4 (P 2 CH P 1 STRING P 0 POS I 1 FLG I 0 IN) /klP @ Zl ð³HdlPó¨¿IHJ¿HkÔ¸°æIkHkÙ(44 SUBSTRING 29 RPLCHARCODE 5 ALLOCSTRING) NIL () \TCPFTP.INPUT :D4 (P 1 CH P 0 CODE I 0 STREAM) cjIdl-ð«¿Idjð¥l ð²2Il-ð²*`²` ¿o` ¿H` ¿@ ¿@ H@ ¹l0Iñ³¸Idl9ñ³²¿Hl ÚIl0ÙØ¸°¤(66 \TCPFTP.INPUT 61 DISCARDLINE 56 PRIN1 48 PRIN1 37 TERPRI) (53 FTPDEBUGLOG 45 FTPDEBUGLOG 34 FTPDEBUGLOG 29 FTPDEBUGFLG) ( 42 "< ") TELNET.EOL :D4 (I 0 STREAM) @l @l @ (15 FORCEOUTPUT 11 BOUT 5 BOUT) NIL () \TCPFTP.CONTROL.CLOSED :D4 (P 3 TCPFTPCON P 0 DEVICE I 1 OUTSTREAM I 0 INSTREAM) D@É AHÉYµ"h[´@Ah HKHÉ \LZ@ð•JµÚi°×I°Î(45 DREMOVE 31 \SETACCESS 28 \SETACCESS) (40 FDEV 35 FDEV 12 FDEV 3 STREAM) () \TCPFTP.GET.OSTYPE :D4 (P 1 ENTRY P 0 HOST I 0 DEVICE F 2 \HOSTNAMES) '@ÉHR˜Hg µH` Yd”É(28 GETHASH 19 GETHOSTINFO) (34 HOSTS.TXT.ENTRY 25 \IP.HOSTNAMES 16 OSTYPE 3 FDEV) () \TCPFTP.EVENTFN :D4 (P 4 DATASTREAM P 3 TCPOUT P 2 TCPIN P 1 TCPFTPCON I 1 FLG I 0 FDEV) YAgð¬Agð¦Agð´@ÉAHµhYºI»I¼Jg ”J ¿Kg ”K ¿L ”L ¿HX°Ç(81 CLOSEF 76 OPENP 71 CLOSEF 66 OPENP 58 CLOSEF 53 OPENP) (63 OUTPUT 50 INPUT 22 FDEV 15 BEFOREMAKESYS 9 BEFORESYSOUT 3 BEFORELOGOUT) () \TCPFTP.HOSTNAMEP :D4 (P 2 FILINGNAME P 1 FULLHOSTNAME P 0 SERVER I 1 DEVICE I 0 HOST) ¥@ µ@ !H¡h@ Yidµ‚±‚@o ZI`` dI¿dg¿dg¿dg¿dgB¿dgD¿dgN¿dg¿dg¿dg¿dg ¿dg¿dg¿dh¿b A`A(153 \DEFINEDEVICE 54 NCREATE2 43 PACK* 29 \GETDEVICEFROMNAME 23 MKATOM 20 U-CASE 9 \IP.READ.STRING.ADDRESS 3 DODIP.HOSTP) (161 \TCPFTP.DEVICES 157 \TCPFTP.DEVICES 140 NILL 133 \TCPFTP.GENERATEFILES 126 \TCPFTP.DIRECTORYNAMEP 119 \TCPFTP.GETFILENAME 112 NILL 105 \TCPFTP.DELETEFILE 98 \TCPFTP.GETEOFPTR 91 \TCPFTP.SETFILEINFO 84 \TCPFTP.GETFILEINFO 77 NILL 70 \TCPFTP.RENAMEFILE 63 \TCPFTP.OPENFILE 51 \TCP.DEVICE 48 |FDEVTYPE#|) ( 40 " Filing") \GET.TCPFTP.CONNECTIONA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 TCPFTPCON F 3 INSTREAM F 4 DEVICE F 5 OUTSTREAM F 6 CONNECTIONS) p`hgVHµ hcµT Y¥Iµîi°ëHX°âc²3Rc ²,Sg ²#Ug ²S ³S ”S ¿°øRiRRT T (109 \TCPFTP.OPEN.CONNECTION 105 \TCPFTP.DELETE.CONNECTION 86 READP 80 EOFP 74 OPENP 65 OPENP 27 \TCPFTP.OPEN.CONNECTION 9 OBTAIN.MONITORLOCK) (71 OUTPUT 62 INPUT 6 WITH.MONITOR 2 \TCPFTP.CONNECTION.LOCK) () \GET.TCPFTP.CONNECTION :D4 (P 5 SI::*RESETFORMS* P 4 SI::*LOCKED-MONITOR* P 3 OUTSTREAM P 2 INSTREAM P 1 TCPFTPCON P 0 CONNECTIONS I 0 DEVICE) @ÉQg ¿ (24 CL:VALUES-LIST 20 SI::MONITOR-UNWIND 17 \MVLIST 14 \GET.TCPFTP.CONNECTIONA0001) (11 SI::MONITOR-UNWIND 3 FDEV) () \TCPFTP.OPEN.CONNECTIONA0001 :D4 (I 0 STREAM) (2 ZERO) NIL () \TCPFTP.OPEN.CONNECTION :D4 (P 3 OUTSTREAM P 2 INSTREAM P 1 TCPFTPCON P 0 HOST I 0 DEVICE) @É hddihdd¹Hlhggho Jd’ Jd²Yg*J@ K@ IJIKJ lÜð²4`²` ¿o` ¿I ¿@I @I@ÉII@ h(153 \TCPFTP.DELETE.CONNECTION 132 \TCPFTP.LOGIN 126 DISCARDLINE 120 PRIN1 109 TERPRI 93 \TCPFTP.INPUT 53 TCP.OTHER.STREAM 44 TCP.OPEN 8 DODIP.HOSTP) (141 FDEV 136 FDEV 117 FTPDEBUGLOG 106 FTPDEBUGLOG 101 FTPDEBUGFLG 79 STREAM 72 STREAM 66 \TCPFTP.OPEN.CONNECTIONA0001 63 STREAM 35 INPUT 32 ACTIVE 3 FDEV) ( 114 "< 220 " 40 (WHENCLOSEDFN \TCPFTP.CONTROL.CLOSED)) \TCPFTP.ASSURE.CLEANUP :D4 NIL #` ™` hðµogg(29 ADD.PROCESS 12 PROCESS.FINISHEDP 5 PROCESSP) (32 \TCPFTP.CLEANUP.PROCESS 26 NO 23 RESTARTABLE 9 \TCPFTP.CLEANUP.PROCESS 2 \TCPFTP.CLEANUP.PROCESS) ( 20 (\TCPFTP.CLEANUP)) \TCPFTP.CLEANUPA0001A0002 :D4 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CONNECTION F 3 CONNECTIONSP F 4 DEVICE F 5 SI::NLSETQ-VALUE) ri@Rd³6 ²+R ¿R ¿R—R ¿SmÿÔc¿RTi°+Rg ²RÉÉgð¬SmÿÔc¿RT €hhc g(102 \TCPFTP.DELETE.CONNECTION 71 OPENP 61 \TCPFTP.DELETE.CONNECTION 47 CLOSEF? 34 CLOSEF? 27 CLOSEF? 20 TIMEREXPIRED?) (111 :NORMAL 88 ESTABLISHED 83 TCP.CONTROL.BLOCK 78 STREAM 68 INPUT) () \TCPFTP.CLEANUPA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) *`hg`TioUI gð´H(31 \TCPFTP.CLEANUPA0001A0002 9 OBTAIN.MONITORLOCK) (35 :NORMAL 15 SI::NLSETQ-PROCEED-CASE 6 WITH.MONITOR 2 \TCPFTP.CONNECTION.LOCK) ( 22 (CL:ERROR . SI::NLSETQHANDLER)) \TCPFTP.CLEANUP :D4 (P 5 SI::*RESETFORMS* P 4 SI::*LOCKED-MONITOR* P 3 CONNECTION P 2 DEVICE P 1 CONNECTIONSP P 0 INTERVAL) p`l×j¹`°;dJÉh °$dIkÔ¹ g ¿ µÝhµÆIdjð”I ¤H ¿IjðªI²¤I ²žh(106 \FZEROP 92 BLOCK 87 \FZEROP 64 BLOCK 60 CL:VALUES-LIST 56 SI::MONITOR-UNWIND 53 \MVLIST 50 \TCPFTP.CLEANUPA0001 30 \APPEND2) (47 SI::MONITOR-UNWIND 24 FDEV 13 \TCPFTP.DEVICES 2 \TCPFTP.IDLE.TIMEOUT) () \TCPFTP.RELEASE.CONNECTION :D4 (I 0 TCPFTPCON) #@d²h@h@l `ö(32 \TCPFTP.ASSURE.CLEANUP 24 \CLOCK0) (27 \TCPFTP.IDLE.TIMEOUT) () \TCPFTP.LOGIN :D4 (P 3 INFO P 2 LOGINRETRYCOUNT P 1 HOST P 0 OSTYPE I 1 TCPFTPCON I 0 DEVICE) @ @ÉjI [²K jðªK jð¢±¯I ¿°áKodlæð’±dlÊð’±…dnKð²Z¿AoK odlæð³ednLð²!¿AooI olæð²KidnKð¦dnð²~¿I ¿JkÔº±ÿjdnLð² ¿AooI olæð™idn÷ð²,¿AoHgð¢±ÿPKK ð¢±ÿDJjð¢±ÿ=K ±ÿ7dnôð¥dnðœ¿I ¿JkÔº±þû¿h(281 FTPHELP 269 LOGIN 249 L-CASE 232 U-CASE 197 ARPACMD 190 PROMPTFORWORD 187 CONCAT 158 LOGIN 133 ARPACMD 126 PROMPTFORWORD 123 CONCAT 96 ARPACMD 89 \DECRYPT.PWD 55 ARPACMD 43 LOGIN 33 NCHARS 25 NCHARS 17 \INTERNAL/GETPASSWORD 3 \TCPFTP.GET.OSTYPE) (220 UNIX 7 FDEV) ( 216 "USER" 194 (230 202 530) 183 "Account for logging into " 179 "ACCT" 130 (230 202 530) 119 "Account for logging into " 115 "ACCT" 93 (230 331 332 530) 84 "PASS" 52 (202 230 331 332 500 503 530)) \TCPFTP.DELETEFILEA0001 :D4 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TCPFTPCON F 3 NAME F 4 OSTYPE F 5 SI::NLSETQ-VALUE) )i@RoghgST ohc g(31 ARPACMD 24 REPACKFILENAME.STRING 20 PACKFILENAME.STRING) (38 :NORMAL 16 BODY 12 HOST) ( 28 (200 226 250 450 550) 9 "DELE") \TCPFTP.DELETEFILE :D4 (P 6 CODE P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 OSTYPE P 0 TCPFTPCON I 1 DEVICE I 0 NAME F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS*) JA A `WioWK gð´JH NlúðªNlâð¥NlÈð´@(54 \TCPFTP.RELEASE.CONNECTION 37 \TCPFTP.DELETEFILEA0001 10 \TCPFTP.GET.OSTYPE 3 \GET.TCPFTP.CONNECTION) (41 :NORMAL 19 SI::NLSETQ-PROCEED-CASE) ( 27 (CL:ERROR . SI::NLSETQHANDLER)) \TCPFTP.DIRECTORYNAMEPA0001A0002 :D4 (I 0 TCPFTPCON F 0 RESETSTATE) +@ P´$@ •@ ¿@h@ –@ ¿@h(34 CLOSEF 27 OPENP 17 CLOSEF 11 OPENP 3 \TCPFTP.RELEASE.CONNECTION) NIL () \TCPFTP.DIRECTORYNAMEPA0001 :D4 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TCPFTPCON F 1 SI::*RESETFORMS* F 2 DEVICE F 3 HOST/DIR) gPhhdQcRPSg (26 \TCPFTP.CONNECT 23 FILENAMEFIELD) (20 DIRECTORY 2 \TCPFTP.DIRECTORYNAMEPA0001A0002) () \TCPFTP.DIRECTORYNAMEP :D4 (P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 TCPFTPCON I 1 DEVICE I 0 HOST/DIR F 3 LISPXHIST) A Sg ¿ (26 CL:VALUES-LIST 22 SI::RESETUNWIND 19 \MVLIST 16 \TCPFTP.DIRECTORYNAMEPA0001 3 \GET.TCPFTP.CONNECTION) (13 SI::RESETUNWIND) () \TCPFTP.ENDOFSTREAMOP :D4 (I 1 SILENTLY I 0 STREAM) @ Aµ@ (10 \EOSERROR 3 \TCPFTP.TRANSFER.COMPLETE) NIL () \TCPFTP.GENERATEFILESA0001 :D4 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 PATTERN F 3 OSTYPE F 4 TCPFTPCON F 5 SI::NLSETQ-VALUE) ºi@ToSdgð²|¿Rg gð²¿dg<¿dg:¿dg8¿dg6¿dg4¿dg2¿dg0¿dg(¿dg¿dg¿dg¿dg¿dg ¿ (161 \DEFINEDEVICE) (155 NILL 148 \GENERIC.RENAMEFILE 141 NILL 134 NILL 127 NILL 120 NILL 113 \GENERIC.READCHAR 106 \GENERIC.WRITECHAR 99 \GENERIC.PEEKCHAR 92 \GENERIC.UNREADCHAR 85 \GENERIC.READP 78 \ILLEGAL.DEVICEOP 71 \GENERIC.BINS 64 \GENERIC.BOUTS 57 NILL 50 \GENERIC.CHARSET 43 \ILLEGAL.DEVICEOP 36 \IS.NOT.RANDACCESSP 29 \IS.NOT.RANDACCESSP 22 \TCPFTP.EVENTFN 15 \TCPFTP.HOSTNAMEP 8 TCPFTP 3 |FDEVTYPE#|) () \TCP.BYEA0001 :D4 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TCPFTPCON F 3 SI::NLSETQ-VALUE) i@Rohohcg(17 ARPACMD) (24 :NORMAL) ( 14 (221 500) 9 "QUIT") \TCP.BYE :D4 (P 8 *CONDITION-HANDLER-BINDINGS* P 7 SI::*NLSETQFLAG* P 6 *PROCEED-CASES* P 5 SI::NLSETQ-VALUE P 4 INSTREAM P 3 TCPFTPCON P 1 CONNECTIONS P 0 DEVICE I 0 HOST F 9 *PROCEED-CASES* F 10 *CONDITION-HANDLER-BINDINGS*) m @hiHd”ÉY!JµHhh[\¿Lg ˜L “L °ð`WioWN K ¿L ¿K ¿JZ°¬(101 CLOSEF? 94 CLOSEF? 89 CLOSEF? 80 \TCP.BYEA0001 51 READP 46 OPENP 5 \GETDEVICEFROMNAME) (62 SI::NLSETQ-PROCEED-CASE 43 INPUT 29 FDEV 14 FDEV) ( 70 (CL:ERROR . SI::NLSETQHANDLER)) \TCPFTP.MAYBE.ABORT :D4 (P 1 TCPOUTSTREAM P 0 TCPFTPCON I 0 DATASTREAM) Q@ÉH¹@gh@É³3@g ´+@ Ilô Ilò I Hohoh(76 ARPACMD 63 TCP.URGENT.MARK 59 BOUT 53 BOUT 47 BLOCK 44 TCP.CLOSE.SENDER 41 TCP.OTHER.STREAM 35 OPENP 20 STREAMPROP) (32 INPUT 24 STREAM 16 BEFORECLOSE 3 STREAM) ( 73 (226 426 250) 68 "ABOR") \TCPFTP.DATA.CLOSED :D4 (P 0 STREAM I 1 OUTSTREAM I 0 INSTREAM) @µAHh (11 \SETACCESS) NIL () \TCPFTP.OPEN.DATA.CONNECTIONA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 3 STREAM P 2 PORT P 1 I I 0 SI::*CLEANUP-FORMS* F 4 TCPFTPCON F 5 EVENT F 6 ACCESS F 7 FOR.FILE.TRANSFER) a`hglk"IHó³8ºToJ o¿hdJgVhW´o [”TK‰IkÔY°ÈThUÃ”U ¿T(89 NOTIFY.EVENT 61 TCP.OPEN 40 ARPACMD 33 \TCPFTP.PORT.STRING 23 \TCP.SELECT.PORT 9 OBTAIN.MONITORLOCK) (84 EVENT 47 PASSIVE 6 WITH.MONITOR 2 \TCPFTP.DATACONNECTION.LOCK) ( 57 (MAXSEG 512 WHENCLOSEDFN \TCPFTP.DATA.CLOSED) 37 (200) 29 "PORT") \TCPFTP.OPEN.DATA.CONNECTION :D4 (P 1 SI::*RESETFORMS* P 0 SI::*LOCKED-MONITOR* I 3 FOR.FILE.TRANSFER I 2 EVENT I 1 ACCESS I 0 TCPFTPCON) g ¿ (18 CL:VALUES-LIST 14 SI::MONITOR-UNWIND 11 \MVLIST 8 \TCPFTP.OPEN.DATA.CONNECTIONA0001) (5 SI::MONITOR-UNWIND) () \TCPFTP.PORT.STRING :D4 (P 0 IPADDRESS I 0 PORT) LHl lÿåoHl lÿåoHl lÿåoHlÿåo@l lÿåo@lÿå (73 CONCAT 58 RSH 37 RSH 24 RSH 11 RSH 2 \LOCAL.IP.ADDRESS) NIL ( 65 "," 52 "," 44 "," 31 "," 18 ",") \TCPFTP.SPAWN.DATACONNECTIONA0001 :D4 (I 2 OUTSTREAM I 1 INSTREAM I 0 PROCESS) @ h(3 DEL.PROCESS) NIL () \TCPFTP.SPAWN.DATACONNECTION :D4 (P 0 EVENT I 2 FOR.FILE.TRANSFER I 1 ACCESS I 0 TCPFTPCON F 2 SI::*RESETFORMS*) >gg@hgAhHBh ¹gI@@hhdRcIH(33 ADD.PROCESS 2 CREATE.EVENT) (37 \TCPFTP.SPAWN.DATACONNECTIONA0001 18 QUOTE 11 QUOTE 8 \TCPFTP.OPEN.DATA.CONNECTION) () \TCPFTP.TRANSFER.COMPLETE :D4 (P 0 TCPFTPCON I 0 DATASTREAM) S@É@ghH´?@É³6@g —@ ¿Hhdo@i@h@hH h(78 \TCPFTP.RELEASE.CONNECTION 53 ARPACMD 42 TCP.CLOSE.SENDER 39 TCP.OTHER.STREAM 34 OPENP 16 STREAMPROP) (71 STREAM 64 STREAM 57 STREAM 31 INPUT 23 STREAM 12 AFTERCLOSE 3 STREAM) ( 50 (226 426 250)) \TCPFTP.WAIT.FOR.DATACONNECTION :D4 (P 0 STREAM I 3 ACCESS I 2 PROCESS.AND.EVENT I 1 TCPFTPCON I 0 DEVICE) #Bo AXdC ´ H@H(22 OPENP 11 AWAIT.EVENT) (28 STREAM) ( 8 120000) \TCPFTP.DELETE.CONNECTIONA0001 :D4 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TCPFTPCON F 3 SI::NLSETQ-VALUE) i@Rohohcg(17 ARPACMD) (24 :NORMAL) ( 14 (221 500) 9 "BYE") \TCPFTP.DELETE.CONNECTION :D4 (P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 0 INSTREAM I 2 SENDBYE I 1 DEVICE I 0 TCPFTPCON F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) H@B²`VioWK HµA@AÉ YIÉÉR ¿°ß(67 DEL.PROCESS 49 DREMOVE 30 \TCPFTP.DELETE.CONNECTIONA0001) (62 TCP.CONTROL.BLOCK 57 STREAM 44 FDEV 39 FDEV 13 SI::NLSETQ-PROCEED-CASE) ( 20 (CL:ERROR . SI::NLSETQHANDLER)) (PRETTYCOMPRINT TCPFTPCOMS) (RPAQQ TCPFTPCOMS ((COMS (* ;; "FNS from Larry's Interlisp-10 LISPUSERS package") (FNS ARPACMD FTPHELP CMDREADCODE CMDREAD DISCARDLINE GETLINE \TCPFTP.INPUT TELNET.EOL) (INITVARS (\TCPFTP.ARPACMD.LOCK ( CREATE.MONITORLOCK "ARPACMD Lock"))) (GLOBALVARS \TCPFTP.ARPACMD.LOCK) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA FTPHELP)))) (COMS (* ;; "FNS for the Interlisp-D streams facility") (FNS \TCPFTP.CONTROL.CLOSED \TCPFTP.GET.OSTYPE \TCPFTP.EVENTFN \TCPFTP.HOSTNAMEP \GET.TCPFTP.CONNECTION \TCPFTP.OPEN.CONNECTION \TCPFTP.ASSURE.CLEANUP \TCPFTP.CLEANUP \TCPFTP.RELEASE.CONNECTION \TCPFTP.LOGIN \TCPFTP.DELETEFILE \TCPFTP.DIRECTORYNAMEP \TCPFTP.ENDOFSTREAMOP \TCPFTP.GENERATEFILES \TCPFTP.GENERATENEXTFILE \TCPFTP.GETFILENAME \TCPFTP.GETFILEINFO \TCPFTP.SETFILEINFO \TCPFTP.RENAMEFILE \TCPFTP.CONNECT \TCPFTP.OPENFILE \TCPFTP.CLOSE \TCPFTP.FLUSH \TCPFTP.INIT) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT ( RECORDS TCPDATASTREAM TCPFTPCON))) (ADDVARS (TCPFTP.DEFAULT.FILETYPES (NIL . TEXT) (DCOM . BINARY) ( dcom . BINARY) (LISP . TEXT) (lisp . TEXT) (LSP . TEXT) (lsp . TEXT) (RST . BINARY) (rst . BINARY) ( BIN . BINARY) (bin . BINARY))) (INITVARS (TCP.DEFAULTFILETYPE (QUOTE BINARY)) (TCP.USE.STANDARD.EOL T) (\TCPFTP.DEVICES) (\TCPFTP.CLEANUP.PROCESS)) (GLOBALVARS \TCPFTP.DEVICES \TCPFTP.CLEANUP.PROCESS TCP.DEFAULTFILETYPE TCP.USE.STANDARD.EOL)) (COMS (* ;; "Data connection handling") (FNS \TCP.BYE \TCPFTP.MAYBE.ABORT \TCPFTP.DATA.CLOSED \TCPFTP.OPEN.DATA.CONNECTION \TCPFTP.PORT.STRING \TCPFTP.SPAWN.DATACONNECTION \TCPFTP.TRANSFER.COMPLETE \TCPFTP.WAIT.FOR.DATACONNECTION \TCPFTP.DELETE.CONNECTION) (INITVARS (\TCPFTP.DATACONNECTION.LOCK (CREATE.MONITORLOCK "TCPFTP Data Connection Lock")) (\TCPFTP.CONNECTION.LOCK (CREATE.MONITORLOCK "TCPFTP Connection Lock") ) (\TCPFTP.IDLE.TIMEOUT (TIMES 10 60 1000))) (GLOBALVARS \TCPFTP.DATACONNECTION.LOCK \TCPFTP.CONNECTION.LOCK \TCPFTP.IDLE.TIMEOUT)) (FILES (SYSLOAD) TCPNAMES TCP) (P (\TCPFTP.INIT)) ( DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (RPAQ? \TCPFTP.ARPACMD.LOCK (CREATE.MONITORLOCK "ARPACMD Lock")) (ADDTOVAR TCPFTP.DEFAULT.FILETYPES (NIL . TEXT) (DCOM . BINARY) (dcom . BINARY) (LISP . TEXT) (lisp . TEXT) (LSP . TEXT) (lsp . TEXT) (RST . BINARY) (rst . BINARY) (BIN . BINARY) (bin . BINARY)) (RPAQ? TCP.DEFAULTFILETYPE (QUOTE BINARY)) (RPAQ? TCP.USE.STANDARD.EOL T) (RPAQ? \TCPFTP.DEVICES) (RPAQ? \TCPFTP.CLEANUP.PROCESS) (RPAQ? \TCPFTP.DATACONNECTION.LOCK (CREATE.MONITORLOCK "TCPFTP Data Connection Lock")) (RPAQ? \TCPFTP.CONNECTION.LOCK (CREATE.MONITORLOCK "TCPFTP Connection Lock")) (RPAQ? \TCPFTP.IDLE.TIMEOUT (TIMES 10 60 1000)) (FILESLOAD (SYSLOAD) TCPNAMES TCP) (\TCPFTP.INIT) (PUTPROPS TCPFTP COPYRIGHT ("Xerox Corporation" 1985 1986 1900 1987)) NIL