;2e8(U*U*UPROG2CONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCQUOTEU*U.U;Loading LCHSTR DEFPROPVERSIONxORGETU*U*uLCHNSPLOADPNPUTdsk:lisp;lchnsp fasl  pSETQu*]jU  xPUTPROPT+INTERNAL-STRING-MARKER  x  xANDFEATURECOMPLRU:UjuSPECIALCHAOS-STREAM-IDxBOUNDP xDEFAULT-WINDOW-SIZExu:]* xDEFAULT-TIMEOUTx xMAKE-CHAOSNET-STREAMSUBR ,,8*U*w,8chaos-stream-object-~A p xqb x,8 ..-, B,8",QBI$QFORMAT< & $CHAOSNET-STREAM-FUNCTION "SFA-CREATE%4R & $,8SFA-STORE & $RHR ` & $ ` &Re$ $ `  $ `$R  $ ` & $RHQ ` & $ `%CHAOS-ALLOCATE-BUFFER 0 & $ ` & $ `u.U,X,xHforget-macromemos|CHAOSNET-STREAM-KEYWORD-DECODE!!xDEFUNMACROU*U*UCHAOSNET-STREAM-KEYWORD-DECODE-MACROARGMACROFETCHMACROMEMOPROGNCOMMENTARGLIST=STREAMKEYWORDU*U*UNOTLENGTHERRORWrong number args to a macro callLETCDRLISTCASEQHOSTU*U*UADDRESSHOST-ADDRESSHOST-NUMBERLIST*CONTACTNAMECONTACT-NAMEREQUESTLISTENU*U*UBYTEBYTE-SIZEWINDOWWINDOW-SIZETIMEOUTFERRORUnknown keywordU*]nu in OPEN for ~A - ~A 3445566p 77x 7x"!"###$#$%%&&''&(#()#)&'*#*+'+,,--..//-&-0-&01122*-37&'!xCHAOSNET-STREAM-OPENu*U*U!7xCHAOSNET-STREAM-OPEN-MACROARGARGSLOOPFORVALUEONBYFUNCTIONU*U*UCDDRINDEXDOSFA-CALLCLOSEIFNULLSFA-GETErrorU*U*U handling OPEN for ~A: No host address specifW;U*wied. @@AABBCCDDEp EEx Ex contact name s @@AABBFFGDEp GGxu*U*U Gx%CHAOS-OPEN-CHANNELSCONNECT-TRIESFROMTOSTATE*CATCHCHAOS-PKTIOT-ERRORU*U*U%CHAOS-REQUEST-CONNECTIONUNTILFINALLYGET-CHAOSNET-ERROR-MSGsome error from chaos sitW;U.We NNOOPPp QQx QxCLEAR-INPUTCLEAR-OUTPUT"7"8#8$8$%%&&8'&(8()8)&8*8*$*99'::8;;<9<&-!&'=-&<:-=&>*>*?-?&*3E&*>*?-?&*3G&*>*?-?&H*&H*H-?&*99IIHJJ&*KK*L-?&H-?&-?&-?&-?&L&JM*>'&J-(*M&Q-=&Q-=&R&7xCHAOSNET-STREAM-CLOSE!RxU*UjuCHAOSNET-STREAM-CLOSE-MACROARGCONNUNLESS%CHAOS-EOF%CHAOS-CLOSE-CHANNELS"R"S#S$S$%%&&'&(S()S)&*S-)**S-?&H-&HT?SKKTSUSRxCHAOSNET-OP!UxCHAOSNET-OP-MACROARGU+]ju&RESTBODY< NNOOPPp XXx XxFAIL-ACT"U"V#V$V$%%&&VW''W(V()V)&W *V*>*?-KKW-(*M&XXUxCHAOSNET-STREAM-TYIu*U*U!YxCHAOSNET-STREAM-TYI-MACROARGEOFUTLPROG1CARIBUFCNTWHENU*U*W<=%CHAOS-PKTIOT%CHAOS-GET-PKT-LENGTH%CHAOS-GET-PKT-OPCODETYI1-%CHAOS-GET-BYTE-"Y"Y#Y$Y$%%&&Z'&(Y()Y)&Z*Y*)**Z-?&*>Z*[[Z-&*Z*)**\-?& *\-?&*]]\*U&-^*[-?&H\-& \^\**&_\-=&QZ*&_\*(-M&*&\*=&_Z--&`\`\a^\\YxW*].UCHAOSNET-STREAM-UNTYI!axCHAOSNET-STREAM-UNTYI-MACROARGPUSH"a"b#b$b$%%&&0'&(b()b)&0*b*&*b0-?&axCHAOSNET-STREAM-TYO!cxCHAOSNET-STREAM-TYO-MACROARG%CHAOS-PUT-BYTEU*].W1+>sFORCE-OUTPUT"c"c#c$c$%%&&0'&(c()c)&0*c-)**\-?&*d-?&0 \d\*>e\e-=&f-&\cxCHAOSNET-STREAM-IN!fxCHAOSNET-STREAM-IN-MACROARG"f"g#g$g$%%&&Z'&(g()g)&Z*g*=&_ZfxW*UjuCHAOSNET-STREAM-OUT!gxCHAOSNET-STREAM-OUT-MACROARGWORDTYO"g"h#h$h$%%&&h'&(h()h)&h*h*=&ihgxCHAOSNET-STREAM-FORCE-OUTPUT!ixCHAOSNET-STREAM-FORCE-OUTPUT-MACROARGu:U*U"i"j#j$j$%%&&'&(j()j)&*j*]-e-?&*U&*^**-?&H-?&-=&RixCHAOSNET-STREAM-CLEAR-INPUT!jxCHAOSNET-STREAM-CLEAR-INPUT-MACROARGWITHARYCHAOS-INTERNAL-PKT-BUFFERICHANCOUNTU*U*uLSHNTHSYSCALLWHYINTwWHILERETURN"j"k#k$k$%%&&'&(k()k)&*k-9kl&lm&*[-?&H9m&nnoomppemKK^mlM-&-&q jxCHAOSNET-STREAM-CLEAR-OUTPUTu*U.W!qxCHAOSNET-STREAM-CLEAR-OUTPUT-MACROARGOBUF%CHAOS-SET-PKT-LENGTH%CHAOS-SET-PKT-OPCODE@"q"r#r$r$%%&&'&(r()r)&*r-)**r-?&-&srsrtqxCHAOSNET-STREAM-PACKET-IN!txU+UjuCHAOSNET-STREAM-PACKET-IN-MACROARGARRAYFILLARRAY"t"u#u$u$%%&&u'&(u()u)&u*u-)**\-?& *U&-^*[-?&H\-vu\txCHAOSNET-STREAM-PACKET-OUT!vxCHAOSNET-STREAM-PACKET-OUT-MACROARG"v"w#w$w$%%&&u'&(w()w)&u*w*)**r-?&*U&*vru-^**-?&HrvxCHAOSNET-STREAM-ARRAY-INu*U*u!wxCHAOSNET-STREAM-ARRAY-IN-MACROARGDOTIMESISETFARRAYCALLFIXNUM"w"x#x$x$%%&&um'&(x()x)&um*x-$*x*ym*y-zzuy-=&_wxCHAOSNET-STREAM-ARRAY-OUTu+UjW!{xCHAOSNET-STREAM-ARRAY-OUT-MACROARGOUT"{"{#{${$%%&&um'&({(){)&um*{-$*x*ym*=&|-zzuy{xCHAOSNET-STREAM-EOF!|xCHAOSNET-STREAM-EOF-MACROARGMSG"|"}#}$}$%%&&}'&(}()})&}*}*$-=&f*U&*T-?&H-=&R|x$ ,<,8,8,8WHICH-OPERATIONS0D~+!OPENU*U% UNTYIINPACKET-INPACKET-OUTARRAY-INARRAY-OUT~>_i|fZQRz)D k+l0D~@`0+ "-,,8,8,8 ,87@g+K[gZg[ Bg~ Dg P( 1B++-1B,+-1B,+-0B-+. " A +G1B.+21B.+21B/+20B/+5"h & $ g} "+G0B0+9 & A $ g} "+G1B0+;0B1+< P( "+G1B1+>0B2+? "+G0B2  0+A "+G ,G,8,8n-, g| -, 7-,,8,8n",<( g $ B` g}ZgZ Bg+%/ & $> g .+A $D  g?5BV ,V,8,8o g~-, E-,,8,8o",<( $ gD1?5B] ,],8,8p g~-, G 4-,,8,8p",<( $H g? f5Bc $ g?H & $H g,<q,8 p0n+w "K $t-.2h $H gx? $,8 gw? $  ,8 gw? $,8 gv? $,8@ gv? *,X,X,X,X L+0 B` 1N+w:p+d `1N@ +~ ,~,8 ,|,8,8g}",<M,8 ",8Q",<(// & $Q@ g .+A & $R g .BA!+A g-,+l0D>+ $H?" & $H,8 g~7@`+ "K $``-. gyT+ `U+ ( "/+l0D+ $? `0 -, & $ g & $ gP(0+l0D_+P $?,84B [ ,8Zg $ g~,X+O $ g~ ? $,8 g~?,8 5n4 "K0 $*-. $H gw? gy[^ + 5B0 ,0,8 ,.,8,8g|", 0<M,8,8X,8q",<( g^ & `0 $ B` g} g_ 0N+:"  & $Q g} .+A g~-, +N g_ 0N+C ,B,8 ,A,8,8g|,8r",<M,8",<(+NA `5NG g~ $_ g} .+A+N0/.,< &p $ g} g^ /`,< $p g`//C /+l0Di+_ $? $,8@` g~? gd `.. Np "p B`0 1ns+\ & $f g~ .+A +^ & $ g~/ "+l P  0D+b $_ .+A+l0D|+e A! $i .+A+l0Df+z $?P d 4ny "K $p-. $H gx?Z,8 $ gx? $,X^+0D 5Bv ,v,8 ,t,8,8g~",<MD,8,8X,8r",<( & $R g .0A+A+l "+l0DQ+,< ,8l $H?[,8,8 ,,8@,8s,8s,8g~",<oZZ8[8 8(Nw Np "p B` 4n "K $ -.0`a" gx gy^+ 5B & $Q4 g} & $ g} "/C"/+l0DR+ $? & $ 4,8 g~ $ `s $t,Xs +l0D+* $ ?,8 "K $"-.2` $H gx? gy[^ gy gy"v+ 5B) ,),8 ,&,8,8g}@B",<M,8,8X,8t",<(/ P(0 "+l0D+< $?,8 "K $3@-. gy gyv $H gx? gyABZ^+ 5B: ,:,8 ,7,8 ,8g}",<M,8,8X,8t",<(+; ( "/+l0D+JZ[,<0@,8,< w2/`+H[g & ` $_,8 g~ Np .+A *p,X (  Q :w+?// P 0 "+l0D+VZ[,<,8 p2/`+T[g ,< &p $| g~a .+A:w/+M/( / "+l0DZ+g & $f .0 d+A "K $]-. $H gx?"T+ 5Bd ,d,8 ,a,8,8g~@B"",<M,8,8X,8u",<( & $R g .+A+l ,l,8,8u**U*w-,wn stream operation - ~A 3p xq@ x -,,8,8v",<(/0D"/,xXX D"XXXoXX"`@0XX  & $ .+AA`,xv & $ .+A,xy@*,8-,,X-,* $ .+A,x {*,8-,,X-,* $ .+A,x]@ LSUBR-0,8 1.+ 1n@ + ,,81n+ 7NToo few arguments supplied ",8 `U gLISTIFY $M-,,8&OPTIONALCLS-FLAG(`&z(G=}-,,X-,,8,8O", `<(*EVAL+M,<1n+ 0Z(+ ",8 Z( $H@,8?[,8 $ *g?,8 ,!D0,8,8O,8P,8g~",<oZZ8[8 8(Nw Np *p,86@g~+, (4n+ A@ "K $*-. gy gx^+ *U*U5B,Chaosnet Lossage - cause undetermined.w8B       p   x  x  +L,<,<P,80-,~ g} p ( Nw "w Bg~@`0 4NJ(NrA.-, -, B`@ 7@g+6XCg+7 Bg g~(NvA. Bg@-, -, B`7@g+