(FILECREATED "28-Apr-85 14:52:29" ("compiled on " {ERIS}SOURCES>DPUPFTP.;24) "19-Mar-85 14:34:17" recompiled exprs: FTP.BREAKCONNECTION in "INTERLISP-D 16-Apr-85 ..." dated "16-Apr-85 13:02:15") (FILECREATED "28-Apr-85 14:51:53" {ERIS}SOURCES>DPUPFTP.;24 57527 changes to: (FNS FTP.BREAKCONNECTION \FTP.CLOSEFILE \FTP.ERRORHANDLER \FTPINIT \FTP.OPENFILE.FROM.PLIST \FTP.FIX.BROKEN.INPUT \FTPEVENTFN) (VARS DPUPFTPCOMS) (PROPS (MARK# INFO)) previous date: "25-Mar-85 15:06:04" {ERIS}SOURCES>DPUPFTP.;22) \FTPINIT D1 NIL s``i`` dg`g`g`g`g`g `g:`g`g `gi(22Q NCREATE2) (160Q \FTPAVAILABLE 152Q \FTPEVENTFN 147Q \FTPFDEV 141Q \FTP.GENERATEFILES 136Q \FTPFDEV 130Q \FTP.DELETEFILE 125Q \FTPFDEV 117Q \FTP.RENAMEFILE 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) () \FTPEVENTFN D1 (I 1 EVENT I 0 DEV) ,Adgi gAgAgid @A (51Q \BSPEVENTFN 43Q FTP.BREAKCONNECTION 13Q FTP.BREAKCONNECTION) (34Q BEFORESAVEVM 26Q BEFOREMAKESYS 20Q BEFORESYSOUT 4 BEFORELOGOUT) () \FTP.OPENFILEA0001 D1 (NAME ERRORSET P 6 PAIR P 4 EOLCONVENTION P 3 BYTESIZE P 2 TYPE P 1 DESIREDPLIST P 0 HOST F 7 ACCESS F 10Q RECOG F 11Q FILENAME F 12Q RESETY F 13Q OTHERINFO) 9PWdgWggWgiWl W XdHWgWM.gJ`ZhIJdggLg^dgdgNZdgzgZhmdgN3 Nl hTdgdgNh@dggNhIh*dggN3 Nl hIhghiNIM]3ggKlhIHIW ci(462Q \FTP.OPENFILE.FROM.PLIST 375Q \LISPERROR 267Q \LISPERROR 55Q \FTP.UNPACKFILENAME 47Q \LISPERROR) (440Q BYTE-SIZE 433Q BINARY 410Q SEQUENTIAL 360Q SIZE 351Q LENGTH 331Q CREATION-DATE 323Q CREATIONDATE 305Q EOLCONVENTION 277Q EOL 246Q BYTESIZE 235Q BINARY 226Q TEXT 212Q FILETYPE 204Q TYPE 164Q CR 152Q END-OF-LINE-CONVENTION 141Q TEXT 125Q DEFAULTFILETYPE 117Q TYPE 75Q OUTPUT 34Q OLD 25Q OUTPUT 20Q NEW 10Q 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.OPENFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\FTP.OPENFILEA0001)) \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) OP@i XdBHJBdgkgl JA Jl I dlHA Ig H hdl $I @KhgA I lH l}H BdgJl Jj Jl I dl$HAhdi In 9H Ll dl,ILIKIg IK Ij I`IlH g4Jg Jl JLJKJj JA J`J(501Q \FTP.EOL.FROM.PLIST 473Q \BSP.DECLARE.FILEPTR 453Q FTPPUTMARK 441Q BSPOPENP 423Q \FTPERROR 377Q \BSP.DECLARE.FILEPTR 366Q \FTP.EOL.FROM.PLIST 360Q \SETACCESS 327Q \LISPERROR 320Q \RELEASE.FTPCONNECTION 310Q CLOSEBSPSTREAM 300Q \FTP.HANDLE.NO 260Q FTPGETMARK 253Q FTPPUTMARK 244Q FTPPUTCODE 236Q FTPPUTMARK 214Q \FTPERROR 200Q \FTPERROR 167Q FTPGETMARK 162Q \FTP.PACKFILENAME 144Q READPLIST 127Q \RELEASE.FTPCONNECTION 117Q BSPOPENP 107Q \FTP.HANDLE.NO 73Q FTPGETMARK 66Q FTPPUTMARK 57Q \FTP.PRINTPLIST 51Q FTPPUTMARK 7 \GETFTPCONNECTION) (511Q \FTPFDEV 436Q OUTPUT 427Q OUTPUT 404Q \FTPFDEV 355Q INPUT 222Q INPUT 153Q DEVICE 114Q INPUT 41Q OUTPUT 31Q INPUT) () \FTP.GETFILENAME D1 (I 2 DEV I 1 RECOG I 0 NAME) ,Adg@B g@B @B Ag(51Q SHOULDNT 36Q \GENERIC.OUTFILEP 27Q \FTP.RECOGNIZEFILE 14Q \FTP.RECOGNIZEFILE) (43Q NEW 20Q OLD/NEW 4 OLD) () \FTP.RECOGNIZEFILEA0001 D1 (NAME ERRORSET P 7 CODE P 6 RESULT P 5 DESIREDPLIST P 4 REMOTEPLIST P 3 OUTS P 2 INS P 1 HOST P 0 CONNECTION F 10Q OPTION F 11Q FTPDEBUGLOG F 12Q NAME F 13Q RESETY) ZW YdIWdg{gMogghgghM]Ii XdIHKl KM Kl J dlJi _dl =J`W H Nciddg𲣿odg=hMl@J`W WgHM ^HMhOhi Jg R^dl SJ WdgLgHL ILhgM J4Jk=<J lIH HlH :(525Q \FTPERROR 507Q \FTPERROR 474Q FTPGETMARK 443Q \FTP.PACKFILENAME 425Q \FTP.PACK.DIRECTORYNAMEP 376Q READPLIST 354Q BSPOPENP 343Q \FTP.HANDLE.NO 325Q \FTP.PACK.DIRECTORYNAMEP 307Q \FTP.FLUSH.TO.EOC 215Q \RELEASE.FTPCONNECTION 210Q \FTP.FLUSH.TO.EOC 164Q FTPGETCODE 146Q FTPGETMARK 141Q FTPPUTMARK 132Q \FTP.PRINTPLIST 124Q FTPPUTMARK 104Q \GETFTPCONNECTION 7 \FTP.UNPACKFILENAME) (455Q FDEV 450Q STREAM 434Q DEVICE 416Q DIRECTORYNAMEP 405Q PROPS 351Q INPUT 315Q DIRECTORYNAMEP 300Q FTPDEBUGFLG 250Q DESIRED-PROPERTY 232Q NAME 201Q FTPDEBUGFLG 67Q DEVICE 64Q DESIRED-PROPERTY 56Q DIRECTORY 53Q DESIRED-PROPERTY 37Q NAME-BODY 30Q DIRECTORYNAMEP) ( 242Q (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 (\FTP.RECOGNIZEFILEA0001)) \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 ^ngg@ ]@l @j @l M dlM M`W ^$l Mi M`g lDLl oL N@`K KLn (471Q CLOSEBSPSTREAM 453Q \RELEASE.FTPCONNECTION 435Q ERROR 424Q \LISPERROR 411Q \FTP.FLUSH.TO.EOC 406Q \GETSTREAM 374Q FTPGETCODE 357Q \FTP.FLUSH.TO.EOC 343Q FTPGETCODE 330Q FTPGETMARK 323Q FTPPUTMARK 314Q FTPPUTCODE 306Q FTPPUTMARK 275Q BSPINPUTSTREAM 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) (444Q \BSPFDEV 403Q OUTPUT 400Q PROMPTWINDOW 350Q FTPDEBUGFLG 266Q OUTPUT 242Q OUTPUT 237Q PROMPTWINDOW 157Q FTPDEBUGFLG 36Q INPUT 6 \FTPCONNECTIONS) ( 431Q "CLOSEF: Remote file not successfully stored" 254Q "CLOSEF: Remote file not successfully retrieved") \FTP.RENAMEFILEA0001 D1 (NAME ERRORSET 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.RENAMEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\FTP.RENAMEFILEA0001)) \FTP.DELETEFILEA0001 D1 (NAME ERRORSET 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 10Q FILENAME F 11Q RESETY) ;W YdIgNIg ggohNodg=hNI Ii XdHLl LN Ll K dlHN Kg ðH hZdl IK K lH Ll Lj Ll K dl(HNhdi >Kn llfH cilK K IMhgN O_K dl ~lH Od (464Q REVERSE 453Q \RELEASE.FTPCONNECTION 432Q FTPGETMARK 420Q \FTP.PACKFILENAME 402Q \FTP.FLUSH.TO.MARK 375Q FTPGETCODE 357Q \FTPERROR 341Q CLOSEBSPSTREAM 330Q \FTP.HANDLE.NO 310Q FTPGETMARK 303Q FTPPUTMARK 274Q FTPPUTCODE 266Q FTPPUTMARK 257Q \FTPERROR 247Q FTPGETMARK 242Q READPLIST 223Q \RELEASE.FTPCONNECTION 213Q BSPOPENP 203Q \FTP.HANDLE.NO 167Q FTPGETMARK 162Q FTPPUTMARK 153Q \FTP.PRINTPLIST 145Q FTPPUTMARK 123Q \GETFTPCONNECTION 115Q CLEAR.LEAF.CACHE 40Q GETHOSTINFO 7 \FTP.UNPACKFILENAME) (411Q DEVICE 210Q INPUT 74Q DESIRED-PROPERTY 50Q VERSION 43Q VMS 35Q OSTYPE 25Q VERSION) ( 66Q (DIRECTORY NAME-BODY VERSION) 54Q "-0") \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.DELETEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\FTP.DELETEFILEA0001)) \FTP.GENERATEFILESA0001 D1 (NAME ERRORSET P 22Q 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 23Q PATTERN F 24Q DESIREDPROPS F 25Q RESETY)  W& O"_$ZIg _dggO O kg__ OOOgj} dji_ dgO$ hdgO$_XdgO$_HdgO$o_2dgO$ j O$ _g9O$__O$$kTgO Hg__ =gOj_Oi_OdgOgOgO"OgOm)l/SOkm _I dk*O l*h_Om)l*Og __ jh_gO _ Ok)l/gO _O O _Og_hdddddW(sdddggLggBdgddgg/gddgggddggggd<<= =h<=&<d<o $dg=h<<= =h<=&<d<O O O'gOggOhMOoO _OgOm)l*Og __ gOhMOgOhMOgghMOgOhMgI _hgOhMIi X~HLl LM Ll K dlHMhNhi Kg H IgA\igA] [xMLAgKhh iKKl Cl Cl Cl CdlE:IAhi l* ,lDE$IAhi l EIAhi l h@ h(661Q \FTPERROR 653Q \LISPERROR 646Q \FTP.PACKFILENAME 633Q \LISPERROR 626Q \FTP.PACKFILENAME 605Q \LISPERROR 600Q \FTP.PACKFILENAME 512Q \NCONC2 463Q \INTERNAL/GETPASSWORD 346Q \INTERNAL/GETPASSWORD 307Q PRIN1 275Q PRIN1 266Q TERPRI 260Q GETSTREAM 221Q \NCONC2 211Q \FTP.DIRECTORYNAMEONLY 31Q FTPGETCODE) (500Q CONNECT-PASSWORD 453Q CONNECT-NAME 442Q CONNECT-PASSWORD 403Q USER-PASSWORD 370Q USER-NAME 255Q OUTPUT 252Q PROMPTWINDOW 231Q FTPDEBUGFLG 202Q DIRECTORY 177Q CONNECT-NAME 167Q CONNECT-NAME 136Q FTPDEBUGFLG 125Q CR 115Q CR 102Q END-OF-LINE-CONVENTION 51Q FTPDEBUGFLG 16Q \FTP.FLUSH.TO.EOC 12Q \FTP.FLUSH.TO.MARK) ( 302Q ": ") \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)) *@djdgd<dgkglNIL (42Q CRLF 33Q LF 14Q END-OF-LINE-CONVENTION) () \FTP.MAKEPLIST D1 (I 2 DESIREDPROPS I 1 HOST I 0 FILENAME) kA g=hg=hg@hBhddd==<=<h=<=<g=h<= =h<<=&<(3 \INTERNAL/GETPASSWORD) (112Q DESIRED-PROPERTY 30Q SERVER-FILENAME 17Q USER-PASSWORD 6 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_KK"K [_KOKk_OO1NO½Ok_LMlI]Mdl(dl)dl'@l'!@M!KgKgiIYO(140Q MKSTRING 55Q PRIN2) (274Q CONNECT-PASSWORD 266Q USER-PASSWORD 163Q STRINGP 144Q STRINGP 46Q FTPDEBUGFLG) () \FTP.PACKFILENAME D1 (P 10Q PAIR P 7 I 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)  AdOdg9O\gL dl[Lm)l]SLlm Hl/CLlm 8dgC.O'dgOdgOgOH\IgIhgH gMHMLgLgMK6Ci"KC JoJ _JkOk [KgMJdh]^g@gM]d ^BN (407Q MKATOM 404Q U-CASE 374Q CONCATLIST 332Q SUBSTRING 316Q STRPOS 301Q STREQUAL 233Q STRPOS 111Q SUBSTRING 71Q SUBSTRING 41Q CHCON1) (363Q } 357Q { 340Q : 257Q > 253Q < 237Q %. 227Q %. 217Q ; 173Q SERVER-FILENAME 157Q VERSION 141Q NAME-BODY 120Q DEVICE 22Q DIRECTORY) ( 312Q ":") \FTP.PACK.DIRECTORYNAMEP D1 (P 1 DEVICE P 0 DIRECTORY I 1 PLIST I 0 CONNECTION) &gAgAg@gIgH (43Q PACKFILENAME.STRING) (36Q DIRECTORY 32Q DEVICE 23Q HOST 11Q DEVICE 2 DIRECTORY) () \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"dgOggOhIJ.gN)MhIYLgLhIKgKhIJIJ  jMgN (260Q CONCAT 244Q NCHARS 237Q \FTP.ADD.USERINFO 36Q MKATOM 3 UNPACKFILENAME.STRING) (254Q %. 222Q DEVICE 206Q DIRECTORY 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 g=hg=h@(3 \INTERNAL/GETPASSWORD) (17Q USER-PASSWORD 6 USER-NAME) () \FTP.FLUSH.TO.EOC D1 (P 1 CH P 0 STREAM I 1 ECHOSTREAM I 0 INSTREAM) 1Adg @ YmHH HIl=@ l(53Q FTPGETMARK 10Q GETSTREAM) (32Q STREAM 5 OUTPUT) () \FTP.FLUSH.TO.MARK D1 (P 1 CH P 0 STREAM I 1 ECHOSTREAM I 0 INSTREAM) +Adg @ YmHH HIl=i(10Q GETSTREAM) (32Q STREAM 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}") FTPDEBUGA0001 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 FTPDEBUGA0001 15Q CLOSEFN) ( 4 "FTP Debug info") FTPPRINTMARK D1 (I 0 MARK F 0 FTPDEBUGLOG F 1 FTPMARKTYPES) 6`0oP @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 !(5 FTPPRINTCODE) NIL () FTPGETCODE D1 (I 1 NOCODEP I 0 STREAM) @ A (5 FTPPRINTCODE) NIL () (PRETTYCOMPRINT DPUPFTPCOMS) (RPAQQ DPUPFTPCOMS ((COMS (* FTP device) (FNS \FTPINIT \FTPEVENTFN \FTP.OPENFILE \FTP.OPENFILE.FROM.PLIST \FTP.GETFILENAME \FTP.RECOGNIZEFILE \FTP.DIRECTORYNAMEP \FTP.CLOSEFILE \FTP.RENAMEFILE \FTP.DELETEFILE \FTP.GENERATEFILES \FTP.NEXTFILE \FTP.FILEINFOFN \FTP.GETFILEINFO \FTP.GETFILEINFO.FROM.PROPS) (INITVARS (\FTPAVAILABLE) (\FTP.IDLE.TIMEOUT 120000))) (COMS (* internal) (FNS \FTP.OPEN.CONNECTION FTP.BREAKCONNECTION \FTP.SENDVERSION \FTP.WHENCLOSED \GETFTPCONNECTION \RELEASE.FTPCONNECTION \FTP.ERRORHANDLER \FTP.FIX.BROKEN.INPUT \FTP.CLEANUP \FTP.ASSURE.CLEANUP) ( ADDVARS (\FTPCONNECTIONS)) (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)) (COMS (* for debugging) (FNS FTPDEBUG FTPPRINTMARK FTPPRINTCODE FTPGETMARK FTPPUTMARK FTPPUTCODE FTPGETCODE) (INITVARS (FTPDEBUGLOG ) (FTPDEBUGFLG))) (DECLARE: EVAL@COMPILE DONTCOPY (VARS FTPMARKTYPES) (CONSTANTS \FTP.VERSION) ( CONSTANTS * FTPNOCODES) (MACROS MARK# .EOC. .FTPDEBUGLOG.) (PROP INFO MARK#) (RECORDS FTPCONNECTION FTPSTREAM FTPFILEGENSTATE) (GLOBALVARS FTPDEBUGFLG \FTPCONNECTIONS \FTPAVAILABLE \FTP.IDLE.TIMEOUT \BSPFDEV \FTPFDEV)) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\FTPINIT))))) (RPAQ? \FTPAVAILABLE) (RPAQ? \FTP.IDLE.TIMEOUT 120000) (ADDTOVAR \FTPCONNECTIONS) (RPAQ? FTPDEBUGLOG) (RPAQ? FTPDEBUGFLG) (\FTPINIT) (PUTPROPS DPUPFTP COPYRIGHT ("Xerox Corporation" 1983 1984 1985)) NIL