(FILECREATED "28-Aug-84 22:58:30" ("compiled on " {ERIS}SOURCES>DPUPFTP.;9) "22-Aug-84 00:15:43" recompiled changes: \FTPINIT \FTP.OPENFILE.FROM.PLIST \FTP.CLOSEFILE \FTP.EOFP \FTP.FIX.BROKEN.INPUT FTPPRINTMARK in "" dated "22-Aug-84 00:45:52") (FILECREATED "28-Aug-84 22:53:36" {ERIS}SOURCES>DPUPFTP.;9 52363 changes to: (FNS \FTP.FIX.BROKEN.INPUT \FTP.OPENFILE.FROM.PLIST \FTP.CLOSEFILE \FTPINIT \FTP.EOFP FTPPRINTMARK) (VARS DPUPFTPCOMS) previous date: "14-Aug-84 12:43:08" {ERIS}SOURCES>DPUPFTP.;5) \FTPINIT D1 NIL ``{`` dg`g`g`g`g`g `g0`g.`g:`g`g `g4i(22Q NCREATE2) (202Q \FTPAVAILABLE 174Q \FTP.EOFP 171Q \FTPFDEV 163Q \FTP.GENERATEFILES 160Q \FTPFDEV 152Q \FTP.DELETEFILE 147Q \FTPFDEV 141Q \FTP.RENAMEFILE 136Q \FTPFDEV 130Q \FTP.SETFILEPTR 125Q \FTPFDEV 117Q \FTP.GETFILEPTR 114Q \FTPFDEV 106Q \FTP.GETFILEINFO 103Q \FTPFDEV 75Q \FTP.GETFILENAME 72Q \FTPFDEV 64Q \FTP.DIRECTORYNAMEP 61Q \FTPFDEV 53Q \FTP.CLOSEFILE 50Q \FTPFDEV 42Q \FTP.OPENFILE 37Q \FTPFDEV 31Q DPUPFTP 25Q \FTPFDEV 17Q \BSPFDEV 14Q FDEVTYPE# 6 FDEVTYPE# 2 \BSPFDEV) () \FTP.OPENFILEA0512 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 PAIR P 4 EOLCONVENTION P 3 BYTESIZE P 2 TYPE P 1 DESIREDPLIST P 0 HOST F 6 ACCESS F 7 RECOG F 10Q FILENAME F 11Q RESETY F 12Q OTHERINFO) fPVdgWggWgiWl W Xd0HVgW/dM$MdgUMZgJdg7iMIJg`ZhIJggLghMl dgMdMl hdgdg*MdgdgdgM\Ml hrdggMhIhZdg!gMdMl hIh4g+h(JggKlhIHIV ci(537Q \FTP.OPENFILE.FROM.PLIST 457Q \LISPERROR 366Q \LISPERROR 302Q \LISPERROR 247Q \LISPERROR 54Q \FTP.UNPACKFILENAME 46Q \LISPERROR) (516Q BYTE-SIZE 511Q BINARY 474Q SEQUENTIAL 436Q SIZE 427Q LENGTH 406Q CREATION-DATE 377Q CREATIONDATE 347Q TRANSPARENT 341Q CRLF 333Q CR 320Q EOLCONVENTION 312Q EOL 255Q BYTESIZE 232Q CR 220Q END-OF-LINE-CONVENTION 210Q TEXT 175Q DEFAULTFILETYPE 172Q TYPE 145Q BINARY 136Q TEXT 123Q TYPE 73Q OUTPUT 33Q OLD 24Q OUTPUT 17Q NEW 7 INPUT) () \FTP.OPENFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILENAME F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \FTP.OPENFILEA0512) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \FTP.OPENFILE.FROM.PLIST D1 (P 4 FULLNAME P 3 REMOTEPLIST P 2 OUTS P 1 INS P 0 CONNECTION I 2 ACCESS I 1 DESIREDPLIST I 0 HOST) LP@i Xd?HJBdgkgl JA Jl I dlHA Ig H hdl I @K I lH lH BdgJl Jj Jl I dl$HAhdi In DH Ll dl0ILIKIg IK IjIjI`IlH g8Jg Jl JLJKJjJjJA J`J(476Q \FTP.EOL.FROM.PLIST 444Q FTPPUTMARK 432Q BSPOPENP 414Q \FTPERROR 353Q \FTP.EOL.FROM.PLIST 345Q \SETACCESS 314Q \LISPERROR 305Q \RELEASE.FTPCONNECTION 275Q CLOSEBSPSTREAM 265Q \FTP.HANDLE.NO 245Q FTPGETMARK 240Q FTPPUTMARK 231Q FTPPUTCODE 223Q FTPPUTMARK 201Q \FTPERROR 167Q \FTPERROR 157Q FTPGETMARK 152Q \FTP.PACKFILENAME 144Q READPLIST 127Q \RELEASE.FTPCONNECTION 117Q BSPOPENP 107Q \FTP.HANDLE.NO 73Q FTPGETMARK 66Q FTPPUTMARK 57Q \FTP.PRINTPLIST 51Q FTPPUTMARK 7 \GETFTPCONNECTION) (506Q \FTPFDEV 427Q OUTPUT 420Q OUTPUT 375Q \FTPFDEV 342Q INPUT 207Q INPUT 114Q INPUT 41Q OUTPUT 31Q INPUT) () \FTP.GETFILEPTR D1 (I 0 STREAM) @@@@jNIL NIL () \FTP.SETFILEPTR D1 (P 0 SKIPBYTES I 1 INDX I 0 STREAM) @jA@ X@H @ (32Q \IS.NOT.RANDACCESSP 25Q \BSP.SKIPBYTES 14Q \FTP.GETFILEPTR) NIL () \FTP.GETFILENAME D1 (I 2 DEV I 1 RECOG I 0 NAME) @B (4 \FTP.RECOGNIZEFILE) NIL () \FTP.RECOGNIZEFILEA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 6 RESULT P 5 DESIREDPLIST P 4 REMOTEPLIST P 3 OUTS P 2 INS P 1 HOST P 0 CONNECTION F 11Q OPTION F 12Q CODE F 13Q FTPDEBUGLOG F 14Q NAME F 15Q RESETY) D W Yd|IWdgsgM ogghM]Ii XdIHKl KM Kl J dlJi cdl @J`W H Nciddg𲣿od_gOhMl@J`W WgHM ^HMhWhi Jg O[dl DJ WdgLgHL IL J4_JkOJ lUH TlH F(477Q \FTPERROR 461Q \FTPERROR 446Q FTPGETMARK 423Q \FTP.PACKFILENAME 415Q \FTP.PACK.DIRECTORYNAMEP 367Q READPLIST 345Q BSPOPENP 334Q \FTP.HANDLE.NO 316Q \FTP.PACK.DIRECTORYNAMEP 300Q \FTP.FLUSH.TO.EOC 203Q \RELEASE.FTPCONNECTION 176Q \FTP.FLUSH.TO.EOC 152Q FTPGETCODE 134Q FTPGETMARK 127Q FTPPUTMARK 120Q \FTP.PRINTPLIST 112Q FTPPUTMARK 72Q \GETFTPCONNECTION 41Q ASSOC 7 \FTP.UNPACKFILENAME) (406Q DIRECTORYNAMEP 376Q PROPS 342Q INPUT 306Q DIRECTORYNAMEP 271Q FTPDEBUGFLG 242Q DESIRED-PROPERTY 220Q NAME 167Q FTPDEBUGFLG 56Q DIRECTORY 53Q DESIRED-PROPERTY 35Q NAME-BODY 26Q DIRECTORYNAMEP) ( 230Q (DIRECTORY NAME-BODY VERSION) 46Q "QXZYQJ") \FTP.RECOGNIZEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 OPTION I 1 DEV I 0 NAME F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \FTP.RECOGNIZEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \FTP.DIRECTORYNAMEP D1 (I 1 DEV I 0 HOST/DIR) @Ag (7 \FTP.RECOGNIZEFILE) (4 DIRECTORYNAMEP) () \FTP.CLOSEFILE D1 (P 6 SUCCESS P 5 INS P 4 FILENAME P 3 CONN P 2 ACCESS I 0 STREAM F 11Q FTPDEBUGLOG) ? @ `Hmh@C@hJdg@J @4_@kO!@ @J @4_@kO@ dl-@ @`W :Yd@@IiHX}l@i @`g o ^ogh@ ]@l @j @l M dlM M`W ^$l Mi M`g lDLl oL N@`K KLn (472Q CLOSEBSPSTREAM 454Q \RELEASE.FTPCONNECTION 436Q ERROR 425Q \LISPERROR 412Q \FTP.FLUSH.TO.EOC 407Q \GETSTREAM 375Q FTPGETCODE 360Q \FTP.FLUSH.TO.EOC 344Q FTPGETCODE 331Q FTPGETMARK 324Q FTPPUTMARK 315Q FTPPUTCODE 307Q FTPPUTMARK 257Q ERROR 250Q \FTP.FLUSH.TO.EOC 245Q \GETSTREAM 232Q FTPGETCODE 166Q \FTP.FLUSH.TO.EOC 152Q FTPGETCODE 137Q FTPGETMARK 106Q BSPOPENP 100Q \BSP.FLUSHINPUT 51Q BSPOPENP 3 \GETACCESS) (445Q \BSPFDEV 404Q OUTPUT 401Q PROMPTWINDOW 351Q FTPDEBUGFLG 266Q OUTPUT 242Q OUTPUT 237Q PROMPTWINDOW 157Q FTPDEBUGFLG 36Q INPUT 6 \FTPCONNECTIONS) ( 432Q "CLOSEF: Remote file not successfully stored" 254Q "CLOSEF: Remote file not successfully retrieved") \FTP.EOFP D1 (I 0 STREAM) @ @(3 BSPEOFP) NIL () \FTP.RENAMEFILEA0518 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 6 NEWPLIST P 5 OLDPLIST P 4 OUTS P 3 INS P 2 OLDNAME P 1 HOST P 0 CONNECTION F 7 NEWFILE F 10Q OLDFILE F 11Q FTPDEBUGLOG F 12Q RESETY) pW YdIW ddIhyI Ii XdiHLl LM LN Ll K dlHM 2Kg dlK K`W WlH H ci(233Q \RELEASE.FTPCONNECTION 227Q \FTPERROR 211Q \FTP.FLUSH.TO.EOC 175Q FTPGETCODE 156Q BSPOPENP 145Q \FTP.HANDLE.NO 131Q FTPGETMARK 124Q FTPPUTMARK 115Q \FTP.PRINTPLIST 107Q \FTP.PRINTPLIST 101Q FTPPUTMARK 61Q \GETFTPCONNECTION 53Q CLEAR.LEAF.CACHE 27Q \FTP.UNPACKFILENAME 7 \FTP.UNPACKFILENAME) (202Q FTPDEBUGFLG 153Q INPUT) () \FTP.RENAMEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 NEWFILE I 0 OLDFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \FTP.RENAMEFILEA0518) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \FTP.DELETEFILEA0519 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 7 RESULT P 6 DESIREDPLIST P 5 REMOTEPLIST P 4 OUTS P 3 INS P 2 REMOTENAME P 1 HOST P 0 CONNECTION F 11Q FILENAME F 12Q RESETY)  W YdIod_gOhNI Ii XdHLl LN Ll K dlHN Kg ðH hZdl IK K lH Ll Lj Ll K dl(HNhdi 6Kn llfH cilK K IM O_K dl lH Od (415Q REVERSE 404Q \RELEASE.FTPCONNECTION 365Q FTPGETMARK 353Q \FTP.PACKFILENAME 345Q \FTP.FLUSH.TO.MARK 340Q FTPGETCODE 322Q \FTPERROR 304Q CLOSEBSPSTREAM 273Q \FTP.HANDLE.NO 253Q FTPGETMARK 246Q FTPPUTMARK 237Q FTPPUTCODE 231Q FTPPUTMARK 222Q \FTPERROR 212Q FTPGETMARK 205Q READPLIST 166Q \RELEASE.FTPCONNECTION 156Q BSPOPENP 146Q \FTP.HANDLE.NO 132Q FTPGETMARK 125Q FTPPUTMARK 116Q \FTP.PRINTPLIST 110Q FTPPUTMARK 66Q \GETFTPCONNECTION 60Q CLEAR.LEAF.CACHE 7 \FTP.UNPACKFILENAME) (153Q INPUT 40Q DESIRED-PROPERTY) ( 26Q (DIRECTORY NAME-BODY VERSION)) \FTP.DELETEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 FILENAME F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \FTP.DELETEFILEA0519) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \FTP.GENERATEFILESA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 24Q TAIL P 20Q FILTERNEEDED P 17Q INFO P 16Q OSTYPE P 15Q NAMEBODY P 14Q DIRECTORY P 13Q NAME P 12Q WANTDEVICE P 11Q DEVICE P 10Q EXTENSION P 7 VERSION P 6 CODE P 5 DESIREDPLIST P 4 OUTS P 3 INS P 2 REMOTENAME P 1 HOST P 0 CONNECTION F 33Q PATTERN F 34Q DESIREDPROPS F 35Q RESETY) @W6 O&_(bIg _gOdg޿gO O kg__ OOdOgZj_S dji_ dgO( ^dgO(_NdgO(_>dgO(o_(dgO( _g=O(_i_O(&k]gO Qg__ FgOj_i_OOdgZOOg_z dk*O l*h_Om)l*Og __ jh_gO _ g/Om)l/Okm _Ok)l/gO O _00W8vd_"dggQggGO"gO"dgg2gO"dgggO"dggggO"_0O2 O0h_4O0&_2O4o $d_$gO$h_*O, O*h_.O*&_,O.O OO ggOhMOoO _gOgO OhMOgOhMOgghMOgOhMgI _hgOhMIi XzHLl LM Ll K dlHMhN Kg °H ;dl ,Hl `ggHhiO W6 hlH ghhc:i(1565Q \FTPERROR 1545Q DIRECTORY.MATCH.SETUP 1515Q \CLOCK0 1472Q \RELEASE.FTPCONNECTION 1462Q BSPOPENP 1452Q \FTP.HANDLE.NO 1434Q FTPGETMARK 1427Q FTPPUTMARK 1420Q \FTP.PRINTPLIST 1412Q FTPPUTMARK 1371Q \GETFTPCONNECTION 1341Q \INTERNAL/GETPASSWORD 1245Q L-CASE 1223Q CONCAT 1076Q \NCONC2 660Q L-CASE 652Q CONCAT 627Q SUBSTRING 573Q STRPOS 544Q CONCAT 511Q CHCON1 476Q NCHARS 372Q STRPOS 315Q MKATOM 206Q \CANONICAL.HOSTNAME 203Q MKATOM 146Q NCHARS 75Q NCHARS 67Q STRPOS 34Q GETHOSTINFO 12Q UNPACKFILENAME.STRING) (1571Q NILL 1531Q \FTP.FILEINFOFN 1526Q \FTP.NEXTFILE 1520Q \FTP.IDLE.TIMEOUT 1457Q INPUT 1352Q USER-PASSWORD 1335Q USER-NAME 1322Q DEVICE 1306Q DEVICE 1303Q DESIRED-PROPERTY 1264Q DIRECTORY 1236Q UNIX 1231Q NAME-BODY 1176Q VERSION 1170Q * 1110Q DESIRED-PROPERTY 1031Q END-OF-LINE-CONVENTION 1024Q EOLCONVENTION 1020Q READ-DATE 1012Q IREADDATE 1002Q READDATE 775Q WRITE-DATE 767Q IWRITEDATE 757Q WRITEDATE 752Q CREATION-DATE 744Q ICREATIONDATE 734Q CREATIONDATE 725Q SIZE 720Q LENGTH 713Q BYTE-SIZE 705Q BYTESIZE 645Q / 603Q UNIX 566Q * 541Q * 466Q H 445Q IFS 414Q TOPS20 401Q * 365Q * 325Q DEVICE 303Q VERSION 255Q EXTENSION 235Q NAME 215Q DIRECTORY 171Q HOST 127Q TENEX 103Q * 62Q * 51Q VMS 41Q TENEX 31Q OSTYPE) ( 1216Q "." 1073Q (DIRECTORY NAME-BODY VERSION) 272Q "") \FTP.GENERATEFILESA0002 D1 (I 0 CONNECTION F 0 RESETSTATE) P@j (10Q CLOSEBSPSTREAM) NIL () \FTP.GENERATEFILES D1 (P 3 RESULT P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 DEVICE F 4 RESETVARSLST F 5 LISPXHIST) YU!Tog hgZ JIKd0d+CgCgCgKhhhTcK(125Q \FTP.ASSURE.CLEANUP 36Q ERROR! 30Q RESETRESTORE 16Q \FTP.GENERATEFILESA0001) (102Q \FTP.GENERATEFILESA0002 73Q RESETLST 62Q RESETLST 24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) \FTP.NEXTFILE D1 (P 7 PLIST P 6 N P 5 EXT P 4 NAME P 3 NAMEBODY P 2 INS P 1 FILTER P 0 FTPCONNECTION I 1 NAMEONLY I 0 GENSTATE) @@ H o@ ZWH_lOl `J4_JkOJ dlH @hhdl !J _"Jg oH hlH AgO oHOi@ IIL i@OH_lOl `L` oO (344Q HELP 316Q \CLOCK0 257Q DIRECTORY.MATCH 247Q \FTP.PACKFILENAME 220Q ASSOC 204Q \FTPERROR 171Q ERROR 154Q BSPOPENP 141Q READPLIST 120Q \RELEASE.FTPCONNECTION 106Q FTPGETMARK 56Q \CLOCK0 24Q ERROR) (331Q FTPDEBUGFLG 321Q \FTP.IDLE.TIMEOUT 213Q NAME-BODY 151Q INPUT 61Q \FTP.IDLE.TIMEOUT) ( 337Q "Uninterpretable filename returned by ENUMERATE" 230Q "" 162Q "File server broke connection before directory enumeration finished. RETURN() to terminate enumeration." 20Q "End of file Enumerator") \FTP.FILEINFOFN D1 (I 1 ATTRIBUTE I 0 GENSTATE) @A (6 \FTP.GETFILEINFO.FROM.PROPS) NIL () \FTP.GETFILEINFO D1 (I 2 DEV I 1 ATTRIBUTE I 0 STREAM) @d`Bg A (25Q \FTP.GETFILEINFO.FROM.PROPS 21Q \FTP.RECOGNIZEFILE) (16Q PROPS 5 STREAMTYPE#) () \FTP.GETFILEINFO.FROM.PROPS D1 (P 0 TMP I 1 ATTRIBUTE I 0 PROPS) Adgg@ gg@ Adgg@ gg@  Adgg@  gg@  Adgg@  g#g@ Xd Xd HnAdg@  gg@  A@ (325Q ASSOC 317Q MKATOM 312Q ASSOC 275Q MKATOM 272Q U-CASE 265Q ASSOC 231Q MKATOM 220Q ASSOC 202Q MKATOM 175Q ASSOC 155Q IDATE 150Q ASSOC 133Q IDATE 126Q ASSOC 106Q IDATE 101Q ASSOC 62Q ASSOC 40Q ASSOC 21Q ASSOC) (306Q BYTE-SIZE 301Q BYTESIZE 257Q TYPE 214Q SIZE 206Q SIZE 171Q SIZE 163Q LENGTH 144Q READ-DATE 137Q IREADDATE 122Q WRITE-DATE 114Q IWRITEDATE 75Q CREATION-DATE 70Q ICREATIONDATE 56Q READ-DATE 50Q READDATE 34Q WRITE-DATE 27Q WRITEDATE 15Q CREATION-DATE 7 CREATIONDATE) () \FTP.OPEN.CONNECTION D1 (P 1 INSTREAM P 0 PORT I 1 ECHOSTREAM I 0 HOST) d@` HdPHdjlhghdgo Yd.dd @l@H ihhYdA I`II (141Q CLOSEBSPSTREAM 121Q \FTP.SENDVERSION 103Q \CANONICAL.HOSTNAME 100Q ETHERHOSTNAME 64Q BSPOUTPUTSTREAM 53Q OPENBSPSTREAM 6 BESTPUPADDRESS) (132Q \FTPCONNECTIONS 126Q \FTPCONNECTIONS 43Q \FTP.WHENCLOSED 36Q \FTP.ERRORHANDLER 3 PROMPTWINDOW) ( 47Q "Can't open FTP connection") \FTP.SENDVERSION D1 (P 1 OUTS P 0 INS I 1 ECHOSTREAM I 0 CONNECTION) 7@@Il Ik oI Il H l H kHA (64Q \FTP.FLUSH.TO.EOC 44Q FTPGETMARK 40Q FTPPUTMARK 32Q PRIN3 22Q BOUT 15Q FTPPUTMARK) NIL ( 26Q "Interlisp-D Ftp user") \FTP.WHENCLOSED D1 (P 2 CONN I 0 INSTREAM F 3 FTPDEBUGLOG) Z`H@hJd6` `'S oS JS oS S hY@IiHX(105Q TERPRI 100Q PRIN1 67Q PRIN1 56Q PRIN1 45Q TERPRI 30Q DREMOVE) (37Q FTPDEBUGFLG 33Q \FTPCONNECTIONS 25Q \FTPCONNECTIONS 2 \FTPCONNECTIONS) ( 74Q " closed}" 52Q "{FTP Connection with ") \GETFTPCONNECTION D1 (P 3 CONN P 1 CONNECTION P 0 H I 1 UNWINDSAVE I 0 HOST F 4 RESETVARSLST F 5 FTPDEBUGLOG) y@dl `J$h @`U YAoIhTcI[H0K)Kg KiKg Kg KJZ(156Q \SETACCESS 144Q \SETACCESS 123Q BSPOPENP 47Q \FTP.OPEN.CONNECTION 14Q \CANONICAL.HOSTNAME 11Q ETHERHOSTNAME) (153Q OUTPUT 141Q INPUT 120Q OUTPUT 41Q FTPDEBUGFLG 22Q \FTPCONNECTIONS) ( 60Q (AND RESETSTATE (CLOSEBSPSTREAM OLDVALUE 0))) \RELEASE.FTPCONNECTION D1 (L (0 CONN)) @hNIL NIL () \FTP.ERRORHANDLER D1 (P 1 TMP P 0 OUTSTREAM I 1 ERRCODE I 0 INSTREAM) 0Adg@C@"@kJg@ XdkgoH Adg@@ g Ymhi g@g llA@d@ XH@ Xdi (217Q ERROR 214Q ETHERHOSTNAME 171Q BSPOUTPUTSTREAM 145Q BSPOPENP 130Q RETFROM 115Q STKPOS 106Q \FTP.FIX.BROKEN.INPUT 64Q ERROR 42Q BSPOUTPUTSTREAM) (142Q INPUT 134Q BAD.GETMARK 112Q READPLIST 72Q BAD.STATE.FOR.BIN 33Q BAD.STATE.FOR.BOUT 7 MARK.ENCOUNTERED) ( 56Q "File server has broken connection") \FTP.FIX.BROKEN.INPUT D1 (P 11Q CONN P 3 NEWSTREAM P 2 POS P 1 PROPS P 0 FULLNAME I 0 INSTREAM)  @@@ ` o` H` o` J` g` Hg IAL,M g [ oH h@ ` OGa_dgdgdgdgdgihO_N Oh^L\O&_dKO_@O@ @j@j` o` @J o` i(407Q PRIN1 374Q SETFILEPTR 366Q PRIN1 353Q TERPRI 330Q BSPOUTPUTSTREAM 155Q \SMASHBSPSTREAM 147Q ERROR 134Q \FTP.OPENFILE.FROM.PLIST 126Q \FTP.ADD.USERINFO 111Q FILENAMEFIELD 102Q PRIN1 70Q PRIN2 60Q PRIN1 45Q PRIN1 35Q PRIN1 22Q TERPRI 11Q GETFILEPTR) (404Q PROMPTWINDOW 363Q PROMPTWINDOW 350Q PROMPTWINDOW 235Q SERVER-FILENAME 227Q DEVICE 221Q DIRECTORY 212Q VERSION 203Q NAME-BODY 161Q \FTPCONNECTIONS 131Q INPUT 106Q HOST 77Q PROMPTWINDOW 74Q ... 65Q PROMPTWINDOW 55Q PROMPTWINDOW 42Q PROMPTWINDOW 32Q PROMPTWINDOW 17Q PROMPTWINDOW) ( 401Q "done." 360Q "Reopening file and restoring fileptr..." 143Q "File server broke connection; unable to reestablish" 52Q " at byte " 27Q "File server broke connection while reading ") \FTP.CLEANUPA0523 D1 (I 0 PROC F 0 CONNS F 1 FAIL) @g Pic(6 PROCESS.EVALV) (3 FTPCONNECTION) () \FTP.CLEANUP D1 (P 3 FAIL P 2 CONNS P 1 INTERVAL P 0 TIMER) ol j`HlHl IHg `ZdH JZJdJg g KJ (152Q CLOSEBSPSTREAM 137Q MAP.PROCESSES 124Q TIMEREXPIRED? 63Q BLOCK 46Q TIMEREXPIRED? 34Q \CLOCK0 5 \CLOCK0) (134Q \FTP.CLEANUPA0523 121Q MILLISECONDS 53Q \FTPCONNECTIONS 43Q MILLISECONDS 12Q \FTP.IDLE.TIMEOUT) () \FTP.ASSURE.CLEANUP D1 NIL g ogg (24Q ADD.PROCESS 5 FIND.PROCESS) (21Q NO 16Q RESTARTABLE 2 \FTP.CLEANUP) ( 13Q (\FTP.CLEANUP)) \FTP.HANDLE.NO D1 (P 5 CNAME P 4 CPASS P 3 INFO P 2 FLUSHER P 1 HOST P 0 INSTREAM I 5 NOERRORFLG I 4 LEAVEMARK I 3 CODE I 2 ECHOSTREAM I 1 BADPLIST I 0 CONNECTION F 10Q FTPDEBUGLOG) @@DggSC Hi bdl@HB `WlJhdlB/gA [eKg\KgHB `WlJidldlA7gA .AggA  hh HB `WlJiB `g b^ IN oN HBlJClCdl6Ii [A!d_dgOKgOKilCdlBIgA \igA ] [pMLAgKhh iKKl Cl Cl Cl CdlE3IA l* 'lDE IA l EIA l h@ h(660Q \FTPERROR 652Q \LISPERROR 645Q \FTP.PACKFILENAME 634Q \LISPERROR 627Q \FTP.PACKFILENAME 611Q \LISPERROR 604Q \FTP.PACKFILENAME 521Q \NCONC2 472Q \INTERNAL/GETPASSWORD 464Q ASSOC 451Q ASSOC 347Q \INTERNAL/GETPASSWORD 311Q PRIN1 300Q PRIN1 272Q TERPRI 264Q GETSTREAM 224Q \NCONC2 214Q \FTP.DIRECTORYNAMEONLY 207Q ASSOC 172Q ASSOC 102Q ASSOC 31Q FTPGETCODE) (507Q CONNECT-PASSWORD 460Q CONNECT-NAME 445Q CONNECT-PASSWORD 406Q USER-PASSWORD 372Q USER-NAME 261Q OUTPUT 256Q PROMPTWINDOW 234Q FTPDEBUGFLG 203Q DIRECTORY 200Q CONNECT-NAME 166Q CONNECT-NAME 134Q FTPDEBUGFLG 123Q CR 113Q CR 76Q END-OF-LINE-CONVENTION 51Q FTPDEBUGFLG 16Q \FTP.FLUSH.TO.EOC 12Q \FTP.FLUSH.TO.MARK) ( 305Q ": ") \FTP.DIRECTORYNAMEONLY D1 (P 0 N I 0 DIRNAME) g@ H@kHk @(23Q SUBATOM 6 STRPOS) (2 >) () \FTP.EOL.FROM.PLIST D1 (L (0 PLIST)) ,@HjdgHXdgkglNIL (44Q CRLF 35Q LF 17Q END-OF-LINE-CONVENTION) () \FTP.MAKEPLIST D1 (I 2 DESIREDPROPS I 1 HOST I 0 FILENAME) OA gHhgHhg@hBAIJIhIIgMhK Lh[L&(3 \INTERNAL/GETPASSWORD) (71Q DESIRED-PROPERTY 31Q SERVER-FILENAME 21Q USER-PASSWORD 11Q USER-NAME) () \FTP.PRINTPLIST D1 (P 5 CH P 4 ISPASSWORD P 3 ITEM P 2 BEFORE P 0 PAIR I 1 PLIST I 0 STREAM F 11Q FTPDEBUGLOG) @l( AdHl("I @l) @l) `AW @@J l @Kdlk_`K`K%K [_KOKk_OO5NO½Ok_LMlI]Mdl(dl)dl'@l' @M KgKgiIY:(306Q BOUT 300Q BOUT 160Q MKSTRING 74Q BOUT 63Q PRIN2 51Q BOUT 36Q BOUT 5 BOUT) (323Q CONNECT-PASSWORD 315Q USER-PASSWORD 206Q STRINGP 175Q STRINGP 164Q STRINGP 135Q \PNPSPACE 123Q \PNPSPACE 54Q FTPDEBUGFLG) () \FTP.PACKFILENAME D1 (P 7 PAIR P 6 NAME P 5 FIELDS P 4 DIR P 3 DEVICE P 2 SERVERNAME P 1 VERSION P 0 NAMEBODY I 3 DEVICEWANTED I 2 PRESERVECASE I 1 PLIST I 0 HOST) pAmdOdg&O\TLk)l[LLm)l]CLlm 8dgC.O'dgOdgOgOH9IgIhgH gMHMKLgLgMgMJdh]^g@gM]d ^BN (320Q MKATOM 315Q U-CASE 305Q CONCATLIST 207Q STRPOS 65Q SUBSTRING) (274Q } 270Q { 247Q : 237Q > 233Q < 213Q %. 203Q %. 173Q ; 147Q SERVER-FILENAME 133Q VERSION 115Q NAME-BODY 74Q DEVICE 21Q DIRECTORY) () \FTP.PACK.DIRECTORYNAMEP D1 (P 0 DIRECTORY I 1 PLIST I 0 CONNECTION) -gA g@oHgHg o (52Q PACK* 42Q CONCAT 6 ASSOC) (37Q > 33Q < 16Q { 2 DIRECTORY) ( 47Q "" 26Q "}") \FTP.UNPACKFILENAME D1 (P 10Q TAIL P 7 INFO P 6 EXT P 5 NAME P 4 DIR P 3 DEVICE P 2 HOST P 1 PLIST P 0 FIELDS I 0 FILENAME) @ qHgdOdgO LdgO>dgO0dgO"dgOggOhIJ6gNMgN MhIYLgLhIKgKhIJIJ (247Q \FTP.ADD.USERINFO 201Q CONCAT 36Q MKATOM 3 UNPACKFILENAME.STRING) (232Q DEVICE 216Q DIRECTORY 175Q %. 167Q NAME-BODY 141Q VERSION 134Q VERSION 117Q EXTENSION 101Q NAME 63Q DEVICE 45Q DIRECTORY 24Q HOST) () \FTP.ADD.USERINFO D1 (I 1 HOST I 0 PLIST) A gHhgHh@(3 \INTERNAL/GETPASSWORD) (21Q USER-PASSWORD 11Q USER-NAME) () \FTP.FLUSH.TO.EOC D1 (P 1 CH P 0 STREAM I 1 ECHOSTREAM I 0 INSTREAM) 'Adg @ YmHHI @ l(41Q FTPGETMARK 32Q \OUTCHAR 10Q GETSTREAM) (5 OUTPUT) () \FTP.FLUSH.TO.MARK D1 (P 1 CH P 0 STREAM I 1 ECHOSTREAM I 0 INSTREAM) !Adg @ YmHHI i(32Q \OUTCHAR 10Q GETSTREAM) (5 OUTPUT) () \FTPERROR D1 (I 2 ERRARG I 1 ERRMSG I 0 CONNECTION F 0 FTPDEBUGLOG) =`P oP P @d`n AddioB (72Q ERROR 52Q CLOSEBSPSTREAM 32Q HELP 26Q TERPRI 21Q PRIN1 10Q TERPRI) (41Q STREAMTYPE# 2 FTPDEBUGFLG) ( 66Q "FTP Protocol violation" 15Q "{FTP Protocol violation, aborted}") FTPDEBUGA0527 D1 (I 0 WINDOW F 0 FTPDEBUGLOG) @ Phc(3 \INSUREWINDOW) (15Q FTPDEBUGFLG) () FTPDEBUG D1 (I 1 REGION I 0 FLG F 0 FTPDEBUGLOG) 4Ao cdgg P cgl P iP iP(54Q DSPSCROLL 47Q DSPFONT 43Q FONTCREATE 27Q \INSUREWINDOW 23Q PUTWINDOWPROP 7 CREATEW) (60Q FTPDEBUGFLG 36Q GACHA 20Q FTPDEBUGA0527 15Q CLOSEFN) ( 4 "FTP Debug info") FTPPRINTMARK D1 (I 0 MARK F 0 FTPDEBUGLOG F 1 FTPMARKTYPES) 5`/oP @Q @P oP @dlP @(61Q TERPRI 45Q PRIN1 34Q PRIN1 23Q FASSOC 14Q PRIN1) (2 FTPDEBUGFLG) ( 41Q "]" 10Q "[") FTPPRINTCODE D1 (I 1 NOCODEP I 0 CODE F 0 FTPDEBUGLOG F 1 FTPNOCODES) .`(gP A@QPo o@P gP @(52Q PRIN1 42Q PRINTNUM 30Q PRINTCONSTANT 13Q PRIN1) (46Q } 7 { 2 FTPDEBUGFLG) ( 35Q (FIX 1) 25Q "\NO.") FTPGETMARK D1 (P 0 MARK I 0 STREAM) @ Xdl@ (24Q \FTP.FLUSH.TO.MARK 11Q FTPPRINTMARK 6 BSPGETMARK) NIL () FTPPUTMARK D1 (I 1 MARK I 0 STREAM) @A (7 BSPPUTMARK 4 FTPPRINTMARK) NIL () FTPPUTCODE D1 (I 2 NOCODEP I 1 CODE I 0 STREAM) @AB (10Q BOUT 5 FTPPRINTCODE) NIL () FTPGETCODE D1 (I 1 NOCODEP I 0 STREAM) @ A (5 FTPPRINTCODE) NIL () FLUSH.FTPCONNECTIONS D1 NIL `dn (15Q CLOSEBSPSTREAM) (2 \FTPCONNECTIONS) () (PRETTYCOMPRINT DPUPFTPCOMS) (RPAQQ DPUPFTPCOMS ((FNS \FTPINIT \FTP.OPENFILE \FTP.OPENFILE.FROM.PLIST \FTP.GETFILEPTR \FTP.SETFILEPTR \FTP.GETFILENAME \FTP.RECOGNIZEFILE \FTP.DIRECTORYNAMEP \FTP.CLOSEFILE \FTP.EOFP \FTP.RENAMEFILE \FTP.DELETEFILE \FTP.GENERATEFILES \FTP.NEXTFILE \FTP.FILEINFOFN \FTP.GETFILEINFO \FTP.GETFILEINFO.FROM.PROPS) (FNS \FTP.OPEN.CONNECTION \FTP.SENDVERSION \FTP.WHENCLOSED \GETFTPCONNECTION \RELEASE.FTPCONNECTION \FTP.ERRORHANDLER \FTP.FIX.BROKEN.INPUT \FTP.CLEANUP \FTP.ASSURE.CLEANUP) (FNS \FTP.HANDLE.NO \FTP.DIRECTORYNAMEONLY \FTP.EOL.FROM.PLIST \FTP.MAKEPLIST \FTP.PRINTPLIST \FTP.PACKFILENAME \FTP.PACK.DIRECTORYNAMEP \FTP.UNPACKFILENAME \FTP.ADD.USERINFO \FTP.FLUSH.TO.EOC \FTP.FLUSH.TO.MARK \FTPERROR) (FNS FTPDEBUG FTPPRINTMARK FTPPRINTCODE FTPGETMARK FTPPUTMARK FTPPUTCODE FTPGETCODE FLUSH.FTPCONNECTIONS) (ADDVARS (\FTPCONNECTIONS)) (INITVARS ( FTPDEBUGLOG) (FTPDEBUGFLG) (\FTPAVAILABLE) (\FTP.IDLE.TIMEOUT 120000)) (DECLARE: EVAL@COMPILE DONTCOPY (VARS FTPMARKTYPES) (CONSTANTS \FTP.VERSION) (CONSTANTS * FTPNOCODES) (MACROS MARK# .EOC. .FTPDEBUGLOG.) (RECORDS FTPCONNECTION FTPSTREAM FTPFILEGENSTATE) (GLOBALVARS FTPDEBUGFLG \FTPCONNECTIONS \FTPAVAILABLE \FTP.IDLE.TIMEOUT \BSPFDEV \FTPFDEV) (FILES (LOADCOMP) BSP)) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\FTPINIT))))) (ADDTOVAR \FTPCONNECTIONS) (RPAQ? FTPDEBUGLOG) (RPAQ? FTPDEBUGFLG) (RPAQ? \FTPAVAILABLE) (RPAQ? \FTP.IDLE.TIMEOUT 120000) (\FTPINIT) (PUTPROPS DPUPFTP COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL