(FILECREATED " 6-Oct-86 14:41:39" ("compiled on " {ERIS}SOURCES>DPUPFTP.;34) " 1-Oct-86 20:23:15" recompiled exprs: \FTP.RECOGNIZEFILE \FTP.DELETEFILE \FTP.GENERATEFILES \FTP.OPEN.CONNECTION \GETFTPCONNECTION in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 6-Oct-86 14:39:28" {ERIS}SOURCES>DPUPFTP.;34 87435 changes to: (FNS \FTP.GENERATEFILES \FTP.OPEN.CONNECTION \GETFTPCONNECTION \FTP.RECOGNIZEFILE \FTP.DELETEFILE) (VARS DPUPFTPCOMS *FTP-IGNORE-SERVER-FULL*) (RECORDS FTPCONNECTION) previous date: " 1-Oct-86 18:24:17" {ERIS}SOURCES>DPUPFTP.;33) \FTPINIT D1 NIL ``` dg`g`g`g`g`g `g:`g`g `g`gN`gR`gTi(24Q NCREATE2) (264Q \FTPAVAILABLE 256Q \FTP.UNREGISTER 253Q FDEV 250Q \FTPFDEV 242Q \ADD-OPEN-STREAM 237Q FDEV 234Q \FTPFDEV 226Q \GENERIC.OPENP 223Q FDEV 220Q \FTPFDEV 212Q \FTPEVENTFN 207Q FDEV 204Q \FTPFDEV 176Q \FTP.GENERATEFILES 173Q FDEV 170Q \FTPFDEV 162Q \FTP.DELETEFILE 157Q FDEV 154Q \FTPFDEV 146Q \FTP.RENAMEFILE 143Q FDEV 140Q \FTPFDEV 132Q \FTP.GETFILEINFO 127Q FDEV 124Q \FTPFDEV 116Q \FTP.GETFILENAME 113Q FDEV 110Q \FTPFDEV 102Q \FTP.DIRECTORYNAMEP 77Q FDEV 74Q \FTPFDEV 66Q \FTP.CLOSEFILE 63Q FDEV 60Q \FTPFDEV 52Q \FTP.OPENFILE 47Q FDEV 44Q \FTPFDEV 36Q DPUPFTP 33Q FDEV 27Q \FTPFDEV 21Q \BSPFDEV 16Q FDEVTYPE# 5 FDEV 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 F 14Q DEFAULTFILETYPE) 8PWdgWggWgiWl W XdHWgWM-gJWZhIJdggLg^dgdgNZdgzgZhmdgN3 Nl hTdgdgNh@dggNhIh*dggN3 Nl hIhghiNIM]4ggKlhIHIW ci(461Q \FTP.OPENFILE.FROM.PLIST 374Q \LISPERROR 266Q \LISPERROR 55Q \FTP.UNPACKFILENAME 47Q \LISPERROR) (437Q BYTE-SIZE 432Q BINARY 407Q SEQUENTIAL 357Q SIZE 350Q LENGTH 330Q CREATION-DATE 322Q CREATIONDATE 304Q EOLCONVENTION 276Q EOL 245Q BYTESIZE 234Q BINARY 225Q TEXT 211Q FILETYPE 203Q TYPE 163Q CR 151Q END-OF-LINE-CONVENTION 140Q TEXT 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) gP@i XdZHJBdgkgl JA Jl I dlHA Ig H hdl $I @KhgA I lH l}H BdgJl Jj Jl I dl$HAhdi In 9H Ll dl8ILIKIg IK Ij I`IlH g@Jg Jl JLJKJj JA J`J(526Q \FTP.EOL.FROM.PLIST 515Q \BSP.DECLARE.FILEPTR 467Q FTPPUTMARK 455Q BSPOPENP 437Q \FTPERROR 410Q \BSP.DECLARE.FILEPTR 377Q \FTP.EOL.FROM.PLIST 366Q \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) (541Q \FTPFDEV 536Q STREAM 522Q STREAM 504Q STREAM 474Q STREAM 452Q OUTPUT 443Q OUTPUT 420Q \FTPFDEV 415Q STREAM 373Q STREAM 363Q INPUT 353Q STREAM 343Q STREAM 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 10 OPTION F 11 FTPDEBUGLOG F 12 NAME F 13 RESETY) b  W YdIWdg|gMogghgghM]Iid XdIHKl KM Kl J dlJi _dl @J`W H Nciddg𲢿od_gOhMl@J`W WgHM ^HMhOhi Jg N[dl WJ WdgLgHL ILhgM J4_JkOhiJ lBH AlH 3(349 \FTPERROR 335 \FTPERROR 324 FTPGETMARK 295 \FTP.PACKFILENAME 281 \FTP.PACK.DIRECTORYNAMEP 258 READPLIST 240 BSPOPENP 231 \FTP.HANDLE.NO 217 \FTP.PACK.DIRECTORYNAMEP 203 \FTP.FLUSH.TO.EOC 142 \RELEASE.FTPCONNECTION 137 \FTP.FLUSH.TO.EOC 117 FTPGETCODE 103 FTPGETMARK 98 FTPPUTMARK 91 \FTP.PRINTPLIST 85 FTPPUTMARK 69 \GETFTPCONNECTION 7 \FTP.UNPACKFILENAME) (305 FDEV 300 STREAM 288 DEVICE 274 DIRECTORYNAMEP 265 PROPS 237 INPUT 209 DIRECTORYNAMEP 196 FTPDEBUGFLG 173 DESIRED-PROPERTY 155 NAME 130 FTPDEBUGFLG 55 DEVICE 52 DESIRED-PROPERTY 46 DIRECTORY 43 DESIRED-PROPERTY 31 NAME-BODY 24 DIRECTORYNAMEP) ( 163 (DIRECTORY NAME-BODY VERSION) 38 "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(29 ERROR! 24 RESETRESTORE 14 \FTP.RECOGNIZEFILEA0001) (20 ERROR 11 INTERNAL) ( 8 (\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) \ @ `Hh@C@hJdg@J @4_@kO'@ @J @4_@kO@ dl2@ @`W ?Yd@@ItipHXbl@i @`g o ^ngg@ ]@l @j @l M dlM M`W ^$l Mi M`g lDLl oL N@`K KLn (527Q CLOSEBSPSTREAM 511Q \RELEASE.FTPCONNECTION 470Q ERROR 457Q \LISPERROR 444Q \FTP.FLUSH.TO.EOC 441Q \GETSTREAM 427Q FTPGETCODE 412Q \FTP.FLUSH.TO.EOC 376Q FTPGETCODE 363Q FTPGETMARK 356Q FTPPUTMARK 347Q FTPPUTCODE 341Q FTPPUTMARK 330Q BSPINPUTSTREAM 312Q ERROR 303Q \FTP.FLUSH.TO.EOC 300Q \GETSTREAM 265Q FTPGETCODE 214Q \FTP.FLUSH.TO.EOC 200Q FTPGETCODE 165Q FTPGETMARK 126Q BSPOPENP 120Q \BSP.FLUSHINPUT 63Q BSPOPENP 3 \GETACCESS) (502Q \BSPFDEV 477Q STREAM 436Q OUTPUT 433Q PROMPTWINDOW 403Q FTPDEBUGFLG 321Q OUTPUT 275Q OUTPUT 272Q PROMPTWINDOW 205Q FTPDEBUGFLG 143Q FDEV 136Q STREAM 100Q FDEV 73Q STREAM 50Q INPUT 40Q STREAM 27Q STREAM 6 \FTPCONNECTIONS) ( 464Q "CLOSEF: Remote file not successfully stored" 307Q "CLOSEF: Remote file not successfully retrieved") \FTP.UNREGISTER D1 (I 1 STREAM I 0 DEVICE) (A@Nhd@lH@AA A (45Q \GENERIC-UNREGISTER-STREAM 41Q \GETDEVICEFROMNAME) (31Q STREAM 4 FDEV) () \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 10Q OLD-DEVICE F 11Q OLDFILE F 12Q NEWFILE F 13Q NEW-DEVICE F 14Q RESETY F 15Q FTPDEBUGLOG) WWWWWW W YWN_W hWlOhIIW ddIhyI Ii XdiHLl LM LN Ll K dlHM 2Kg dlK K`W WlH H ci(311Q \RELEASE.FTPCONNECTION 305Q \FTPERROR 267Q \FTP.FLUSH.TO.EOC 253Q FTPGETCODE 234Q BSPOPENP 223Q \FTP.HANDLE.NO 207Q FTPGETMARK 202Q FTPPUTMARK 173Q \FTP.PRINTPLIST 165Q \FTP.PRINTPLIST 157Q FTPPUTMARK 137Q \GETFTPCONNECTION 131Q CLEAR.LEAF.CACHE 105Q \FTP.UNPACKFILENAME 55Q FULLNAME 33Q \FTP.UNPACKFILENAME 20Q \GENERIC.RENAMEFILE) (260Q FTPDEBUGFLG 231Q INPUT 43Q FDEV) () \FTP.RENAMEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 NEWFILE I 2 NEW-DEVICE I 1 OLDFILE I 0 OLD-DEVICE 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 9 FILENAME F 10 RESETY) A W YddIgNIg ggohNod_gOhNI Iid XdHLl LN Ll K dlHN Kg °H hZdl IK K lH Ll Lj Ll K dl(HNhdi >Kn kleH cilK K IMhgN O_K dl ~lH Od (314 REVERSE 305 \RELEASE.FTPCONNECTION 288 FTPGETMARK 278 \FTP.PACKFILENAME 264 \FTP.FLUSH.TO.MARK 259 FTPGETCODE 245 \FTPERROR 231 CLOSEBSPSTREAM 222 \FTP.HANDLE.NO 206 FTPGETMARK 201 FTPPUTMARK 194 FTPPUTCODE 188 FTPPUTMARK 181 \FTPERROR 173 FTPGETMARK 168 READPLIST 153 \RELEASE.FTPCONNECTION 145 BSPOPENP 137 \FTP.HANDLE.NO 125 FTPGETMARK 120 FTPPUTMARK 113 \FTP.PRINTPLIST 107 FTPPUTMARK 89 \GETFTPCONNECTION 82 CLEAR.LEAF.CACHE 34 GETHOSTINFO 7 \FTP.UNPACKFILENAME) (271 DEVICE 142 INPUT 66 DESIRED-PROPERTY 42 VERSION 37 VMS 31 OSTYPE 23 VERSION) ( 56 (DIRECTORY NAME-BODY VERSION) 46 "-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(29 ERROR! 24 RESETRESTORE 14 \FTP.DELETEFILEA0001) (20 ERROR 11 INTERNAL) ( 8 (\FTP.DELETEFILEA0001)) \FTP.GENERATEFILESA0001 D1 (NAME ERRORSET P 20 TAIL P 16 FILTERNEEDED P 15 INFO P 14 OSTYPE P 13 NAMEBODY P 12 DIRECTORY P 11 NAME P 10 WANTDEVICE P 9 DEVICE P 8 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 27 PATTERN F 28 DESIREDPROPS F 29 RESETY) @W6 O&_(XIg _dggO O kg__ OOOgj dji_ dgO( hdgO(_XdgO(_HdgO(o_2dgO( j O( _g;O(__O(&kVgO Jg__ ?gOj_Oi_OdgOgOgO$OgOm l/UOkm _K dk,O l*h_Om l*Og __ jh_gO _ Ok l/gO _O O _Og_00W8{d_"dggQggGO"gO"dgg2gO"dgggO"dggggO"_0O2hiO0h_4O2O0&_2O4o )d_$gO$h_*O,hiO*h_.O,O*&_,O.O O O'gOggOhMOoO _OgOm l*Og __ gOhMOgOhMOgghMOgOhMgI _hgOhMIid XHLl LM Ll K dlHMhNhi Kg H ?dl .Hl `ggHhOO W6 hl}H ghhc:i(969 \FTPERROR 950 DIRECTORY.MATCH.SETUP 925 \CLOCK0 906 \RELEASE.FTPCONNECTION 898 BSPOPENP 890 \FTP.HANDLE.NO 873 FTPGETMARK 868 FTPPUTMARK 861 \FTP.PRINTPLIST 855 FTPPUTMARK 837 \GETFTPCONNECTION 812 \INTERNAL/GETPASSWORD 745 CONCAT 733 NTHCHARCODE 715 CONCAT 618 \NCONC2 462 L-CASE 455 U-CASEP 447 CONCAT 435 NTHCHARCODE 424 STRPOS 401 CONCAT 388 NTHCHARCODE 372 CHCON1 361 NCHARS 354 SUBSTRING 341 NTHCHARCODE 250 STRPOS 207 MKATOM 196 NCHARS 124 \CANONICAL.HOSTNAME 121 MKATOM 92 NCHARS 54 NCHARS 48 STRPOS 28 GETHOSTINFO 10 UNPACKFILENAME.STRING) (973 NILL 937 \FTP.FILEINFOFN 934 \FTP.NEXTFILE 928 \FTP.IDLE.TIMEOUT 895 INPUT 821 USER-PASSWORD 808 USER-NAME 797 DEVICE 785 DEVICE 782 DESIRED-PROPERTY 767 DIRECTORY 753 NAME-BODY 742 * 723 UNIX 694 VERSION 688 VMS 681 * 628 DESIRED-PROPERTY 576 END-OF-LINE-CONVENTION 571 EOLCONVENTION 567 READ-DATE 561 IREADDATE 553 READDATE 548 WRITE-DATE 542 IWRITEDATE 534 WRITEDATE 529 CREATION-DATE 523 ICREATIONDATE 515 CREATIONDATE 508 SIZE 503 LENGTH 498 BYTE-SIZE 492 BYTESIZE 471 H 442 / 419 * 398 * 329 UNIX 315 UNIX 308 IFS 296 VMS 268 TOPS20 257 * 245 * 215 DEVICE 185 VERSION 163 EXTENSION 147 NAME 131 DIRECTORY 111 HOST 80 TENEX 60 * 43 * 34 TENEX 25 OSTYPE) ( 710 "." 615 (DIRECTORY NAME-BODY VERSION) 176 "") \FTP.GENERATEFILESA0002 D1 (I 0 CONNECTION F 0 RESETSTATE) P@j (8 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(85 \FTP.ASSURE.CLEANUP 30 ERROR! 24 RESETRESTORE 14 \FTP.GENERATEFILESA0001) (66 \FTP.GENERATEFILESA0002 59 RESETLST 50 RESETLST 20 ERROR 11 INTERNAL) ( 8 (\FTP.GENERATEFILESA0001)) \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@ Z]H_lOl `J4_JkOJ dlH @hhdl !J _"Jg oH hlH AgOoHOi@ IIL f@OH_lOl `L` oO (347Q HELP 321Q \CLOCK0 262Q DIRECTORY.MATCH 252Q \FTP.PACKFILENAME 212Q \FTPERROR 177Q ERROR 162Q BSPOPENP 147Q READPLIST 126Q \RELEASE.FTPCONNECTION 114Q FTPGETMARK 56Q \CLOCK0 24Q ERROR) (334Q FTPDEBUGFLG 324Q \FTP.IDLE.TIMEOUT 220Q NAME-BODY 157Q INPUT 74Q FDEV 67Q STREAM 61Q \FTP.IDLE.TIMEOUT) ( 342Q "Uninterpretable filename returned by ENUMERATE" 233Q "" 170Q "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) @dl Bg A (27Q \FTP.GETFILEINFO.FROM.PROPS 23Q \FTP.RECOGNIZEFILE) (20Q PROPS 11Q STREAM) () \FTP.GETFILEINFO.FROM.PROPS D1 (P 0 TMP I 1 ATTRIBUTE I 0 PROPS) Adgg@gg@Adgg@gg@ Adgg@ gg@ Adgg@ gg@Xd X3 HnAdg@ gg@ A@(266Q MKATOM 246Q MKATOM 243Q U-CASE 210Q MKATOM 164Q MKATOM 141Q IDATE 121Q IDATE 76Q IDATE) (257Q BYTE-SIZE 252Q BYTESIZE 232Q TYPE 176Q SIZE 170Q SIZE 155Q SIZE 147Q LENGTH 132Q READ-DATE 125Q IREADDATE 112Q WRITE-DATE 104Q IWRITEDATE 67Q CREATION-DATE 62Q ICREATIONDATE 52Q READ-DATE 44Q READDATE 32Q WRITE-DATE 25Q WRITEDATE 15Q CREATION-DATE 7 CREATIONDATE) () \FTP.OPEN.CONNECTION D1 (P 1 INSTREAM P 0 PORT I 2 FAILURESTRING I 1 ECHOSTREAM I 0 HOST) l@` HdXHdjlhghdgBo Yd3-Id @l@H ihhYdA I`II (105 CLOSEBSPSTREAM 89 \FTP.SENDVERSION 75 \CANONICAL.HOSTNAME 72 ETHERHOSTNAME 60 BSPOUTPUTSTREAM 46 OPENBSPSTREAM 6 BESTPUPADDRESS) (98 \FTPCONNECTIONS 94 \FTPCONNECTIONS 53 STREAM 35 \FTP.WHENCLOSED 30 \FTP.ERRORHANDLER 3 PROMPTWINDOW) ( 42 "Can't open FTP connection") FTP.BREAKCONNECTION D1 (P 1 STREAM P 0 HOSTS I 1 IDLEONLY I 0 HOST) _ `AJKJ@i@N'ANdNHNHNL Mh\[JZM&\dYn H(126Q CLOSEBSPSTREAM) (5 \FTPCONNECTIONS) () \FTP.SENDVERSION D1 (P 1 OUTS P 0 INS I 1 ECHOSTREAM I 0 CONNECTION) 5@@Il Ik!oI Il H l H kHA (62Q \FTP.FLUSH.TO.EOC 42Q FTPGETMARK 36Q FTPPUTMARK 30Q PRIN3 15Q FTPPUTMARK) NIL ( 24Q "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 2 TRYHARD I 1 UNWINDSAVE I 0 HOST F 4 RESETVARSLST F 5 *FTP-IGNORE-SERVER-FULL* F 6 FTPDEBUGLOG) @dl Uib`J.h@`VBg YdSAoIhTcI[H4K-Kg hiKiKg Kg KJZBIoIhddd` n i(171 BLOCK 163 STRPOS 130 \SETACCESS 120 \SETACCESS 99 BSPOPENP 51 \FTP.OPEN.CONNECTION 12 \CANONICAL.HOSTNAME 9 ETHERHOSTNAME) (159 UPPERCASEARRAY 127 OUTPUT 117 INPUT 96 OUTPUT 48 RETURN 39 FTPDEBUGFLG 24 \FTPCONNECTIONS) ( 151 "FULL" 64 (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@O@"@kJg@ XdyroH Adg!@@ g Ymhi g@g llA@d"@ XH @ Xdi (244Q ERROR 241Q ETHERHOSTNAME 232Q BSPFRNADDRESS 214Q BSPOUTPUTSTREAM 165Q BSPOPENP 150Q RETFROM 135Q STKPOS 126Q \FTP.FIX.BROKEN.INPUT 101Q ERROR 51Q BSPOUTPUTSTREAM) (222Q STREAM 204Q STREAM 162Q INPUT 154Q BAD.GETMARK 132Q READPLIST 117Q STREAM 107Q BAD.STATE.FOR.BIN 74Q STREAM 60Q STREAM 42Q BAD.STATE.FOR.BOUT 27Q STREAM 17Q STREAM 7 MARK.ENCOUNTERED) ( 70Q "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 ` o` @J o` i(411Q PRIN1 376Q SETFILEPTR 370Q PRIN1 355Q TERPRI 346Q \BSP.DECLARE.FILEPTR 336Q BSPOUTPUTSTREAM 163Q \SMASHBSPSTREAM 155Q ERROR 142Q \FTP.OPENFILE.FROM.PLIST 134Q \FTP.ADD.USERINFO 117Q FILENAMEFIELD 110Q PRIN1 76Q PRIN2 66Q PRIN1 53Q PRIN1 43Q PRIN1 30Q TERPRI 17Q GETFILEPTR) (406Q PROMPTWINDOW 365Q PROMPTWINDOW 352Q PROMPTWINDOW 243Q SERVER-FILENAME 235Q DEVICE 227Q DIRECTORY 220Q VERSION 211Q NAME-BODY 167Q \FTPCONNECTIONS 137Q INPUT 114Q HOST 105Q PROMPTWINDOW 102Q ... 73Q PROMPTWINDOW 63Q PROMPTWINDOW 50Q PROMPTWINDOW 40Q PROMPTWINDOW 25Q PROMPTWINDOW 11Q STREAM 3 STREAM) ( 403Q "done." 362Q "Reopening file and restoring fileptr..." 151Q "File server broke connection; unable to reestablish" 60Q " at byte " 35Q "File server broke connection while reading ") \FTP.CLEANUPA0001 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) el j`HlHl IH `ZdH JZJ3 J g KJ (140Q CLOSEBSPSTREAM 125Q MAP.PROCESSES 112Q TIMEREXPIRED? 60Q BLOCK 43Q TIMEREXPIRED? 34Q \CLOCK0 5 \CLOCK0) (122Q \FTP.CLEANUPA0001 50Q \FTPCONNECTIONS 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 `WlJhdlBdl-gA[aKgXKgHB `WlJidldlA3gA,AggA hh HB `WlJiB `g b^ IN oN HBlJClCdl6Ii [A!d_dgOKgOKilCdl>IgA\igA] [xMLAgKhh iKKl Cl Cl Cl CdlE:IAhi l* ,lDE$IAhi l EIAhi l h@ h(663Q \FTPERROR 655Q \LISPERROR 650Q \FTP.PACKFILENAME 635Q \LISPERROR 630Q \FTP.PACKFILENAME 607Q \LISPERROR 602Q \FTP.PACKFILENAME 514Q \NCONC2 465Q \INTERNAL/GETPASSWORD 346Q \INTERNAL/GETPASSWORD 310Q PRIN1 277Q PRIN1 271Q TERPRI 263Q GETSTREAM 223Q \NCONC2 213Q \FTP.DIRECTORYNAMEONLY 31Q FTPGETCODE) (502Q CONNECT-PASSWORD 455Q CONNECT-NAME 444Q CONNECT-PASSWORD 405Q USER-PASSWORD 371Q USER-NAME 260Q OUTPUT 255Q PROMPTWINDOW 233Q FTPDEBUGFLG 204Q DIRECTORY 201Q CONNECT-NAME 171Q CONNECT-NAME 137Q FTPDEBUGFLG 126Q CR 116Q CR 103Q END-OF-LINE-CONVENTION 51Q FTPDEBUGFLG 16Q \FTP.FLUSH.TO.EOC 12Q \FTP.FLUSH.TO.MARK) ( 304Q ": ") \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 7 CH P 4 ISPASSWORD P 3 ITEM P 2 BEFORE P 0 PAIR I 1 PLIST I 0 STREAM F 13Q FTPDEBUGLOG) @l(!AdHl("I@l)!@l)!`AW @@J!l jKB Ndl#N_Nk]N_NCjh!il:N__N jh_Mk]OKgKgiIYrN ^OOMOM_LOlI_Odl(dl)dl'@l'!@OlOl!(247Q MKSTRING 55Q PRIN2) (231Q CONNECT-PASSWORD 223Q USER-PASSWORD 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)  AdOdg;O\iL dl[Lm l]SLlm Hl/CLlm 8dgC.O'dgOdgOgO|H\IgIhgH gMHMLgLgMK6Ci"KC JoJ _JkOk [KgMJdh]^g@gM]d ^BN (415Q MKATOM 412Q U-CASE 402Q CONCATLIST 340Q SUBSTRING 324Q STRPOS 307Q STREQUAL 241Q STRPOS 113Q SUBSTRING 73Q SUBSTRING 56Q NTHCHARCODE 41Q CHCON1) (371Q } 365Q { 346Q : 265Q > 261Q < 245Q %. 235Q %. 225Q ; 175Q SERVER-FILENAME 161Q VERSION 143Q NAME-BODY 122Q DEVICE 22Q DIRECTORY) ( 320Q ":") \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.MhIYL[Jg gDLm l/Lkm \ jMgN Lk l/gL \L L gLhIKgKhIJIJ (357Q \FTP.ADD.USERINFO 322Q L-CASE 315Q U-CASEP 307Q CONCAT 274Q NTHCHARCODE 265Q CONCAT 251Q NCHARS 243Q SUBSTRING 227Q NTHCHARCODE 213Q GETHOSTINFO 36Q MKATOM 3 UNPACKFILENAME.STRING) (342Q DEVICE 326Q DIRECTORY 303Q / 261Q %. 216Q UNIX 210Q OSTYPE 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) 0Adg !@ YmHH HIlJ@ l(52Q 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 HIlJi(10Q GETSTREAM) (32Q STREAM 5 OUTPUT) () \FTPERROR D1 (I 2 ERRARG I 1 ERRMSG I 0 CONNECTION F 0 FTPDEBUGLOG) <`P oP P @dl n AddioB (71Q ERROR 51Q CLOSEBSPSTREAM 32Q HELP 26Q TERPRI 21Q PRIN1 10Q TERPRI) (2 FTPDEBUGFLG) ( 65Q "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) 3`-oP @Q@P oP @dlP @(57Q TERPRI 43Q PRIN1 32Q PRIN1 14Q PRIN1) (2 FTPDEBUGFLG) ( 37Q "]" 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 ((* ;;; "Implementation of the PUP FTP device") (COMS (FNS \FTPINIT \FTPEVENTFN \FTP.OPENFILE \FTP.OPENFILE.FROM.PLIST \FTP.GETFILENAME \FTP.RECOGNIZEFILE \FTP.DIRECTORYNAMEP \FTP.CLOSEFILE \FTP.UNREGISTER \FTP.RENAMEFILE \FTP.DELETEFILE \FTP.GENERATEFILES \FTP.NEXTFILE \FTP.FILEINFOFN \FTP.GETFILEINFO \FTP.GETFILEINFO.FROM.PROPS) (INITVARS (\FTPAVAILABLE) ( \FTP.IDLE.TIMEOUT 120000) (*FTP-IGNORE-SERVER-FULL*))) (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) (RPAQ? *FTP-IGNORE-SERVER-FULL*) (ADDTOVAR \FTPCONNECTIONS) (RPAQ? FTPDEBUGLOG) (RPAQ? FTPDEBUGFLG) (\FTPINIT) (PUTPROPS DPUPFTP COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986)) NIL