; Y\QU*U*UPROG2CONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCQUOTEU*U.U;Loading LCHSTR DEFPROPVERSION      xORGETU*U*uLCHNSPLOADPNPUTdsk:lisp;lchnsp fasl   pSETQu*]jU xPUTPROPT+INTERNAL-STRING-MARKER  x  xANDFEATURECOMPLRU:UjuSPECIALCHAOS-STREAM-ID!xBOUNDP# xDEFAULT-WINDOW-SIZE!%xu:]*# %%xDEFAULT-TIMEOUT!'x# ''xMAKE-CHAOSNET-STREAMSUBR ,8*U*w,8chaos-stream-object-~A +-/p xqb  x,8 ˀ-, BK0FORMATo1 & $CHAOSNET-STREAM-FUNCTION3SFA-CREATE%4R & 5SFA-STORE & 7RHR ` & $ ` 9@2 $ `% ; `$R' $ ` = $4 ` & ? `%CHAOS-ALLOCATE-BUFFER 0 & A ` & $ `u.U,xHforget-macromemos|CHAOSNET-STREAM-KEYWORD-DECODE! CxDEFUNMACROU*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 g4i5k6mp7 7x 7 x"CE#G#$#I%K&M'O&(#7Q )#SM'*#U +' W,Y-5[ .]/_[ M  7[ 0[ M  7 a1 c2; eU [ 3  7M ' CxCHAOSNET-STREAM-OPENu*U*U! oxCHAOSNET-STREAM-OPEN-MACROARGARGSLOOPFORVALUEONBYFUNCTIONU*U*UCDDRINDEXDOSFA-CALLCLOSEIFNULLSFA-GETErrorU*U*U handling OPEN for ~A: No host address specifW;U*wied. @ABCDE p x  x contact name s @ABFGE p xu*U*U  x%CHAOS-OPEN-CHANNELSCONNECT-TRIESFROMTOSTATE*CATCHCHAOS-PKTIOT-ERRORU*U*U%CHAOS-REQUEST-CONNECTIONUNTILFINALLYGET-CHAOSNET-ERROR-MSGsome error from chaos sitW;U.We NOPpQ Qx Q xCLEAR-INPUTCLEAR-OUTPUT"oE8G8$8I%K&MqO&(87Q )8SMq*8U IU 9 s ': uq ; w< s y &[ CM ' =[ M y:[ {M >U }U ?[ M 5U 3  MU }U ?[ M 7U 3  MU }U ?[ M HU M HU [ M ;U 9 s I  H J    &U K U L[ M H[ M 5[ M 7[ M [ M   & MU } O&[ QU M Q[ {M [ {M RM  oxCHAOSNET-STREAM-CLOSE! xU*UjuCHAOSNET-STREAM-CLOSE-MACROARGCONNUNLESS%CHAOS-EOF%CHAOS-CLOSE-CHANNELS"ESGS$SI%K&MO&(S5Q )SSM*S[ SUU [ M H[ M H T?K U xCHAOSNET-OP! xCHAOSNET-OP-MACROARGU+]ju&RESTBODY< NOPpX Xx X xFAIL-ACT"EVGV$VI%K&MWOO(V5Q )VSMW*VU }U ?[ K W[ QU M X  xCHAOSNET-STREAM-TYIu*U*U! YxCHAOSNET-STREAM-TYI-MACROARGEOFUTLPROG1CARIBUFCNTWHENU*U*W<=%CHAOS-PKTIOT%CHAOS-GET-PKT-LENGTH%CHAOS-GET-PKT-OPCODETYI1-%CHAOS-GET-BYTE-"YEG$I%K&MZO&(7Q )SMZ*U SUU [ M 9U } U [ [ M 9*U SUU \[ M AU [ M U ] U M[ ^U [ M H \[ M \U U &?_\[ {M ZU &7_\U Q[ M U &U {M Z[ [ M ` \a\ YxW*].UCHAOSNET-STREAM-UNTYI! xCHAOSNET-STREAM-UNTYI-MACROARGPUSH"EbGb$bI%K&MaO&(b7Q )bSMa*bU M 9U a[ M 9 xCHAOSNET-STREAM-TYO! cxCHAOSNET-STREAM-TYO-MACROARG%CHAOS-PUT-BYTEU*].W1+>FORCE-OUTPUT"cEG$I%K&MaO&(7Q )SMa*[ SUU [ M ?U d[ M a U } e[ {M f[ M ?  cxCHAOSNET-STREAM-IN! xCHAOSNET-STREAM-IN-MACROARG"EgGg$gI%K&MZO&(g7Q )gSMZ*gU {M Z xW*UjuCHAOSNET-STREAM-OUT! xCHAOSNET-STREAM-OUT-MACROARGWORDTYO"EhGh$hI%K&MO&(h7Q )hSM*hU {M i xCHAOSNET-STREAM-FORCE-OUTPUT! xCHAOSNET-STREAM-FORCE-OUTPUT-MACROARGu:U*U"EjGj$jI%K&MO&(j5Q )jSM*jU ][ e[ M ? U MU ^U *[ M H[ M [ {M R xCHAOSNET-STREAM-CLEAR-INPUT! xCHAOSNET-STREAM-CLEAR-INPUT-MACROARGWITHARYCHAOS-INTERNAL-PKT-BUFFERICHANCOUNTU*U*uLSHNTHSYSCALLWHYINTwWHILERETURN"EkGk$kI%K&MO&(k5Q )kSM*k[ 9  l &   m &U [ M H s  & n5o7 mp  eK ^ml M[ M =[ M 9 q  xCHAOSNET-STREAM-CLEAR-OUTPUTu*U.W! xCHAOSNET-STREAM-CLEAR-OUTPUT-MACROARGOBUF%CHAOS-SET-PKT-LENGTH%CHAOS-SET-PKT-OPCODE@"ErGr$rI%K&MO&(r5Q )rSM*r[ SUU [ M [ M ? st xCHAOSNET-STREAM-PACKET-IN! xU+UjuCHAOSNET-STREAM-PACKET-IN-MACROARGARRAYFILLARRAY"EuGu$uI%K&MO&(u7Q )uSM*u[ SUU \[ M AU M[ ^U [ M H \[ v \  xCHAOSNET-STREAM-PACKET-OUT! xCHAOSNET-STREAM-PACKET-OUT-MACROARG"EwGw$wI%K&MO&(w7Q )wSM*wU SUU [ M U MU v [ ^U *[ M H  xCHAOSNET-STREAM-ARRAY-INu*U*u! xCHAOSNET-STREAM-ARRAY-IN-MACROARGDOTIMESISETFARRAYCALLFIXNUM"ExGx$xI%K&MO&(xQ )xSM*x[ IU U yU [ z  y[ {M   xCHAOSNET-STREAM-ARRAY-OUTu+UjW! {xCHAOSNET-STREAM-ARRAY-OUT-MACROARGOUT"{EG$I%K&MO&(Q )SM*[ IU U yU {M |[ z  y  {xCHAOSNET-STREAM-EOF! xCHAOSNET-STREAM-EOF-MACROARGMSG"E}G}$}I%K&MO&(}7Q )}SM*}U I[ {M fU MU [ M H[ {M R x$,<,8WHICH-OPERATIONS0D~`COPENU*U% UNTYIINPACKET-INPACKET-OUTARRAY-INARRAY-OUT>i|fZRz)D k`@`0+ "-,,8,8 ,83``As[ Dg P( 0W+-1B,+-0Y+-0B-+.5AAAA+G1B.+20]+21B/+2_+5"h & $ g}7+G0B0+9 &AAA $ g}7+G0a+;0B1+< P( "+G0c+>0B2+?;+Ge  0+A "+G ,G,8,8n-,1 g|b-,7 7-,KoQ g $ B` g}@Z`K/ & $> g .;pD 5D  ga5BV ,V,8,8o g~-, -,KoQ 7 gD1a ,8,8p g~-,`4-,KoQ $H ga@3 ; ga` & $H g,<q,8 p` 2h $H gxa 5a 7  gwa $a $@ gva *,X,X L+0 B` 1N`:p` `1N@ ` ,8 ,83Ko ",8Q",oQ & @ g .;pD & $R g .;aACpD g-,`0D>`# $Ha@A & $H7@`+ `0`1`+ `U`! ( "`0D 9a `0 -,7 & 9 g & 9 gP(0`+P 9a4B [ A 9 g~+O A a $ g~a 5n4@0 $* $H gwa gy[^ + a a,8 ,.,83K 0o,8XKoQ` &00 $ B`_ 0N`u"  & .;pD-,`_ +C ,8 ,A1,83,8r",oKoQ`@ `5NG .;pD`0 &p $` /` $pa//C `0Di` ?a $@`a3d `ˀ Np "p B`0 ;+\ & $f .;pDA+^ & ? "`A` .;pD`0D|`AC $i .;pD`0Df` ?ad  $p $HaZ $ gxa $^+  ,8 ,t,8,8g~KoD,8XKoQ & $R g .0A;pD` "``#,<  $Ha[,8 ,8@,8s,8g~K<oZZ8[8 8(Nw Np "p B`  $ 0`a"3 gy^+ 5B = $Q4 & 9 "C"`0DR`3 $a & ?@4 $ `s $ta `0D`U Aa E2` $H gxa3[^3 gy"v+ 5B) ,),8 M,83@BKo,8X,8tKoQ0A "`+< $a g@ gyv $H gxa3ABZ^+ u ,:,8 o,813Ko,8XKoQ+; ( "`0D`Z[,<0@,<2/``` & `  g~ Np .;pD *p,X ( P@;`/ P 0 "``Z[,< p2/``a &p $|a .;pD@;`(  "`0DZ+g & $f .d;pD  $Ha"`+ 5Bd ,d,8 ,8,8g~@B"Ko,8X,8uKoQ & $R g .;pD` ,8**U*w-,wn stream operation - ~A gp  xq@   x -,,8vKoQ0D",x111 D"7"`@01; & $ .;pD@` ,x  &  .;pD,xy@@,8-,,X-,7A $ .;pD,x@,8-,,X-,7A  .;pD,x]@LSUBR-0 ++ 1n@ + ,,81n`Too few arguments supplied  `U gLISTIFY -,&OPTIONALCLS-FLAG(`M z5-,1,X-,,8OK `oQ*EVAL``,<;+ 0Z(`/ " @ $H0a[,8 A@a ,!D0,8,8P,8g~K<oZZ8[8 8(Nw Np *p6@g~+, (4n+ A@ U gy^+ *U*U5B,Chaosnet Lossage - cause undetermined.w8B    p  x   x  `,<,80 p@`0 (Nr+-,-,1 B`@ 3`m+7 Bg(Nv+``-,-,1 B`3`y+= Bg(Nz+-,-,1 B`3`+C Bg(N~+ -,-,1 B`3`0+I Bg:p+. g//5 MAKNAM`D ,xToo many arguments supplied WRNG-NO-ARGS7 X x;