PDP-10 Archive: decus/20-0004/pupftp.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/pupftp.com

There are no other files named pupftp.com in the archive.

(FILECREATED "27-JUN-82 23:31:20" ("compiled on " <LISPUSERS>PUPFTP.;5) (2 . 2) brecompiled changes: 
PUPFTP in WORK dated "24-JUN-82 23:21:05")
(FILECREATED "26-MAY-82 11:45:42" <LISPUSERS>PUPFTP.;5 22087 changes to: PUPFTP previous date: 
"14-MAY-82 23:37:02" <LISPUSERS>PUPFTP.;4)
MTPA0006 BINARY


-.Z3B+,<`"B	,<`"	,<`"	,~j(IN . 1)
(OUT . 1)
(VARIABLE-VALUE-CELL RESETSTATE . 3)
OPNJFN
SENDPUPABORT
CLOSEF?
(KNIL ENTER2)0
MTP BINARY

P-.(P-.(RUZ,<@U +>Z,<,<V,<W,<@W`+7ZZYXB,<,<,<,<,<,<,<,<,<,<YZXBZwzZ?2B+ZZwzXB?,<,<?~,<[,<[\XBw}b]XBw| w|^+  ,,<Zwz,<?~,<[,<^\XBw}b]XBw|Z^,<,<w|,<w|,XBw~,<,<,Z,XB$,<_ZwzZ?XBw~,,<,<_ZwyZ?2B+,,<?`,,<,<aZwyZ82B+0Z?,,XBw~ w|,>O,>Z",<,<ab, ,^/ O,<w~,<w{cZ3B+<,<w~b]dc w|,>O,>Z",<,<ab, ,^/ OZwz,<?~,<[dZwzXB?~,<e,<e,<fdXBw{,<,<w|f0B+ w.",XBw,<w|gXBw~Z93B+Q,<w~dh,<w|f0B+,<w{,<Yi,<w|,<wz],<,EZjZw~7[ZZ1H+\2D+X[,<Zwy,<?~,>,<kZwy,<?~kZw{,,,<Zwy,<?~k,<lZwy,<?~kZmZw~7[ZZ1H+k2D+g[Z2Bm+n^"+n^",>O,>ZnZw~7[ZZ1H+t2D+q[Z2Bm+w^"+x^".Bx,^/,,<Zwy,<?~kZwz,<?~n,<w{Zwy,<?~,<YZwy,,ho+p+0B++	0B++p+IZp/+
/+
/+/ w| ,,<,<qrXBw1B+0B+-,<w|s,<w|tZw1B+ZwzZ?3B+*,<u,<hZwz,<?~,<h,<u,<hvw,<,<Zfx,<,<yZwzXB?,<Zw3B+#bz,\/ZwzZ?Zw2B+(,<,<`+)ZZwzXB?+%,<?`ZwzXB?+%,<w}{b|b},<w}~,<w}~Zw{3B+3bZwz,<?~/ZwXB8Z,~3B+9Z+9ZXB`dZ`3B+=,~Z`,~+Zw,<,<wk[w3B+,<,<wk[wXBw+>,>O,> w Dx5DI2`d 5M p x0D5F $5F,^/+)U0tu$ FFg
*Y0(2
j@S 	vy(TFFq`&]&@Z0S	@(HOST . 1)
(TOFILE . 1)
(USER . 1)
(PWD . 1)
(MAILBOX . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 6)
(VARIABLE-VALUE-CELL RESETVARSLST . 74)
(VARIABLE-VALUE-CELL LASTTRACED . 33)
(VARIABLE-VALUE-CELL FTPDEBUGFLG . 157)
(VARIABLE-VALUE-CELL READBUF . 314)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
0
(NIL)
(LINKED-FN-CALL . USERNAME)
MAIL
OUTPUT
(NIL)
(LINKED-FN-CALL . PUPOPENF)
(NIL)
(LINKED-FN-CALL . OPNJFN)
INPUT
MTPA0006
USER-NAME
USER-PASSWORD
(NIL)
(LINKED-FN-CALL . GETPASSWORD)
MAILBOX
U
(NIL)
(LINKED-FN-CALL . PRINTPUPMARK)
(NIL)
(LINKED-FN-CALL . PRINTPLIST)
(NIL)
(LINKED-FN-CALL . OPENFILE)
TMP;T
BOTH
OLD/NEW
(NIL)
(LINKED-FN-CALL . PUPGETMARK)
(NIL)
(LINKED-FN-CALL . READPLIST)
(NIL)
(LINKED-FN-CALL . PRIN1)
(NIL)
(LINKED-FN-CALL . SETFILEPTR)
DATE-RECEIVED
","
(NIL)
(LINKED-FN-CALL . PRIN3)
";00000000000"
OPENED
YES
DELETED
(NIL)
(LINKED-FN-CALL . TERPRI)
(NIL)
(LINKED-FN-CALL . COPYBYTES)
(NIL)
(LINKED-FN-CALL . FTPHELP)
S
(NIL)
(LINKED-FN-CALL . PRINTPUPCODE)
(NIL)
(LINKED-FN-CALL . GOBBLECHARS)
(NIL)
(LINKED-FN-CALL . CHECKEOC)
"login at "
" as user: "
(NIL)
(LINKED-FN-CALL . LINBUF)
(NIL)
(LINKED-FN-CALL . SYSBUF)
(NIL)
(LINKED-FN-CALL . CLBUFS)
(NIL)
(LINKED-FN-CALL . READ)
(NIL)
(LINKED-FN-CALL . BKBUFS)
(NIL)
(LINKED-FN-CALL . PUPGETSTRING)
(NIL)
(LINKED-FN-CALL . CONCAT)
(NIL)
(LINKED-FN-CALL . ERROR)
(NIL)
(LINKED-FN-CALL . CLOSEF?)
(NIL)
(LINKED-FN-CALL . CLOSEF)
ERROR
(NIL)
(LINKED-FN-CALL . RESETRESTORE)
(NIL)
(LINKED-FN-CALL . ERROR!)
" "
(URET2 URET5 KT FGFPTR BHC IUNBOX ASZ ALIST3 ALIST2 CONS LIST2 LIST3 MKN CF KNIL BLKENT ENTER5)xB?7X

 p5H
 Bx6X
0Kp411P(%$"

(M8( <8()(`t
I0/0$XxhX

(

PUPFTPA0004 BINARY


-.Z3B+ZBB	ZB	ZB	,~j(VARIABLE-VALUE-CELL IN . 9)
(VARIABLE-VALUE-CELL OUT . 11)
(VARIABLE-VALUE-CELL RESETSTATE . 3)
OPNJFN
SENDPUPABORT
CLOSEF?
(KNIL ENTERF)0

PUPFTP BINARY
3n-.8@3Z,<@; ,~Z,<,<<,<=,<@=`++ZZ?XBZ,<@? `+*ZXBZ3B+0B++0B+ZFXB+,<,<F$GZ3BG+2BH+ZHZ,XBZ+62BH+ZHZ,XBZ+62BI++63BI+!2BJ+!+62B+#ZI+62B+%ZJ+62BJ+(ZXBZ+62BK+1Z	,<,<Z,< ",XB2B+/Z,~ZXB'Z'+6-,+4[0XBZ2+6,<K,<,BLXB3Z2B+CZZ,Z2B+@ZZ9,Z2B+@Z8,<,<L$MXBZ@XB7[AXB,<Z>,<,<M,<J(NXBBNXB+ G^+  ,,<ZC,<,<M,<I(NXBBNXBZO,<ZM,<ZF,<,XB,<,<,Z,XBT G,>2,>Z",<,<O$P, ,^/ 3 U,>2,>,<P,<O$Q, ,^/ \,>2,>Z",<,<O$P, ,^/ 3ZNBQ0B+s h ,,<,<R$Q1B+o RZjBSZoBS2B+s R+s R,<TZAXB,,<,<TZB2B+xZU,,<Z--,+},<U,<,,,,XBZ03B+

Z63BI+	Z+

,<WZ,<,Z,,XBZ33B+,<Zp-,++Zp,<@WB+Z-,+,<XZ,Z+)3BG+(2BH+)Z"+) R,<,<O$P, ,^/ 3Z,<ZDXZ3B+3Z.,<BNDX /,>2,>Z",<,<O$P, ,^/ 3Z2BJ+^ZpBQ0B+[ ; ,,<,<R$QXBZ=BSZABS 3,>2,>Z",<,<O$P, ,^/ 3ZP,<,<YZOFYZK,<,<Z,<Z&[ZJ,<,<[Z\F[ZO,<,<\Z
F]ZR,<Z]D^Zy,<ZJ,<ZQ,<Z1,<,<*^,~0B+]+	"R+	2BK+P, ,^/ 3Z),<ZX,< ",2B+sZgB+' q,>2,>Z",<,<O$P, ,^/ 3 s,>2,>,<,<O$Q, ,^/Zm,<,<Zy,< ",XBV2B+s ,>2,>Z",<,<O$P, ,^/ 3+'0B+

+	 R+	2BI+DZfBQ0B+>ZLB`XBYZ03B+Z,<D`ZBS ,>2,>Z",<,<O$P, ,^/ 3 ,>2,>,<_,<O$Q, ,^/ ,>2,>Z",<,<O$P, ,^/ 3ZBQ0B+=Z,<,<YZnFaZ*,<,<aZFaZ,,<,<Z,<Z&[Z-,<,<[Z\F[Z2,<,<\ZSF]ZT,<Z]D^Z,<ZW,<Z4,<Z.H^,~ R+	0B+@+	0B+A+0B+C+s R+	2BJ+Z(BQ0B+Z;B`XB<Z3B+KZH,<D`ZEBSZJBb3B+k ",>2,>Z",<,<O$P, ,^/ 3 N,>2,>,<_,<O$Q, ,^/ U,>2,>Z",<,<O$P, ,^/ 3ZKBQ0B+jZG,<ZLDbZaBSZeBQ0B+iZfBS+ R+ R+,<"c Z,>2,>Z",<,<O$P, ,^/ 3 l,>2,>,<_,<O$Q, ,^/ s,>2,>Z",<,<O$P, ,^/ 3ZhBQ0B++G0B++' R+0B++	0B++$ R c+	3BH+

3BI+

3BG+

2BH+ZBQ0B+Z

BS+:0B+@d+ZcB`XBdZ:2BI+ZZ,XB+yZ,<ZHZ7[ZZ1H+2D+[ZBeXB,\3B+*,<f,<$`Z:,<,<$`,<f,<$`Z,<,<$`,<g,<$`[wZBS2B+H RZC3BG+N,<,<,<h,<,<*i2Bi+e x,>2,>Z",<,<O$P, ,^/ 3 N,>2,>,<,<O$Q, ,^/ T,>2,>Z",<,<O$P, ,^/ 3ZFBQ0B+dZ`BS+w R+w Z,>2,>Z",<,<O$P, ,^/ 3 e,>2,>,<j,<O$Q, ,^/ k,>2,>Z",<,<O$P, ,^/ 3,<,<,<&gZbBQ0B+|+0B+ZBjZ/BjZZ2B+ "+[QD ",~ RZ,~,~0B++	 R+	 R y ,,<,<R$QXBd1B+0B+Z	BSZBSZ#,<,<$MXBZXBt[XBv+s1B!+0B ++0B +$ZH2BI+$ZBS+'Z2Bk+$Z62Bk+$Z2BI+$ZlXBZBSZ"BS+sZ9,<Z}BlBmDGZ%BjZ~Bj+.XBZ,~3B+-Z+.ZGXBDmZ.3B+1 n,~Z*,~

02Lo>}X!F	T

Ta
9e?((BZ%@(a/U	(a%SS[7jDU#8a*?(a%^oUZLQQR

&Q"'Vdt0

pBUU
>

UV[91k&(VARIABLE-VALUE-CELL HOST . 1058)
(VARIABLE-VALUE-CELL FILE . 510)
(VARIABLE-VALUE-CELL ACCESS . 1087)
(VARIABLE-VALUE-CELL USER . 1064)
(VARIABLE-VALUE-CELL PWD . 1066)
(VARIABLE-VALUE-CELL ACCT . 0)
(VARIABLE-VALUE-CELL BYTESIZE . 264)
(VARIABLE-VALUE-CELL LISPXHIST . 3)
(VARIABLE-VALUE-CELL RESETVARSLST . 170)
(VARIABLE-VALUE-CELL LASTTRACED . 25)
(VARIABLE-VALUE-CELL DELFIELDS . 46)
(VARIABLE-VALUE-CELL DIRFIELDS . 855)
(VARIABLE-VALUE-CELL LOGINPASSWORDS . 120)
(VARIABLE-VALUE-CELL FTPDEBUGFLG . 657)
(VARIABLE-VALUE-CELL TMP . 1065)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
(NIL VARIABLE-VALUE-CELL RESETY . 1123)
(NIL VARIABLE-VALUE-CELL RESETZ . 1118)
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(VARIABLE-VALUE-CELL FL . 1097)
(NIL VARIABLE-VALUE-CELL IN . 1103)
(NIL VARIABLE-VALUE-CELL OUT . 1105)
(NIL VARIABLE-VALUE-CELL CODE . 1049)
(NIL VARIABLE-VALUE-CELL IJ . 1094)
(NIL VARIABLE-VALUE-CELL OJ . 994)
(NIL VARIABLE-VALUE-CELL TEM . 894)
(NIL VARIABLE-VALUE-CELL PLIST . 872)
(NIL VARIABLE-VALUE-CELL CLOSEFORM . 622)
(NIL VARIABLE-VALUE-CELL LASTUSER . 233)
(CRLF VARIABLE-VALUE-CELL EOL . 1091)
(TEXT VARIABLE-VALUE-CELL TYPE . 1081)
(NIL VARIABLE-VALUE-CELL DF . 852)
BINARY
"invalid PUP bytesize"
ERROR
DELETE
DELETE?
DIRECTORY
LIST
INPUT
OUTPUT
MAP
MAPSTORE
27
ERRORX
QUIET
LOGIN
FTP
PUPOPENF
OPNJFN
PUPFTPA0004
U
PRINTPUPMARK
1
PRINTPUPCODE
PUPGETMARK
S
FTPHELP
GOBBLECHARS
CHECKEOC
USER-NAME
USER-PASSWORD
""
SERVER-FILENAME
TYPE
BYTE-SIZE
END-OF-LINE-CONVENTION
(VARIABLE-VALUE-CELL X . 888)
DESIRED-PROPERTY
PRINTPLIST
MATE
PUT
CLOSEALL
NO
WHENCLOSE
BEFORE
CLOSEPUPFTP
EOL
SETFILEINFO
NILL
RPLACA
CHLNM
SENDPUPABORT
0
READPLIST
PRIN1
PUTPROP
PLIST
BROWNIEUSEFILEP
BROWNIEUSEFILE
PRODUCE
HELP
(NIL VARIABLE-VALUE-CELL LASTDIR . 845)
(NIL VARIABLE-VALUE-CELL TEM . 0)
(NIL VARIABLE-VALUE-CELL VAL . 1022)
U-CASE
"{"
"}<"
">
"
TAB
MAPRINT
"? "
ASKUSER
Y
69
CLOSEF?
TEXT
CRLF
CR
PUPGETSTRING
CONCAT
RESETRESTORE
ERROR!
(COLLCT CONSS1 CONSNL SKNLST ALIST2 BHC IUNBOX LIST3 MKN GETHSH LIST2 SKLST EVCC KT CONS ASZ CF KNIL 
ENTERF)5`0xy`>pq=0`; T8@~/r,Z*H($ ! m9X

xa8>Xo=^;R/Pw._+S$h #(Xw8H,

`` 
(A8cl	(X:

`PThX2-+B0y9PA7p*5&4P#0$P
XCBpA`?P{>8g<(\:1h0P0{-ph,0]*G((A'x*$H"

huaHFX6&0

@X	0EX,@X@L98K9:7+3`l)hJ"8 qx T@>H;0x.8'(P
READPLIST BINARY
7*5-.*ZB+,<,<+[p2B+,<p,<,",,<@-+,<-,<ZF.,<.,</Z	F/,<0,<0ZF/,<1,<ZB+&Z,<,<3Z"B3F4+&ZD5,~[pXBp+/Z,~Ynd 2B4:(VARIABLE-VALUE-CELL IN . 3)
PUPGETSTRING
((NIL) . 0)
ORIG
COPYREADTABLE
(VARIABLE-VALUE-CELL R . 33)
((40 41) . 0)
SETBRK
'
ESCAPE
SETSYNTAX
%%
OTHER
((32 0) . 0)
SETSEPR
READ
(VARIABLE-VALUE-CELL PLIST . 83)
(VARIABLE-VALUE-CELL PRP . 72)
U-CASE
GETPROP
PUTPROP
RPLACA
(SKNLST BHC KT KNIL ENTERF)  '(
P
PRINTPLIST BINARY
-),-.),('Z,<Zp-,++$Zp,<@*4+#@*+!Z,<Zp-,++,>(,> $,^/+,~[pXBp+  (,~[pXBp+/ ! (Z,~

ZT!.(H(VARIABLE-VALUE-CELL L . 6)
(VARIABLE-VALUE-CELL OJ . 74)
(VARIABLE-VALUE-CELL X . 20)
(40 VARIABLE-VALUE-CELL PRE . 40)
(VARIABLE-VALUE-CELL XL . 41)
MKSTRING
(KNIL UPATM ASZ BHC URET1 SKNLST ENTERF)'%p

X
CHECKEOC BINARY
-.ZB2B+    ,,<Z",\2B77+Z",<,<$  $ &2d$03Z,~	P0(VARIABLE-VALUE-CELL IN . 24)
PUPATMARKP
FTPHELP
S
PRINTPUPMARK
(KT ASZ MKN KNIL ENTERF)
p
PUPATMARKP BINARY
-.  0B+

   2 ,>,> ABx,^/1B+7Z,~ + Z,~Y!(VARIABLE-VALUE-CELL IN . 24)
(KNIL KT BHC ENTERF)@8 
GOBBLECHARS BINARY
-.Z3B+@+,<"  ,XB0B+   2 ,>,> ABx,^/0B+ZB,<ZD+,~+ 	5D2ad 5Z,~8R (VARIABLE-VALUE-CELL IN . 39)
(VARIABLE-VALUE-CELL FTPDEBUGFLG . 34)
(NIL VARIABLE-VALUE-CELL CH . 31)
S
PUPDEBUGCHECK
CHARACTER
PRIN3
(BHC ASZ MKN KNIL ENTERF)	0
PUPGETSTRING BINARY
-.Z@D,<@ ,~ZB2B+,<"Z3B+Z,<DZ3B+

,~EdJ(VARIABLE-VALUE-CELL IN . 10)
(VARIABLE-VALUE-CELL UCASE . 22)
(VARIABLE-VALUE-CELL FTPDEBUGFLG . 16)
DUMMYSTRING
STRINGFROMFILE
(VARIABLE-VALUE-CELL STR . 27)
EOFP
"PLIST too long"
FTPHELP
PRIN3
UCASESTRING
(KNIL ENTERF)


PUPGETMARK BINARY

 ,,<,<$,<  $ &2d$03,\,~	P`(VARIABLE-VALUE-CELL IJ . 17)
PUPATMARKP
FTPHELP
S
PRINTPUPMARK
(MKN KNIL ENTERF)
CLOSEPUPFTP BINARY
4*2-.*Z,<,<*$+,<ZB+,<@,@,~Z,<,<*$-Z,<,<-$-Z	,<,<.$.3B+# ,>),>Z",<,</$/, ,^/ ) ,>),>,<0,</$0, ,^/ ,>),>Z",<,</$/, ,^/ )Z3B+(B1+(Z 3B+(B.3B+(ZB1Z#B2Z,~M#	8aj@(VARIABLE-VALUE-CELL FILE . 22)
MATE
GETPROP
OPNJFN
(VARIABLE-VALUE-CELL MATE . 78)
(VARIABLE-VALUE-CELL OJ . 76)
REMPROP
PLIST
OUTPUT
OPENP
U
PRINTPUPMARK
0
PRINTPUPCODE
CLOSEF?
SENDPUPABORT
CLOSEF
(BHC IUNBOX ASZ KNIL ENTERF)@h(H)`$ 
CHLNM BINARY
-.(Z,<,<Z,<,<ZZ7[ZZ1H+	2D+[Z2B+

ZH,<ZF,~0)(VARIABLE-VALUE-CELL FILE . 23)
(VARIABLE-VALUE-CELL HOST . 6)
(VARIABLE-VALUE-CELL F1 . 3)
(VARIABLE-VALUE-CELL PLIST . 10)
(VARIABLE-VALUE-CELL OUTFLG . 26)
"{"
"}"
SERVER-FILENAME
PACK*
CHANGEFILENAME
(KNIL ENTERF)
SENDPUPABORT BINARY
-.  $
`d+ $
 & (,~@(VARIABLE-VALUE-CELL OJ . 3)
(ENTERF)
PRINTPUPCODE BINARY

ZB,<",<ZDZ,<ZD,<,<ZD,\,<"Z,~z0(VARIABLE-VALUE-CELL CODE . 24)
(VARIABLE-VALUE-CELL FROM . 6)
(VARIABLE-VALUE-CELL FTPDEBUGFLG . 19)
PUPDEBUGCHECK
8
RADIX
"<"
PRIN1
PRIN2
"> "
10
(KNIL ENTERF)
PRINTPUPMARK BINARY
-.Z3B+ZB,<ZDZZ7[ZZ1H+
2D+[ZB,<ZD,<Z

DZ,~h (VARIABLE-VALUE-CELL N . 30)
(VARIABLE-VALUE-CELL FROM . 6)
(VARIABLE-VALUE-CELL FTPDEBUGFLG . 28)
(VARIABLE-VALUE-CELL MARKTYPES . 12)
PUPDEBUGCHECK
"["
PRIN1
L-CASE
"]"
(KNIL ENTERF)(
PUPDEBUGCHECK BINARY
-.Z3B+Z,<ZXB,\2B+Z,~Z,<,<ZFZ,<Z	D,<ZD,~Z,~(VARIABLE-VALUE-CELL WHO . 20)
(VARIABLE-VALUE-CELL FTPDEBUGFLG . 25)
(VARIABLE-VALUE-CELL LASTTRACED . 9)
0
TAB
PRIN1
": "
(KT KNIL ENTERF)x
(PRETTYCOMPRINT PUPFTPCOMS)
(RPAQQ PUPFTPCOMS ((FNS PUPFTP READPLIST PRINLST PRINTPLIST CHECKEOC COPYCHARS PUPATMARKP GOBBLECHARS 
PUPGETSTRING PUPGETMARK MTP CLOSEPUPFTP CHLNM SENDPUPABORT) (VARS DIRFIELDS DELFIELDS (LASTTRACED)) (*
 for debugging) (FNS PRINTPUPCODE PRINTPUPMARK PUPDEBUGCHECK) (ADDVARS (REMOTEINFOLST (AUTHOR AUTHOR 
11) (LENGTH SIZE 9) (SIZE SIZE 9) (WRITEDATE WRITE-DATE 23) (READDATE READ-DATE 23) (CREATIONDATE 
CREATION-DATE 23) (BYTESIZE BYTE-SIZE 9) (TYPE TYPE 10))) (DECLARE: EVAL@COMPILE (VARS MARKTYPES) 
DONTCOPY (PROP MACRO MARK# READMARK MARK CLEARMARK PUTCODE READCODE) DONTEVAL@COMPILE (TEMPLATES MARK#
 READMARK MARK CLEARMARK PUTCODE READCODE)) (BLOCKS (MTP MTP PRINLST COPYCHARS)) (FILES (FROM VALUEOF 
LISPUSERSDIRECTORIES) STRINGFNS FTP PUPBSP) (DECLARE: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) FTP))))
(RPAQQ DIRFIELDS ((NAME-BODY 0 0) ";" (VERSION 0 T) (WRITE-DATE 30 1)))
(RPAQQ DELFIELDS ("delete " (NAME-BODY 0 T) ";" (VERSION 0 T)))
(RPAQQ LASTTRACED NIL)
(ADDTOVAR REMOTEINFOLST (AUTHOR AUTHOR 11) (LENGTH SIZE 9) (SIZE SIZE 9) (WRITEDATE WRITE-DATE 23) (
READDATE READ-DATE 23) (CREATIONDATE CREATION-DATE 23) (BYTESIZE BYTE-SIZE 9) (TYPE TYPE 10))
(RPAQQ MARKTYPES ((1 RETRIEVE) (2 STORE) (3 YES) (4 NO) (5 HERE-IS-FILE) (6 EOC) (7 COMMENT) (8 
VERSION) (10 DIRECTORY) (11 HERE-IS-PLIST) (13 ABORT) (14 DELETE) (16 STORE-MAIL) (17 RETRIEVE-MAIL) (
18 FLUSH-MAILBOX) (19 MAILBOX-EXCEPTION) (? NEWSTORE)))
(FILESLOAD (FROM VALUEOF LISPUSERSDIRECTORIES) STRINGFNS FTP PUPBSP)
NIL