;"I(U+U*uFLUSH-MACROMEMOSQUOTESSH-BUFFERxDEFPROPSSH-BUFFER MACROMACROxMACROFETCHU*U*LENGTHWrong number args for macroERRORSFA-GETMACROMEMOSUBR,8 5B `1N+ ,,8,8 ,8g@  ",<Z`[z '$f-, $-,2 & $ `/,x]:] (SSH-POINTERxSSH-POINTER MACROx,85B@" `1N+ ,,8,8,8g", d<Z`[z g$f-, $-, ``% & $ `/,x W+TSSH-LIMIT xSSH-LIMIT MACRO x,85B% ` 1N+ , ,8,8&,8g",< @2Z`[ z '$f-, $-, & ] $ `/,xWHICH-OPERATIONSU*U*UTYIUNTYITYIPEEKINIT-BUFFERINIT-POINTERINIT-LIMITREAD-POINTERSFA-STORECHAR-NU*U*UPNPUTCan't UNTYI past beginning of bufferu:UjUpSETQxT+INTERNAL-STRING-MARKERxChar UNTYI'd doU*U.wesn't match last TYI'd charpxxU*UnuUnsupported SFA operationpxxSFA-CALLP STRING-STREAM-HANDLER,8,8,80D +* zVff`+j0D (+- $+j0D +/ $+j PbA!0D +2 $ +j0D+4 $ +j0D +D $,8 $ g~a `2N+; g-,+C $ g~  ` `..,< &p $,8@  g~,X//+j0D +Y,< $,8 /. Np" *p,8 5NM ,M,8,8k",< `0+W $ g~ ` g3N+U1 ,T,8,8l,8g~",<+W ` $A@d g~// "+j0D +c $,8 $ g~ `2NB@+` g-,+b $ g~ `"/+j ,j,8,8l*-,0@  g~-, $-, $-,0``",8",</,x%jU*Wh 'CONDNOTMEMQCOMPILER-STATETOPLEVEL*EXPR !!xW+U*UWITH-INPUT-FROM-STRING"xWITH-INPUT-FROM-STRING MACRO""xGENSYMSTRING-LENGTHSFA-CREATEFUNCTIONU+]jUStringStream%&&p''x'x*APPENDLETLET*D,85B) `0.+s ,s,8`,8*,8g",<Z`[Z,8,8@ ,#,8 ,#,8 ,#[g~Zg~[Z [(,8Z([*,8 -, g~-,,8,8,8 " @5B "-, g}-,,8 " H5B g|-, $#-,-, 0 g}-,-,,X-, g-,$$%'z d[~@,8 g~-,-, `*g|-, z }Yk-, g~-, e $-,*g}-, z Rny{o-,` g~-, $-,*g}-,(d z <{z|O-, g~-, $-,a ,86@g{+ "-,+ " g{@',X-, g}-, g}-,0H g|-, $(-,-,`2,X-, $(-,/ &" _ $ `/,x(m;