From 52e4bb145ca19c9ef91f57f7ca8dab0a507cb03f Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Thu, 6 Sep 2018 16:00:06 +0300 Subject: [PATCH] Add repl.png and three unused files --- repl.png | Bin 0 -> 11663 bytes sbcl-init-for-test.l | 7 +++++++ sbcl-test-script.l | 16 ++++++++++++++++ write-to-serial.pl | 21 +++++++++++++++++++++ 4 files changed, 44 insertions(+) create mode 100644 repl.png create mode 100644 sbcl-init-for-test.l create mode 100644 sbcl-test-script.l create mode 100644 write-to-serial.pl diff --git a/repl.png b/repl.png new file mode 100644 index 0000000000000000000000000000000000000000..9beb0eefa342a28e9337dcdf2c560c52c55893de GIT binary patch literal 11663 zcmc(FWmr^U)a@BY7&@gTL{y|hKtMveL%KnvyGvk@mQlDuC7|6sgR zkdXxL|NUe(<;8$`x9QOT7{h0J1m-*W~0%YF;1$Q zXp$K(WXi4`D%2E{l9Y^#E{=;^Iq&*Rk;owV>Ezh|(uO1Hx#yst>+JcS_qPT>^8eZH ziyg!ssba67wV;tjVe$$<=AaC&Pr_Pw)3Y*RUv=Y4<{o7}0Z?ekxW&Mo-7I!^U^$9J z%o0V(1pN{?C&uWMqsF`lW1M^`ioaoSo%aI}-OlR*w$pmf1*}vni)=Z7F#Ko*IbHoG zctS$9RHS8NqqLr`clUc`8}~QPhgE6(Ie-5eS#Jf%Wm~u#B$ErP5M^_Ib3I(_$R$#! z3+(?%r6h#+2)%PF?>Ml%)38Cf3~Qq(pa8uu&_hhfgo+bms%tR^KzmwN5@`vLBh3TgF;2mD=Cx!alA7*$*2J)IpGD0mVqSSmR8Hp9cA zt8O$+*>)@ycGb(=&%rjpM)o5&@vW=Eu|+jM-)B5KhH*@! zCPy4jBh(J!0KCg2(hA-kAgq_Y%Q(-rTm~;HE!TG-$pNMQRx~i6yZw zP`IG_(_k(x%AX_|Qu+iq_7&A<$Seca1$@_aru3{dQq#XaN+M%74>2FO8vtLsbk>gh z)-C)l`%u5HHx?`Wp_~3Z*U{;sKT~o8pZyF}`c7q`bh}-TX>jv=LWqz8KR+-K_2O0$ zFAiwLe+bZ_?E~t2uDn0tUC~AsfCIsbafXHs2_YvXTv^+HbHtN3vAn|eiQ;=py6fY? zu(YGK*EfhTHaoU~-PbiXYs}`Kk0Sdxv=sF}6DJXm@iTppzeusS6gycQ%7fTu4jnwl zi9&A%zM>v30-R(Qm}L+ns6Y4B38xA35Tz5uO^nP5TL)qXxFt-w5^pf3uR-?U&NetI2kPRN!p$@e4JY9$G1Aq&_j~ddThy8%WqS-@)G9Suf zoS_**wYRU$@6cXr+OO63a3Em*`Fia|O_Q}8oprDVa&yw%JGb*;QW>RY1p0&5FVZ*j zemJnbkmKpwpB4D&zD-{A%~r@W?d9ef{@29nC(Jev;F*~zhV>dB7Ou|;nw-s&5DO$o z{T3@ny6o}7kr9vfj;3sl`Qi~`(uXfc`;oB;2}#bb@o(Htl5HoM1yvq?GG)_Oc6Zsb zGhNCa-R$Z4>EfzlSoibqbXB2HWp)M{3W2!S{bJ0(M}or>`7`qGL{|qg)>bw%xbyFV z(Z%k{bUf%33!c)(Qu*RJ69$5A*4Hs<0pFGG`Ic0|u077GJSw#k@<&KUmch~N zvB-H&UbE3Clt`fd!W>lh(<5(((LdjEN_1 z=Mp3Z(m|yd^dNXy6%xKfv~PheNjYiJ1T0+7`=HRm(=`F2FHa05j84xH zD;rbJ>jTPE(QgsH&(1dvD`Xi9j(!~-5$7KL0Ij6M%G+l*b9P!*CNES8egkrAllfUv2s-_+;S(RWD-9Psp7=N_R9npZBKw*^lqNW&z4rDhFDh3~}yL?KI zQT8AdQVqbdQ1T|0N-S{{UJ~k&%mSO;4kfgV=n4%elFB_k9pzV}j*`9m*e1-$p317k$C#>sx_h?3DjJ z!Z5L=o@%-#cw6B2;bxsQ%f&C>?;4#-N!Q*Q)sHOAFyw^m*AR1apHa3Xr1>&G&Ha0Q zc1rVH@oVDz@4naX4Srm43%OmO2H0N-`^8GNS3YE*P z25xSiF+ML|2<(NUGcwJB!eM;j|J%^A25pVqD1B)tgYkoT^Z|;DUTAW@ z=+-S>Ffa(HP~a6pRP{$o1e_jV0-b1vfpb@vY$qg^@WZQs{bV=&U3l2ZXc0UK3^s9k zG$-g9+5$Cc;${Up-1_Q~6ZQsLBgP5r!zrE>@H6nq6#*3i9bF-vO#aL15hwbw4dN_x z&PSNgwJl4%v9W4(@`bJCGvsieY>rn9EZgS7;3~we&FziP8#yDns%IH_!H+Vv$T3}8 zTge0jJ&MhmK7PE*X?b{2-J`Eva^tfx61&2i8W47q4e9YCWhWuSmotR?cYpSz8)=!JQ^Kje$+hiPj zp_f-QQV#Vz_Xp(V-%ggEhevp$!F5=7CwBEe%i@YLlmnTgx`bs5MNtsHK!WeYQ4E>VY!NMtKm4o9c5=<3QZwr|8UktXBbPH zK}F85U8G6*^K+J8_iW<`K9X6@Px$Y)lA}Y9e9zDGN*L$g3?dwMcCVY!u8<_Who?#! za{jsR)BT=O!xhP}kycue&Q_>SnE)Xq*cn2oE;#-XOK;AbCJ%>vMM=@qzQV8r zO2&`g$mBf5{26t{hikpa<0lD&+5$W#CRL0OlouUSemcD)|LDstS;b=!RvWm$>Yb4--ONsBYP!)uRX<7qBDi#8lQjTqQ;9_sM((> z7Bx0bZ7?sLrS$&_%BlA-Tw5A$k&4XY;UP#!FmGr$=P_u1_^^Fp-kvvCK;XHHOX1#- zpdnJIQaV?lc4zUIIZSxktI^}4DykiKlB|S4_*!+HD4N>fUy?|aR? zMgMyXU|Mu!zQR6tPR&NmxyQ`G+(`c%UT%Ls_pBmu)u{K@l0bUA$n* zFFcPu4_rX_w64qwY@KSi_z-7vMty<$5qN$=HwSx-zp}kf4mk?2QnzEVED(BSHnz+L zF#>RFj_`)_Akk`CLeMBQpbr>;J{E&F2lif!1XTEYCGZT5=i{fbl+IlcPyDi)E=lA* zwSHP)PFlrT!@Ym$rV`6X8}cWlyw|KEet%v(>B~>8BF!4d`{rmR6Vs*D(LCec?t&$P zQ~xLuq%y@|j^lhmxZzB7slHx4bgHVz)@c5Z5J#3_!+G$dxX+LM?t>SHQmqN9 z=hi1pS#NZ6H8ia)t^8GdICn87DC&J^+08AMR61fwv47lstaOox^UqAYIVxOxG8WdL{-_go>2r-jJCP925;Vxlox@s8Mm= zSg%8?uZ#lCQMf4d4Sb3P>JxO;_a{e;P7({22WW)vD&LwVMg8c4+Md3!bXk4&BUF|@ z^&46Gn3E16{NPL&aBrXC_J&*l68-KYqC8tF|Pe3wZ5QJ20Axj>+#FM!4JZe zp!?#*Gun6u(@P7vxGDm(5#rSlP*Oqac5$XDA`-}X3gt4|LAf+qSqhC`h=Bn=MCwRpq zPO8b@B{#n`j2{6b4sqy)CCTxXbq#>G2PJ`I+^N0-Ug12#__473Wd`cFk(Uv*7RxJG<^a_~%m1KCi~k<-4uzqE(Wq+Q zEgbk6CA+A;2sjb{23Alcov_zAK~)4plsd5YfH3?#&>xNyhsOvg6!Fq+!jV^}A_WLa zRiB+t^Bp61t}RF{f9j zJFS~Y_LXmi`U7edC2m4Ok1-4HxJvnhA{5J}OQ+Q<4g2K{EZd~g*}R;+s~5pbhwwp& z5@Nq>!#8t>74Vo5-eJ)SknOM4>GcAL9;WltzE z#a#>)54Z{1+Y=Dk(93jj%5;^@=<4JNJHONN_m|pXH@J|@d4Yv<{k!u=ZnRSG7Tx}| zyPSAyQtOlA!3_PWyuoLmWkD-U)VYE@SSzt9;GXcaEVq-%L%{c1wW|JI*q!rHY@i>S zP}COTkTB}cpss9gE_yE3H3>eeKpbJh5K0M$mg3QCPMw^IhvwwqWTon-KxJRY)m|^p zCFt?jd=n^NlT30p{C2Ytzf2a}t1_6RCrk4XpP^hhG9qUnkoerU)PS|M(5Fas#k;D! zT>F}zM?b6a<78PAdeTx-!u~EladnAVQ2vT<>fmsT+tfS`rXKt0K2S4I@wxi8Jz2B& z=U7$tcUnwLMqfV-cp6Z=>gWo19Q83e+V2NQGuT)STwNXahsX(x8odq};P5?2h3CNh zb;mpnj%TvX_JD(st*Px2(T*utb+T&wNLLgnKWmQ|e_j|RGP3E$l2_VTb}e2bH`h4r zUH72Ys)rY>IOAiV?_b*>4h;j(XTLc(zVIv_d%^HoK59K&>aX-G1!Nb-1ee?C3@QW1 zbJ}~#JJgG8o^|%{SB#Ls@!X`1>XTHo4SVf<=8xBu_l9Hy~T?ybJnNhRz zGTntcZQX2_(?V(KesXJTZ|HSk$V(HinzFL2b8kZdpVg;bNf)`JL6O#rG0m`Q2nTQ* zD2AeCg8YOt(#Hra;^*y#hGDW5xdx@aAbn`?yGM}WHGAuz<443oFjeGS?P1sHw*I9b z(I_ydCU`)5KnqpVPE6dJpC{<=DFc%zb6e{))B@DRj%bH98qgxa(RjSQO%w*8SoR~QBIn)>r|Bd>T_SlEkp)shN{ z6R?u(9L)D7dis$G`jc3OEp*qnxe`fRhIq@Z?;@sp<_paS6WM&L?L>dxdYU!cF7j+d zgzuSA4OzQW8!x=Nj{P(D%q{Zr@!Hj&?F4qp_H3EEYfQM`=j)@;!V_`>O!q##N zU93JiEYtmdVs<7xUoH;<=r7FZX=#uRJ)yT7+of~=((}D-o&v+9S4e-%y#FjKRacwY z2fg@Fv0}qYR4^{UH^BFAWIO5oy-(oJLON(|}w4o&g*#XubJj6Uy zbr$i7N~x8_p@_hRlZhWe3$!nH>vx2A>8>xhfX&0r8i#pqdtL+mIy9y}_LX^QNdhq{ zfUt%CuJs$vub_|5*)ygX8l}`chD%~SdHwrss0#|%?XB)5+grm;9r1V?zv_0cD7%1K z*Z7t9wvrBBx#X;e>e#t`rX#b48aru5; zInU2A_qzH>=avjP$~!#a)Rr;mZ+K%gdzvlFsCV8|9|_|~<@<%{Nt6dB#HyvS;f0u^ zc`gQ@xDfzY;w%41jV@^4FXNh3Ajy!Rk;1`Mnml?UlVl|9eENG(#z$n-b!Xj7bnnu+ zjm6-0m`YMoDZO?c!P>)&rh03^B19nc81|Jkk@t3Y;q0#ZV-(stu>PwQZ*5*oQW1Ji zzp8-^=Yvjz=k1ddPMCgA9TN2dCxO~%2FP6K^QZkqJNr01+&Z&FxkR8q&HASPBKr1S zaYh3Tz>}hz$CW|*?UEBdWo$zA1Kt8 z#j{%?=WjP1NTf~Mim1_iVOJhUyQc=F8~ZubNGkVO3?j971t<`6 zjaX@d0N;y0yOzg}EBwm5|B}o9uPxhV=k<;x1JUwX#IH6^7&UOKJC?&s_7MoPlb&_e#>qV8pKtM%x9B2_H}0ik@b14l5X06<=1sT z&8+KsPafmmlfLp2NVY+~O>t}GC;8!+zBe;`zH?TgXMcQY#@@{`Y{Sf#_o}pZX*jOu zdxb|I)#aUR3%h?}b)vbH`8%F+-#FjFJl}!HZ<7v^4WS0!eL}As7iR-MsfOqwzzBD$fQ!`oO-3qqVKTS_PNuUAkE#311^8(Ola&yxoA? zwYTqU?bq=N?V{eXx`Mh+>&(Fuktg$%ht~TlJRFvMP6@;XD|MQK=%;w~K7Y4*C|N4L z{7h9Ba~CwU_Ai)~!_Q=_`Mxx~!Ic}PB10D~U*WMg4Z=}Df(@YTubd;Gn7pM+#Cxarv2p66WSin^=WfY} zI!0lUxtwU3X!Gjk8uvjuY56+R6DY`evHUOC=;?gSG_2M|5FE097}d ztPGN?>hsFMmTv^~9K3^y7JR1N!Qml9Z*ewrj_K?#n4geIKL8(x*w?%}MqI}Inf!b5?pmqV^ zU>TCOFprBWjYOpM6)z1_9E<>^XGS5qA!+loZej00A}}prd(J*@yKZ`ZQ@9T5>IK*& zYKEm4`1fu)d84OkbAv*Cz5{mxLS#EY=8MU`X_4NV_|kesnugaN3rW{hwIYZZ5n;rx zu9iXdyJ_sUH%Mvwu*zMLf(Di3*sAy{t)hOFUX>{M+51!fCGL)7WRX2$)9)h;UC2vd zqp}{HWE@}i_8SWII3rcRavr{Z%pH>2(>bJ?Lbi|6?)Y*yE!dm{RRQPiza9bA4gPuK znlm9Ma;yWA%s(OJr==RW zZf+Bi(w-Xo{HxmlTG&u19CL#7vG5u}f?rNXl(kDC&uSwZU5 z5jPo%>tn9ES7l(HH8R}g491LBj21{scz%tGDSsv$6k4yVmy}>6MtVC(Bg5>sQZ(WN z&S5RWI?ErjNWjX6nD6`J{x>AeDWKw+uH*W5HpcanYKNg{_PEvk#YU{PZ60XK{Y6h0 zuT69THetv6AaHd7;lH&2B*Sx~@TFwxTSK>_!xihIJlzHz=+wbhC`iwEyL(n*T(Tbj z-S{NL#_6V$9|t}2tK#s{b$cTnD9d_;dlsehaQLTXZ-l~g_O0gMs$K>wuk`t6TB>iV zKpTS5%258hCVqcq|C!LGfD~)gg^N``at6AFD=YZrWlP(KrHdIyiQ`u3(a9JO80lpHx(0I>y&YG8=j=LgPIm4}W)yhS-zelcG zrWSIcQWcf(mtuf;$;9v^-DS$C3AQ*r*~2q?zH!z>nLTvB6N+ zgZx~zE$%8=Ru_CH2QS5tmrj#>ae~r0f-JD2z4(TE%iaJ<2DRx0>+`F_En33^tM?A? z-#e^4w?-)5`5)C~tcz@4{{cBQ)lbFqi9LxmJV=?(*%nBv>jPBtMxXAe07DFoA=Wq~ z!-gdoAot92#KoheLR&mq>h%?w;Q`yR!iarmET_%W52cm?zI?m;m48NfX#MYEjdF>WlOHYTtXf@BsyidNa&_ z&pW9@-LboKz=#{3QG4g`aiH^}>2T=rx=oB+w&~)Z2_82ctL;0apU~x}r|$sD2+CfB zu0!MF(;Q|kEV*6-2M23gYmg4_+RbIg<3xD1e!(Jk?FKvJ%jca7+g+n~$~^5|m0&0; zTciFg=>CR)lAzrOGqW^^Jup=_WA9}zFTRQz!39R z(7i=c>C1ll8A(MO{-3gT%J;xkm%i0rt|TQ=yd@3Kv5#u=rle0kYCJ7$heqV_r3+T< zM#=3Vu9kB|?=Ch7OsByhJZSvIQ5^92>UzW1rjKjF(L)r$iD=yRZq3Z`)pW`M;6u-> zr$GeGd+B5`lXBcJh?sF!-oPTf!lG%U0Uq7%T1mg_tnFC#@UN|S%o4BL8|l4M;VGafe)Z}s`vzqphP6x3#i~JAt?nm99&6YLRTOvWctk%u1}uFT=43956$YX zOts_RtWt%SlJAB$q;filop(yhx7U%5>AyIqUF@$e-DDiQ;IxoaS?FU4iQw%z$~22H z9eQqlV$`8#SHS(?J}+6Eo;==RU6JoU5+n!hl=0S#V1CM;%T$!#>A9W9SlT{B;R0*@ zrTj{_xtGY&DV#yWd3y~hHAhB?@M0DxRT9M;0~IT5m}P(^0797E^rNA@&mI!Sbg7=g z``6A3lV1Y>R9~YAmcC|TVY#mXE0O-RuK0qtQLa!|a&!gW)(un4e_!0guhDk0t3k2h z=gEZ|u!o%6pJrboSsMitSDPqJiOVD1xH8np{88HH1%rqtG`}>>wbef6Xo66g{^agH zMHiW=Th$~hOzO8^j9tQlEQCv?7Y#!BvGZfII-@SE)Bj1QnLjOhxJ;MnKBibj086k;Rx z;{2`(uC6S{&nT`yfUtYU*X^$3oTLUpHEy6)@l(-*zo)LVw;;k50z83qyor9TANIvIa)a;?rMmPMaqL%C97q8z{CzC7cFxsiEXJS(N$ z>awD6%NTN>{p&1+XDA_@l6LiO^;5Xv_Bu1s+pV2Ai$#WFtdMS*<}M8^+Yp69hFS*AjvM-1vXm zhFc8B8^UwBtxF4xP30f?wP=t|dS?h$1Iab5(|dRmMb&ZfnIg zD6juiwYD&QmLLbQ8cPLlShV4mRYF>FEM3EA$SwAT@CU&waLrnk>*Tj-CwZg>)al5T z>UL?PT4FjT@{#A#Adb>mS7Ug1J}t9wO=epT4bXn`(A930>oE-YU6)$n(kY*z{M_@a zZ_T;I@9^+cd#VGwZ7h0IWAOy>ru3!BJ;Ai zSkjf#CCR1oHZ|N*S)EMQg4I{$y zFB|+8;6bgw{wz?U)@t~9V1z`s+avI%R$4JRe>q(>%Kv(*cRXAmx9Q3R|Lv zQgv|DIxQ~~K;CpcIu}I+-h&d9;j`?X&UR2xAF_{<`+qL4vtgkd{-q!U{M-vMcKHxt zj76koM$Gd-5|k<=CEH(${r3(4faP#hU-So|J^M~jZdv$(5p4X8XvJ`l=SF*RaTVo7 zM8rGu5~Q(xv)rynp7FWdFW|Fd2FovpEPW9Cu`Qd^BMJXC^XJD+8PIg0=*^eD>vp~> z*Eidjz|q^|zV{X+iHhMm6pyRoLRz8pH7400StY$ zwXjF5&U9-V{)jQ8ZP@Si!=(hh^X)17y8^{&Gx^xNitCyBKcCtekkUnJwlOy!-Y;lh zJIpm|#*!YezhlUTE!&7?va5qrmhs`W_w<(a1p5TQ*I2)_;V47-f+5?YU<?S>wvu7E3e5qnso|ZaEur4;?6$n3Ot$43@juP^yDG`NsrpL{uJ>t zM>9wgO$o*Q$7E?kEvqvGTCQ)vp~2sPB?~T?BMguU5K8@=%;j)cn?bkt{$F5NQUM2T z?R0K>8JxQtyO=pbVWr<{ujKYsaQBIc)Q(jPBBw5xN}1Ji+jAe9la61ogVrLrIptzt zFv24w0u^i`BCh}5xwX~6rD)2FF#tW4@6}t-*v8S(;{WXk|K$E literal 0 HcmV?d00001 diff --git a/sbcl-init-for-test.l b/sbcl-init-for-test.l new file mode 100644 index 0000000..8c97e41 --- /dev/null +++ b/sbcl-init-for-test.l @@ -0,0 +1,7 @@ +(defmacro named-lambda (name args &body body) + `(labels ((,name ,args ,@body)) + #',name)) + +(defun reverse-list (&rest args) + (reverse args)) + diff --git a/sbcl-test-script.l b/sbcl-test-script.l new file mode 100644 index 0000000..61a931c --- /dev/null +++ b/sbcl-test-script.l @@ -0,0 +1,16 @@ +(defmacro named-lambda (name args &body body) + `(labels ((,name ,args ,@body)) + #',name)) + +(defun reverse-list (&rest args) + (reverse args)) + +(defun fake-repl () + (do ((+eof+ (gensym))) + (nil) + (setf - (read *standard-input* nil +eof+)) + (when (eq - +eof+) (return-from fake-repl)) + (format t "~A~%" (eval -)))) + +(setq *print-pretty* 'nil) +(fake-repl) diff --git a/write-to-serial.pl b/write-to-serial.pl new file mode 100644 index 0000000..24c1d06 --- /dev/null +++ b/write-to-serial.pl @@ -0,0 +1,21 @@ +#!/usr/bin/perl +use v5.14; +use warnings; + +use Device::SerialPort; + +my $program; +read STDIN, $program, 1000000; + +my $port = Device::SerialPort->new($ARGV[0] // '/dev/ttyUSB1') or die "$!"; +$port->baudrate(300); +$port->parity('none'); +$port->databits(8); +$port->stopbits(2); +$port->handshake('none'); + +$port->write_settings or die "$!"; + +my $bytes_written = $port->write($program); +my $bytes_to_write = length $program; +die "Only wrote $bytes_written instead of $bytes_to_write" unless $bytes_written == $bytes_to_write; -- 2.39.2