From 6cb99e3ea911190e3b73adab3a92e75ef36731f1 Mon Sep 17 00:00:00 2001
From: Frank Duncan <frank@kank.net>
Date: Sun, 6 Aug 2017 21:02:15 -0500
Subject: [PATCH] Forever Buttons - Handle stop correctly

---
 .travis.yml                           |   4 ++--
 bin/buildlinuxexec.sh                 |   2 +-
 bin/buildosxexec.sh                   |   2 +-
 bin/buildtravisexec.sh                |   2 +-
 bin/buildwindowsexec.sh               |   2 +-
 deps/common-lisp/clnl-gltk_0.1.tar.gz | Bin 7355 -> 0 bytes
 deps/common-lisp/clnl-gltk_0.2.tar.gz | Bin 0 -> 9682 bytes
 resources/UI-test.nlogo               |  23 +++++++++++++++++++++++
 src/main/model.lisp                   |   7 ++++++-
 src/test/main.lisp                    |  13 ++++++++++++-
 src/test/modeltests.lisp              |   5 +++++
 11 files changed, 52 insertions(+), 8 deletions(-)
 delete mode 100644 deps/common-lisp/clnl-gltk_0.1.tar.gz
 create mode 100644 deps/common-lisp/clnl-gltk_0.2.tar.gz

diff --git a/.travis.yml b/.travis.yml
index 53ba83d..074107d 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -6,7 +6,7 @@ addons:
 before_install:
   - export DISPLAY=:99.0
   - /sbin/start-stop-daemon --start --quiet --pidfile /tmp/custom_xvfb_99.pid --make-pidfile --background --exec /usr/bin/Xvfb -- :99 -ac -screen 0 1280x1024x24
-  - wget http://frank.kank.net/travissbcl/clnl/a66006d/$(git rev-parse HEAD)/travissbcl
+  - wget http://frank.kank.net/travissbcl/clnl/6e06e22/$(git rev-parse HEAD)/travissbcl
   - chmod +x travissbcl
 script:
-  - ./travissbcl --dynamic-space-size 3072 --script bin/all.lisp
+  - ./travissbcl --dynamic-space-size 4096 --script bin/all.lisp
diff --git a/bin/buildlinuxexec.sh b/bin/buildlinuxexec.sh
index c384097..327e32d 100755
--- a/bin/buildlinuxexec.sh
+++ b/bin/buildlinuxexec.sh
@@ -15,7 +15,7 @@ cwd=$PWD
 mkdir -p tmp/deps/
 
 ( cd tmp/deps &&
-  tar zxf ../../deps/common-lisp/clnl-gltk_0.1.tar.gz &&
+  tar zxf ../../deps/common-lisp/clnl-gltk_0.2.tar.gz &&
   tar zxf ../../deps/common-lisp/3b-cl-opengl-993d627.tar.gz &&
   tar zxf ../../deps/common-lisp/alexandria-b1c6ee0.tar.gz &&
   tar zxf ../../deps/common-lisp/babel_0.5.0.tar.gz &&
diff --git a/bin/buildosxexec.sh b/bin/buildosxexec.sh
index 88a451d..17657ee 100755
--- a/bin/buildosxexec.sh
+++ b/bin/buildosxexec.sh
@@ -19,7 +19,7 @@ cwd=$PWD
 mkdir -p tmp/deps/
 
 ( cd tmp/deps &&
-  tar zxf ../../deps/common-lisp/clnl-gltk_0.1.tar.gz &&
+  tar zxf ../../deps/common-lisp/clnl-gltk_0.2.tar.gz &&
   tar zxf ../../deps/common-lisp/3b-cl-opengl-993d627.tar.gz &&
   tar zxf ../../deps/common-lisp/alexandria-b1c6ee0.tar.gz &&
   tar zxf ../../deps/common-lisp/babel_0.5.0.tar.gz &&
diff --git a/bin/buildtravisexec.sh b/bin/buildtravisexec.sh
index cdf9076..8ca2bf7 100755
--- a/bin/buildtravisexec.sh
+++ b/bin/buildtravisexec.sh
@@ -25,7 +25,7 @@ mkdir -p tmp/deps/
   tar zxf ../../deps/common-lisp/nibbles-v0.12.tar.gz &&
   tar zxf ../../deps/common-lisp/trivial-features_0.8.tar.gz &&
   tar zxf ../../deps/common-lisp/style-checker_0.1.tar.gz &&
-  tar zxf ../../deps/common-lisp/clnl-gltk_0.1.tar.gz &&
+  tar zxf ../../deps/common-lisp/clnl-gltk_0.2.tar.gz &&
   tar zxf ../../deps/common-lisp/docgen_0.3.tar.gz &&
   tar zxf ../../deps/common-lisp/ieee-floats-92e481a.tar.gz &&
   tar zxf ../../deps/common-lisp/strictmath_0.1.tar.gz
diff --git a/bin/buildwindowsexec.sh b/bin/buildwindowsexec.sh
index 6f67f3f..6978071 100755
--- a/bin/buildwindowsexec.sh
+++ b/bin/buildwindowsexec.sh
@@ -21,7 +21,7 @@ fi
 mkdir -p tmp/deps/
 
 ( cd tmp/deps &&
-  tar zxf ../../deps/common-lisp/clnl-gltk_0.1.tar.gz &&
+  tar zxf ../../deps/common-lisp/clnl-gltk_0.2.tar.gz &&
   tar zxf ../../deps/common-lisp/3b-cl-opengl-993d627.tar.gz &&
   tar zxf ../../deps/common-lisp/alexandria-b1c6ee0.tar.gz &&
   tar zxf ../../deps/common-lisp/babel_0.5.0.tar.gz &&
diff --git a/deps/common-lisp/clnl-gltk_0.1.tar.gz b/deps/common-lisp/clnl-gltk_0.1.tar.gz
deleted file mode 100644
index 1d75decca3d41ee27f835b220ba6a2e2fff3717f..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 7355
zcmZvgWl$6V*M$iQrKP2Nm+tNmSfmytrCU}Sq+{vs?h-*7S-L?wm6Gm;rJMbH-+%AS
z_vg;sne*$;nS0JWG|`wyS#ytiNT?^GcCJhB>z^u3c+|_inW;4C+`Xa~ArdrE#Zg7g
z5U;Iv&@71(wsNIRAhPu6GTvFuqdOihGy@d}p0Hg&m@KWXzP943!7%UIMkw@fSF`Gj
zXq!_jz<?h=QFc8}PWarP5g9!HUTuiB*(+lyW2rJmY!|IL)?KcAZ@`V_u1EQ0phb;M
zRb9qL5m3Ty5RF*4EwY$@y=Ryjgxo1C_Im*FL?4Y<T;%gSy`G$ypnK`4`dk>)<@vM}
zH=k=*96uM*;E1j-=!T2?SCA$EWnMh?ZqJqgUY1Mz**5g9Q`U6T?F(Cd9(65jl;O^N
ztzoI0koRuQd}GYTNDxg1a*V;gUf6~CKBuMAN^EsIqwYt<iiotuBV<D%ZnS*>GK9Jt
z&v%%hih|%Is$`%sZYD-n;BOS4lR|fE<G6BqCV1N;R^q~#w_x^*QO#xQnw#3ruuy_J
zWR!ce!J*rT%|+4~uFQX3Np7Rgn-B1EW91W(e8GLutvkfD&cvyE?Vq4TCYHD2{>wB)
zfZ{KS?_)8p{UmC@P@Bb|f=!$#Ray(}$5;&H<|lY*m(!Os<^F`kg5K8!-_M>&N8VrD
z<Pxg3z2x{ni#1qcpfM~IPU(}v?ee1{8I5pRn@#67u}|;C=cu7HY^%8U`IQn4k{6uf
z9L*RT{uhz)^cvrusqCe!Y;03T+c<BTr&EGxH4yxoX!`dr;xMy7<*kMM4LZ0@WqKbv
z1deJi$J!5~CEXQqU{T}+vXEyfpMKk4V|<Icq%MxtneTbdcNeLMPsz4!!OR}ON+gMz
z42_H1T_PqwN(QPArIbN=&sk#LtdUgQOw<)0Xx$tKQb|6a&u1^4I_lOq1bBNp!6*0T
z&$t#(&Kx;0FuIYV#?I*_H+p({X2)kwW-slTmHPJ^wt|Co)6a}MJG@<eu8(57SJXrZ
zm+K-JJPDMWFk8mMRBkRFc3U4G9&YxwGDsf!F)gvZJ|Lq>)-O+^fFk+qajWw%a3#Yh
z0tyH*<EBJvrwWnfA=Vs)UA|GFA!A_*V~uIuL+2Vd$9Ed_z9YHA{N5uEHkl_<M#dd4
z2e69sZfQGT_H`NkF8HQ7x<>&Hi4fypVeRwy(vNJzo6{SP#|@g}lbyEP`6djE$+b>@
z#OTiWiP+84?nlUlm>JC!PHmlHw=MJmdI+_v^b>v~Joq<)9H*c>*bT!w^td9&t%r^X
zghY5{Fs9`BIt|la+ykmVB%ZHt)|@e3=NDRsSMbWT{LXdb)iTMC7(%*a(+w&n2PEq6
zv{%LiDNYkDele@Ja-F{>&)=W+?!GpOH&e`MP8iEOSwl`QCx&*2Q?K7>%3_YrkD-LG
zgG2wuJkbV*eSO7#oUy&KbMh!;#4kLFru_<)OG+HEGw!~*>cI(GYro%uvz)d{K91vk
zdW@GNap!(NRbYx^ufB|YTS>?NU8Y|9tNO8;ICsASL(gvb<&Rd{{?z*DQEyl?7C&R*
z(m)-);l1x{_iqKv^a4&_)v5xqiyo^$;Q@4}R<E&F^_pPE)VQfGlFMp9oS+*1GrJaE
zdIVB$s4sIZJJTKhlGR6w4dS$IBofPI!EIo}UZy}#s(MUYLY0n&S@qVzo@lpME@hq%
z1ph<W+*++gjlfniq3!CCDr=!taHD`w*QJ4ox;(e5KBc5(BoT~8gb!}AL=5;KP(XOp
zIe7Mpr*dWO+lOUbikPQG%DFC2KgICN*MEMmPlj5BlfR9ny!SWV+T`?HlF<9J&QN;S
zk4lRo=Y6Pr^3nuQlX4wbU}Wxi%WTid$)nKoqs**Z!e@ZJwq4`rx%+hw(%AarDxxMI
zLFw2T5%#iol7~FL*X4gk`77zt<m{>hZ?Eg}_wG{@4R=1GAd>4nfy!^FpY^DvB1@~w
zJZ_~}P4swvEQt&z7OF?nN5@HKSVN|H+xg2bQ}xU7;qLh35^0yeDb2#!hhs5kqc(4|
zg|EJ3fg~@U*tu%#N3MH(U!7^L9+Bj~qrX~{VK<5?=$ylR;EyxzAnR{ylh>;Iu%$Cb
z96m~S3N$@>`(2PT^MS#c2xp!wsQq<(-0u$4u=vTo3CQUM!(EskTFx?MU9?`Z)U^=>
zz$O}V!nSrG>Z^h0m>-Qxod7hqa*M0?L+q&*x*83WA^if~qB+~Hyg7pB@{3J-h|t2h
zI9@{)#c8B0;|{QHs#^wEQkX6yFiXuvID9+<&jjGRBX7+?Pje%I>p+q=*pe%?5Fe8i
zo4*j^yxh^VYA^5{f#&o<ZSvgt4_p%ID+Krb{)9m_KV10ASkNU`M34Ixm7nBZpDixq
z)nGHvTbs$TGt>`jJ#UjN@ync^fO8feo|t>x=Agc$Y)f~pm74Agsp~K8iGhB?mB|y_
zSP&L7GA?xU@*M`!rl2o+HGX%-9`#JExf4<IsJqz72T8PJ9nb<d$KAF9gMeif1f4Pa
zcHz-hSgc+Zt#}t!23Ifen6v-=jq8Szl=^k7dgi&SztK@`w3_!BQvWbA;M*ywjtZly
z+JpTOW5tRgj_DUhum#2ZS2|(J>e^7%_tfb?6Gs4F8Lo28jh<Suo1rFr{`G0M?t~;;
zE4grg!yK-EG~Fsm#P<9@Yvh)V2w1V}i1pU%0bnkF&6a1XvP<yI=nd{q9Nv^w-K_n-
za%2%wFT$SrIbL}}b=y7hWMkd1nhvzlV7aF6iT`}^umTOU>U9MdKFY|?eX}436{=;a
zp)B^|9Lb2s#oA~?*ss2UZ9QaFj@?aVk*Lt)YmecGysd!nBiNNr+IkCb;*_SBSW8=o
z+@tUSW##gHaL;KfHcyLE<L=vRIhyTE-NQ%5IjnTc2=|E(zMB1pXMKrhu?5JU3$OAR
zNqNv{%yCQAz-@5@d$#HEX!EHZzJl>-z2KXUW;JAI0(JyMvo<FO!#S=ZWk{+1TCi{E
zM?L1q?J=qSux!AuFL%FEjUl9Dl%8JeF<^%GoRhtce?2<eJAGeBJp4<dt9#KCJxZ_B
zwlc*=&K{*Hk84772Tn^mvGDNNM6rLtd9zPp>S=B3NlTkz(+gjk(rGG0a9AoivExG=
zXD9=W)V4XD10oCq7SpHc;pUF?>6Xzss(s@b<9*w4TxU)jHsww_K+Ys%&Cymg=c+*0
zMz#?m51%ao`NCY4aVCcc^Q?;V%0JkfszfrA&9Ciz;><SKJSIUWd@%VXS%uY(I6ii@
zraQ<^%pw(O8IcJklH|qCR1=Drh-gUpb71&vT(~Ds+z~;$h4G8;z0WPqpUt*W-Ha4C
zsCsYDzWg;G#<5MOWn@C}vbz+jqs$DajojLJ>Wh!x!QLz=V7kA3Y;7}o^pW38(esEk
zj@y)sQrH<VEl>H)zfZc7Uo@&k)ELtz|08+NcXpQNpfgOr6M6OCyE1GxN)ffw?rmu8
z-JQFOe<IcTW<i7wl1=+`#3X}rESBOsvwfs3dXVjIz^1bw^ZkyGct@8aG(}j=lCZI$
zyCQVp*RTHA`QiSn7EFoVb2}4ZtUm+p97|P<!*p3@*?k^=h%Ez-OmnN!9H(E+DXTq5
z6LNV)O^^Li^Dot&!h8+_z=+DJyQ%VD&z&Lqjh^NZNG026Qr@H;zwchowyzfNhk-B8
zg9G}mh$d3*HAJb@WQ2(|?m)b53AM@s-N0C&&ro33KKkOCQh$J=bBI(>>jF;I_QdcO
z!@jmoEl~{WSMoIzt90Wc_l^(DIQL{+Moz{TmqueA*A3ZQB8e6)69J}1J$aFo16<`(
z$?I5ORsH)<pVqesAep>h;F4crz7W<Fr8%?hab7twSvZFh!xN>lH;m#qZWw>8wV$?0
zRL&y~YrrsI@xvM-SBA~@<;9VvAUfbdS9vMH>=?n)vFh~>amlCmhF1N7l!a6k;aCua
z{?7KlgBHW2(|1^shIbPE-2#EHW{)4+b)fVCj%bn+!&Yig!EKuArftS|EjvP3Hk_ZE
zoqI8R@1V92^l?!V;7J4$ge#fl`*52ROC^K^(0=Bhl1AkjYIBfN;en_DpfDvJ3z8jQ
zO}k6r)_67BY%Ma?5N?VI4K%#TA71V^_XDIHUX>FMN({63<A>($c<YXL`Bwcaw=dDi
zs5JY>+}N-KpIRebdHLvV8*=4k;uKcvZb0Z;-~p><3je;cx?}4}qlz`#jG?=P39+E|
zaKXp&PgWdLSaa(eU@AdKU}`Jqq@uE4E1iyaHAlrwp9oDb$Vj*a-B}_`)KMd+#{QtS
z(L!!JPX-pT0JQ|IT%ja$9nrcbkRQU`4%)&%tmI?-4FW!Ligt4#>MF}b7tv`;rcPKo
z2#9sZ#j0VT%{pz`mI)?jrs}}0n9(gQas9y`Jp{{h8@a*}Im4j-mISKWS864)y4T*+
z@TqnXt%IlbhcPoJH)2vxT_=EQBQw#L?B#-N3PniAmKB1ItM`UdvadX>*a4#ZF4lc6
z#aLi42{m90sPrJK)fShcwNC;By8m`3Zi<$rh01(1id!j$1)vQHjY*6OFaW*UhG!az
z4{3RqHJC)ziz>oeQnU7$^UC_Db1JoJk}l-AfajrUfB+JC?TgoFE$UOmoyQ3?`lS*j
zZjAyy!JV(p)_#2am_+(%laB}0eF&Uq-FWaOn~)Y!;TpP8s0~nHa&^Pb8Xf9Ib@o<)
zdLz#sbPce6AFOcGIkE2K5IF642Ctj3wuB2fuyOb$M~3DGA_Jots!^<S?EzgJika?w
zU)ynd+F6Nnx-e)x&c^RkIJ0=kc|K>`gYj5fCK7J?f7L6SZ(n{sIxpo4-L;+>SyYM_
zkf?!0^OL&d1+Lmf4$XN>H$nN8ruCa>CP(24Bb45@5lW>Fyrt~9MFFUdJ@}y*n2+<W
zY;Pk408PvyqSoR@B!1t2$~Iw!t!4y#FX@V5=Poy+)l?65E2^A9SEB;}zVWS9`r-_}
z1N^w)pVA@{tdVS0&sDfO{GnU68^UuNQh_I`%1WSdRkOl#@mw32h(?|O!gb3FeKVtZ
zcs1F@n!i&Bp*QmW5}oppZFD=3p~4IHh>PLcvE!~_LZ;FuKIEAOb`^elBV>h%O{fwq
z8&uWoZCGn$wf%S47-u#yznV>y$ttg`Iu7u61QKakdhM_)t*s8z)a4S@)p(WqzD)Zb
zME9MDs&u2VEf$wSMf+DG6f%1Ow)0t}nn~zrlRJer^cXKbJqu^@wwiSwB!rRB-QqLx
z#;-~7`plNM(xe(3)za}w8Q}Yw<T)x27nf*Do?$AdI3T@Ieb3C7{`~D<Y|gMJCcQ?J
z0a3xQ(D@=~fOcGMN~GpS{;b!9HkeEs?pdVW|DL$c0k}bKjJy<!d^#V!@8F6fwJB0k
zC?Kl^NL;LCot8CTc*(C<m{Q6gTO`dS&g3hvA?jtQRO+4jjZFmqUSlXiUl*^O&<0kT
zL>nA2!wdWvEL)uYoqr7}yW|`OqV@TBqulDYBcJPd08ObsC1ABvv&;zKz5<i0*9bId
zJbaSdOAl57%H?*5#^@^>-5)*4ZRoRprzW%-IQXPn%xZ-TvIH7ZWfrair`er!KHFwE
zsIBMHWA*S-G`nwe3R6TCnbMZ}!l2r5tl=J2;8<<VtOgs#mDnYP)84eS3ZBz0xcgt$
zGI4x~gOT5Myu2d&UVZNUyJ@oXW!ewv?%XPL;6wSQD@kB(HD!?yi8uKnfNjy(RL?!i
zrRb^Bt-P{~4!^$NI|a?s7`ey?hrb@xeTP8`VB&7g`Xg9LUt^)5>a<bYY>`8hB_olj
z=?I<z&+N&`Z!Hnf0-GxmXlGfs0#kp^s+NeAgdG`d=kSCZ+C-QYc_~p>CFa*Vpi2_v
z$uA7J(W|3oRyV&PYrUYzYBAE7Ym0d*f_m4dc;2@p(OL!l!Rm0}?D%<5WEk=sQyE{#
zojO7&k%{N_k<C(a2?}N*#XPiPR=_aA9IHqJ?<S4}o+6hsEX5~TI}0R$Pz}NCol0ga
zKyZ1xOkI^qx?<{N*nuIQ1i`%mioQD2j!puo2@>%H-o5vcVWk4!`C@vHD50jz02+R9
z8<A98VQW%aDGlb+7qJdu<B()V;*5>^J50-dC}(JOK+m<35#1Sw{nV!BUXYcUDPsfv
z010tVPiL@<SdQQ}7=>$Bw9V*RZP*Nf^8wf8S>1*o?!Yg*LusGE@6f!_4!+@EYUx*%
zZl-KhSJ*Ix0~8~TlZex>qV|=el7-}FHjvd=F8KL>qR_bZm6vTlLkssk7~?KL^EQ1S
zn5#{$&@(WKKq-Y!52Xx(`zChu3L53ThCwsNik~C}wWV3In&Y;Cz(O9Z70#J<+05(Z
zH!h?(<1mUO->*tL-~V$BUEE<NxpH3Ay($Lx(97BFy}ajgIaV2cV7!8tC;&@Qi1D!`
z36$y*lVR#6^~Y4nuIlOl&9W3<ccwv*SxVc0N`CUU57g^qO7k$Q1X+JXi=`+<xf~?=
z!K`(x2VxCmvH}*`_{^pmD{BCag??70Ezs-z95_{FKf$3=8dEkRIr&TH_6#h(u(w95
z%S-_Yt$)qUv8Dy-3U=Uly|ca8jK~ejW0BAD36fxY4|FZEu>WbrSIUdwR-PITKDcW9
zH5RpySfN%)XN#9`TSW(MOLj=e#_KR6nASYBP90g{Olp=TZ|_LGwra~!$*mk?8>#%O
z^zf!Wx|u?lv>;{Af0-$oQ~X$!Y3C?x$mgmIx7=sNH4{?Q{&t@qw1h(iK4l4G)~|T0
zFbTqrOlfTaEm`FQ5=Rb13qc^Nq#~Oz{!sz=GGz+Xa(-CL?FFKombK!5Z@F9k6G~=M
zq|gc&dcvu(j!qFzCCOAR&|;k}o*Dv2)cv-zFQ|C~@^f3|ru|_ZC)4T>HQ}_90@~2p
zE$b-)b7gM*$Tt2+vLc<UFw#tDp(sBSB$*2^BGn;R-%~E*k=JLoFPC*R)f>5CLv5W!
z3wY}VPLdgvADp9AO8<d=KqMoI)0D*5M)EUynbQ(_y!}j?$UAk95e(yv75_Vv0b{T%
zH}{I+?WdqmbrF(3EXlxetm@-T;Ehe1IWF}cN@He9`Rr))z&r#_O?hx6u!Dd6QZhri
za=ALD{n;VI0e3k}i76Ag3u_@1)B7)^*9p(H3*|048$sMRPoUpGd|?ahz&4z68HDdY
z7?w{dZrseF-?A8*Y_TG1KBW7I$_m0s!#hq`DY%1s?5=j<dTG<)uVas1MB)49&-+CF
zpPag~FKevRIfH#IU>rI)Q-#h(sCbn7P15oEo!?pia3A`2oX=K%l9x#BLe6~cfidD!
zGPnsxfA<|jHB2{@!@JVi|BLOX`R?FQW|1z*JGNymfqzX7hu<`C(8uCtLAQGF=>ETr
z(NFd_i@n@dD>^kh|M0zl%%zIoKiPk^|2zH!CLXn{L{j)Y>7F$sjBY$2p*M4uS4f-_
z6Yw^~aeF#~#L3@(?lAu*&q!QM>g1NopyS00v8WJz4f_^^Ok!q<7Ss4moJ{nSx~|}h
zQXx(dH6BC~H{Gn?hJ7>;RS^D<Yle4CwA?;qJ@0zL0tOxY)}Hs}|54TBo$K*yx+%X+
znf*Izu@Iu(+sqwLf~PHHu_vC|_W0x3UJ89``}p&d0Lk9L^PznAgare6t$bOsi|)El
zBs~lTyPbm_0Lzmb)8poX-Q{<FKbfCu`@myUZ!T*r)}mc%2oRJw&yylCTjQi?+C#+y
zPqn|1GX*iE7R*SGApyT*QI3)cq0A2R7*G8tZVR`^sb><A8ApbKuDNEWXt;QpTXh)^
z>zx)=(CY{F9G7F!4PPH#&>^Do_L#98(Xe_D`W=yMtcCCif^E4c&zP-Y*F*LxDSy@h
z<$KJD>KHi|Y+#mO<ET^@Q^b<(!~;t-SS;pX&(r4UAMF$taPk-%TJOg5VhZaC@EYCj
zwjQ(7n{>NYYnMjxnz;O*rv@B79-+^0ydY6w&zGC)M-xs*hqbyrp_&D$e3Py&Um;;(
zQ)zxvoeKO;)ce4oyf`7VVg>v_-><`Alxts<EanYd9@p1rciPe&YgP;XWT+e0@3g)c
z0lW?Pci7jv;{s%H(`@*-IeTpa*xwg6op<-Cy#gVz$g{k(_&NJ#csguYEx@*6h?~9r
zsF3gxhGW#n+-HyL!yA^H-#fEM`3|nGAtU?cr07z9WYRyM&dE}wdP(@dO1cV#1g&8d
z#D11mqUeu`N}T@lrjmdxy10%cxF5w!JWlSL#oL5G#kRXBQ_9j&&ad9FnJ?TKVcp4G
z(W2*#qsnbB0M?}`cbfwb38|^D=<(lm@!I~z$J2|2Oh<WfWARwCoy6;z1|@wjPkq?R
zsAHqe6SZB+ZG08XV7lKrwpF{_!+S6$bFqvkUyUkdKR~b&jh#fEM)4prde*Je(-)~4
z)`H7!Y1^N;E*786QDc5g%eFpdB423XYPQXVCFJs{mfiU)0MI)?IlFn2IArV)`wg2!
z#d>^i8AYd{8ck=JC&vq$&ECh_Z+qoWBr5yme-Y9i<Vi#cEOh@aqKITMoAD{8Pt-wf
zS$0o~GHu5;<5y`z+Ec=ba+}hlocKE&LeWgxFM`sEaKK3aC;jxuPt2UhM4yy;UYgTi
z<evTm?EjIY8<~|EX_7lqa?HQ?^f@kVVh!En3vPN#J9-cBsk}1upIufbWv^?>ninI^
z)y0lc8VUYfj%8$sdPNRzrDsUy1-|KC?ZK*Jm%lx!Lg)64++V1ECACdB<jV68C?z<V
zk{|7eFgA}tz2!1h-Icr>2VLID+<klzH9I+tLK9<a71?nT+A;n+c3C&D|Awnx5OTTe
zYAcKiFb6F4Nxi^vlaJ3zepa7NCff*h|6*ZvMXJO9Fc(I7_vVTG$VzWXoyNlNZvaM7
z`+2$FVaSJHp+T<uXbGkp=42OA798Fh+Xa{zyQ;L*5h_2vSjkKWNL=M_HxN;8JHUb}
zYC93?9?-`X#4V@y!3%;25qTNVfLOy@=dD;k^u6{Za1meIgo>=^JF6i3ZDz~VFKnV#
zU!kPii`}O>c6ecqxTPmbxF`R59H*7=@7q%BeB~jIZ8mu`zMj0pX})8MpjR5G`vidb
zZwo&S^!nLZ%V$ksV4U^2NnvJ}sHbfi$fY+3Y!0czQjWtE=U@75)`MtQPvfhmKX-0X
zjgdAJ6Jj7NmLa{=uGDvkT_>G-Kk7}6?mrLxixA{&E>k|^=Gs>w2d6l<zMft#zMf}(
zZXGY@BbK8BYphj>7kz}j$BUH6k=%2B?zMXM!x~1$B!cktyqnxg48pR>*K%6GjJIaI
z+TQ9rTJ69U(9>|RH2U?dMs?4Vk&=5mJTzSjUT1j`$kD#N&P;<s=&S~aOD|BW4e28j
zq+K>1Xy2p=JkQw54a6rl`K4NCXLj#yVzTy<WB-=i&>4bNF#HNCUhd|xhfy7SNRNvf
z`e8X3ns#RzTd0nNrLpk3jP?=p4b4RRX_B7{`;Fre-xRmx^2U?r8MCN#&+IuesQH_x
z6ZrmlWfo!l%ipApYk?ng*d2*dqYhOq<jVn5_q!w_jzY_~9A@P^ytYNIQrrIwlx9xW
z<7M}ocslZ=PwtC31NB$M+J43+EM?2}p%};B$~$Vnjh!zox+EVKR|FYluf&rFa~__c
dRG{_pf8y<bBkTWNHBet@K3~QaAlV`#{U1befIt8M

diff --git a/deps/common-lisp/clnl-gltk_0.2.tar.gz b/deps/common-lisp/clnl-gltk_0.2.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..95489e2b2fd836b2e40b19e476f2acaa162c81b5
GIT binary patch
literal 9682
zcmaiZRZtuZ3?}Xi6nA$h?(VYq;;zLhTD(|cad(QtVns`FTD&+EhvK?efyI6Azq^OK
zd%BlzGMR5O$xJ4b<fBc%K!_TTF+o87C+X_5CYt_qW)*S0;9ik<kY>L+?c~tTjpy-O
zC^-XIP&m10=&sAa<fV{Ck^a5@)iX?L84ylHi-2)LEHSv5q$y1KD(_#8I49sO)h^{#
zJ_A3Yx({_aLlH-SR#iQ82Z#PugD02HN*&*ILtp1DtG14OgB=Sq(8M;9#7&H&(uncr
za_6j%bc8HcuT`+hCtp%N^N9Nudj2vX7wva^{pIqeJ+t!SKRq-3{OZ$j?)!|70hn8@
zCBb^gm<gMQ{q=FZS<TnE+MtUAFZIjKSMHg4PR++|sw9L<yVvU|a1K2aBOzD0o2A{}
zgbP|w^z&R1cIJuGN5IXP3QQW*E9qhrU&B!ZZ%F%N36|U4M!r%JdXuL~pgXx0bM=gR
z#kJ=GoMm6U<f+ruwzr}aKkW|!S{X`WE3;L)M#4V|=g~CC$TM`r=p?TYi)rLu(xF@6
zJ!VuA|J{@8z+n`3MPF!TfM!Q(m(@5<u?40-D2|sK<c+~#c$Z=1-$?ATSNb$Bk?C#D
z0{qs<zvwQxIhkFq(YC7k&^##orIFwk_gQdB8$xY%5ya>_h~asSb`92Mh)g6S#zj#2
ze9@~ToGx-v;Pm$nx?o3@CvHQ;Bsmt|<*U5IVmjSl7fmWonDY1E4u6?>aBfILfIvl9
z>fz**#+qkq35~{mhM9Q0Y~CSW#bf5pEL%>S#ffGaJEC04TbvH6$>UqW8gE~T*I94}
z#tZpzMH3?VOO_x#Q3t_jbU^YNFim4z4IGr-&HiLGIn;L-?bv@$m}2#%*a;=W4%Js9
z_dq*u;4?3~Q;pLvtF*KRz7I3GS5dlHVFP-HYvxOvVt#_3fzx=SJM+E0KYuyH{T@#a
zbE?qM;Q^tyu*mh7w{u%h1RT0CDxNYz3MwjdORG(D>0XA!C@Co!Y0-dBu$_bF34f6s
zk4Exy2O#ENvKm!C0J}>`)t%owJ;!L-=-;xDNH2|#X*D5ZDqlqb5<!T4XE|yG0rL`-
zxfC8%4{jk`mf4!B)Z4mD0Wo%T(p3I)=YhPu?I6RUsk-%k09&wMh;dU0uy9N;2-x*H
zbZ5oQZ3Xw%TMV$K6Dq<E&{^V<ESl`Y{n5V<-WIiQ>kSSI{H!3o-oqO9N*Ndi+u2*3
z>hHh4Z<P7f+41X9w#ce?mnF>l4sinkI~XOArJARDI@kN(psp<YA)2FLcp2^-bv3b)
z5u`!@mtGGkw`5tA@sQb=p$@i!=|B$)v5nrb6&|@F_NJA^>I1<>1~99q49QvLS^5Vg
z2tFdvRMRb33bXGNfS$>IUc?9v&cKw<2Pz{QRhk&I%rP8h?k>V77O?s)$7yw*Rq+R|
zgj)LOJM>G18D%g^wy6=Zzh;DVbUZ#ZB%xJxhR0iP4_84wHZ3skh4or)HoC)T-sCNo
zS$iKNT;bQLith^;*>sw~LagWEK}+~p3$k2`|B5zt@xUEU7;aBqK?aUd9iTQZ6KxWI
zFqqDF?SX3uByB}}8Srj^xf;-0Y50fcahqSZz&gTqu|OcgiL1IDOQqT>A@D1+3L$z^
zP<C~Ux+21SbO=im7iLK8!S~uEPi%E>1Z@5`fb;l%kb|b@f!&NntRZJL?-Fdmj(WR*
zIp!3X93`Xl7KhWXlI%W6r>8{;_$OV?VM^2Ak`vlYu3`SW3eSWg`k%@)&dahdIhF$8
zXr=37Rzexa_5PlZuw4m_F-$n-Hl^|6$WuHbgyN;S>5NydERAss&&_<D+@l*gf#M~W
z{i8F2qP41uboJ^h&2Wv1gSq`sh28+u-Y$V2Q;#?n+Cq!bB+>-73HeMd9-1{u*uOWK
zZa5`(+30=SPvnIQco%CEZ15F6rq;N1;iqj4_s2rHee<9#*@DZxvr1$b7>r!cfE+;;
z?Y=;8o{9WpDZ6X%oaK}o21NpiE*Qf2z1Zys`?XO{81>~0tx*(4DoG@r2#*@+<(iz*
z>G!F9O=3Ubq#yvkvk6<%<IvG}`{yJ^sXf~q+Rg88^~=k&xf#E{Dh)Y_wJ`1mM+Uzj
zWbZl_!ode?6k@aKgp;z4A)Z}92>ckTHeYdF9bQN7bM<YA6UF0OBi{hz{0g!kDEj%s
zlV<;*E;G4Oi<;$b7PMZB)%{d7vNmx*74`jW?sOgck^UWtiyLFU3?WrOO46GY>z756
zCiUOAO%nktwQK0J&FkrEFB6VkiH>*@gQT<`A2%&CwD<i7?ogxrNB0kR=K+C_FDEC%
z*Ezjcx?y3@Z@aXlb;0}Pf*X5Ph-?=rBTbgghi>QVdZgW}Tj(XlXNVcn+qI6xo=Io}
zMP~x~KKLRvD}=V{V}{lfN!|8z34s1&k^-Rt?o^@5NroZZ&sz|ZuO4oIw2h5SBoTYe
z3|bXI8o#0b8Lz&W?k~+d_I0E~p<5qV$rRkoOJ#8FH=1)J-bwt!Fp}&eB&49O5;pam
zn9)&Q*h6Q`To=Dd7P4|1*tJfQKS@rJWm}Q4eU)%cw!rol$d@0~Y$|P0?qg;m%U?lJ
zKtGvO(CH^<{iyhbaVsXRKk7Fwnie6HgntRFh0G+cQYgL+t7aqgX<~loQ^3DS`$pNN
z!Mh0f><vXP?!@An*nz&6h)_Mm41^00KjGWR!5AFR{@B~u$3;f{ydx3@^;l>l<v639
zk37WuMBwNT7;Zk>HXLMJ&M{J%M7?h+AarDM_}ljAfc}#{Tgz>9H7_O?(l3SbWQ{2&
zwQVvIhO2lLXI00(k4w!|lWUH%8y<h1o;CmA`ERQ!ve`#){nom4H&|0S4hmE;&Qzu&
zlSKGO2dInnkem1QiH$HDu@!Z?chGT0t9yv3SvgB>(}b4X3#5}rQXkVXV}liseicyt
zAuz+5<_r6MLl~!>#}9SIoEc14V3iKt*OSz?cT|32EPN1jj7@q!Dc;~wA7D4{0-3?c
z#f3E=`cL7Gy*2s=<-eRdc+AXv*Y0NR99f~M<dbnYz8-||KSN<32I_;0s2|P*gSRdY
ziX2gIyQ)Vp9sLL32l^LM^Q(nM+bWe}S9;>Of=9)5ZwC)hcwxbZGbJk$&1vmSjq|`m
z5^}$8nM1d+O_@_D3-iTVW_8bSkVV()$K+3j`h4a=g=dOIAAb5}`<Pn>6<OSyEX6@r
zVcRipt0!CRE^FFwPDLL%+dD7r3h$jayT4)P`41zJd-k^%Owe|7(W(KdC0-9_OW~EO
z`H+K^TpM9!?_|#X&zp_IsbkcCt_U&<z)b?jXJcyXEA?&gXx*;`rTckO4=tIrd1eMN
z%r)snF3GE6W@}iNw*=fe9g3`GIiIvw?287M)ZA!RVEGpVz(sQZ-LQJ1E^Ia!PhREO
znEG8)nVtVojoL|U*(wRO%6)~>Q#7B&zuaFgswyHVOk?_bDRPVHaxZ5U`z!bijwfqn
z&MZ?b`{7P~w%WuN#^1+wH*!AWQC<w}?tOn`D3G^rCfs`7^}@qKs5$GW7FN>KiM_Up
zCh@S4H0#l^mFVHp9M9kL;bnfDjo-TPdLlBpAW}1wAsn|oqLxu8dr-ML)btx=l^9gt
z>ku#qXl8!TKQ7bvs2!X%rF5n5G^LRc7TfG+z0vvzE+$@>+~@x;nN#-<&0H&&2an(U
zJH6omy}L1$<&*|&Y>7q-PS{yFn<WE_`!|nowKFi?*Gu@0Hr?|CeJsIKol2VO-MXZ1
z+k}0i@X#8L?2dGrg%2dT6DOoQl9GEpZ-=t7d1X845pCw4<wXi@OAyq|QxT$_o9*z-
z<m-UzhMCt)nb|XWYQMk|3XN;*592P#7a2~luW)Of6JifF0fICxiPaIt5?ndNUV5P;
zBO@_Qk=)=1lB~Q<n?~U>1mXPLKLsYHWdUY|<M~Xldx;6?jhXDalvWo&v;>SZs8#{t
zu4t%UV-ia50{;j!qRIP_wD{-gck}h&QhZ}h7!e>ztS9jK>2^`6ht?`Bv?DOoCjwn^
znY6ccHR&*sHSDC{l42lr(hDnicw~Q1T>(cUq_e2W=#Qygs9U58DX;3)T^1!B5}vkZ
zhwzIO!`d7;q@^1JNm3KPLGCVrH`I>vEXL_Nq(LIFNI|%n^qb1i$aS#<Yeh8*O_V2t
zA4Z?mgwMp97t*#3ZHnbnjQaObR?V4|3P#g{?*_)NhoMK?llDfk=7FYxfb-6?=K<tU
zBuvJuNtmWjvR6Z<BRMQ4kz6Kgk}wwEfe42AL77EjyZ^edz}QRQ)cz<zPx!{!`+L5$
zaTaEukF5e?4_-BgHJ?!nGzmdsB#Vsx9cB4$3mpxfrsT`O^3)YnT)`7PE$Cn7XZT*g
zwUXe?Mf)>a_5Q0i^kyGr3w|@L9o*D=w)0$^G5_)P&5_pn=8Y9MVS$pat=!G75qVY!
z6;GZX0DB-MEnIlU<?~$pxOe3p_<FuKmC#-cY9zMS><npMBSrhh=x&Z|iSwW$CEw4%
zdKLFHmKPGQdu}Y<e?3E2xVjGc!__}<aAgF#dp9;({L}!*Y(dQoY3phBCtWH3jKeN7
z*N%jKqEV*&e0;)1wM;kR5HqJW^tUz7Lt>A4otp4UQsdW3zqSpCbtU--V}9gOCH4dQ
z{tnya4yhTB(FJOq(!K(G-};});g$jdBkU*M^Bs6sMWU&;0Zg0LN6@HU7qE2sK4N4#
zA!4<#)!aEX(3v;JkJLzNJ16K%xLlKXsP;>Pc(^0=<_<kM5ksc}8bhu`t<o$x3!#}g
zvAei8?6kO20Ct(R%Wsgfr)%5l3x?U&tgKX`8f>k)WDrH2`nP;r3Z^-okm1f08gLwA
zA&eac&eU{2X5VW3<sErGctAV^r~aj`y0o>5Pno)d#9f_A0VhpjDq8MZGL>P=Ok!cT
zo@Pznem0J&ZUF*Y&yY5e_#-D`;qe;djOpk{@`!zGnghF+bXM1N#i(Sb1Ch;7uT(K%
zeuK;deyu`M4wUl?GeZuoJa*G1T4zegGUKhMZP#W41Uu|CI<MBs{DXV|Y`ypK$>H`t
z!MEWuBLf2Cq$Jm6>70HqbT%vF9-XkTXeobN%up>hrXTj3B*k?Sn@&`AxQ6F1-+rHG
z;RuUrXL-eGmg3G0ah^UiEk3~ugb6*EuIul1Mjfk=Xh<Shcjv(`ov1@PXH1=^7+cI8
zzLOmdXONb_ANJYl#VgpK@k#ryv`NG!lJ>$!sx{)Gm`pqfHM|Ty!j?BZ>X<QK$y;|s
z8g5>0`Ga@P5^Wikxiu?KFE3~tt!yupEiEl1!|)1=XYZ#v(O`W?>WBA&L{Ka>IO1+e
zudU^Wjj<<gNy)k+-hki!!IdAoTh~$FcO->j&1`_J()7J4;0Ube;wgr-$+2HZ{o`Kg
z+uoF{loR^)HtlH}FG<A6!Be?OR^<VKF#<BA1dhbJTu02Eb*A_Nm<8h&q3h}b2UR-L
z*uzQ%0(we2CN<=jEaS4;mQk5PDlL}>-y9)VWAAmdbx8ah1Eb<nWLGxF$@kRw&Os}W
z<c}IT3R_ri&7Uyro)PiBQGcj%@1W_I`hCzy+S|S*#~s=c5G{w<{`>Jok}#jwTQ(G;
z&JaZfc^m%{-cIL~(^7g-34)i4-_E-XhmC^0^4|6UcOsNteaV-0!EMp~DbNR#%0KqE
z)N{ac#_2_v{0o)i?Q0e(@xf5o@~5a@er2p3g|>}|%E=jjc{}M6J$i$x9LLa-wXrx+
zn?@*;jwEdxcdXS1aj3U@nurF<yY`8Q_pp1*h)(F_G$xTvRHoQ?U5C4Q-x%uHHHuqm
zMnt8L`5hy=IvSWa;xTXyalYQ*y|m$t6}9rt7*2?ABAKLHk~%%4vj*np{slH>66A-6
zRj%%5Gb|!M{8+>I4h=g?h^&VrdX8<u{icIhU!E_tdJ`NY3O~ZnD)frs|B!E>VK5bz
zv(t2iyAgHe;iVFT-N}_;!tI%H`74p{FBeWJE2OE$B=5Z*_GjN^a&a2-|BmS1M>qM#
zBbNqK=W|kp0XQjH-$D{vEM8Z$_QcZcI;X>|Bl>sas8+4!<h=5mFCt+{IHBR=mL9+V
zZue6J!=oHQ>X!30*u&=IxrHB4iDYVr6sRRa#hBg>YqHjvw|LGzy|p~{J|Xyg<*$X`
z(>^(F%s=(QoA7j|!d{Gy*HTOC;Xk#Yf^Qcx1$Q&ztoW=OEt@8<TVd6uU<#N24fLp1
zze3bPrR|G^7Md6z7``;tFCZh;h)kw|1(kYy875sPSgxzdt3l3$ZC@`JcqjQ*ze1;M
z6tZf+f7ZEV%dFc;8;}m>9pnn7LxjsN{Li4GMBN`X)n)}*St8q1+kUfUyedHsTVj{H
z8}tV$^mTl#VR!Ta0jHG3t@l9&>{B+J&*h*B2g=)4mLL!4C%kKX?N+`JqH)rGUIPPR
z7w|>Dp8)~6seTVP1E4z+G%QF~qoV-y$<oMNIC7@hJZx($<Tp#(G+w?o_%AI%)2#8V
z!^pq^7fJKlK`?3)$iPH`lM|+|r24Kgh1ti11<MVo+w+QI=#)=CaB%3cHod`ALRj&f
zJf4I+yMzJa5|BKW!$l-UL|%J&IOh+@(x1z%ar|}<jt4awz?_*ADh2_X*}KbkAodTq
za3wTQ0+89oZCMXkrKZ#vS$p$eMV$r|A4dJ8j#&mp_Iqdpa)H2BewBRnv`TGeT-Ou>
zfQUv2dvj$h@fZafjm}~!uqiH&Vr>~rHDm5Io!6OwvT8BK4*CdMgZS8#ec^Br))4WL
z1C6goWBL$QJj%ED(Wu4bnlVB20Y)Fzxe5C51#4?<&p2J49m9S5*IUe`=9oT;m<0J{
zQiE|s^v4RSN^A3*v*MvFMItd$q9zba<^#Y_reP@17Urm>$XuLDcaK>+#3NqetM3e8
zw{XAR<h6>tzgVp0ASN{*bRERdr&kX=Srj%hrbRe5%i<Iyg~)5_&&?z&Uo-Ig+lcn)
zhTpR2L*OJW)>4L$@+I!WHPGI-94o^ADnGYLS_7(W*;_Xd{-I0Q#W6zsIqk~U`(EYv
z)4Wj+K(3eLpr99>w{G+6HM@mif<3sUt&`<cj(OR6V6&;ojezX9<L}c;K2P+M?VReW
zll1bTSF1&ZblN=1Vb&7<>ZsO{VJZbX$LZbPBSQ$gV)Ekx83Uw?m_1=m^QO_p{m<k8
za@6Z-CvhBD%$Q4acy)Gf>O-Ck$JC$qk(I)gJRHYXiif#%HYKG+6vyE2K<o}oIW4}d
z$Do5{&pPmT4sF2CxPhldm0P_JX@Ph3IaN>Lv&&Jnq#T+Y?{bfN{f1SS2dOIARKH|;
z^Fs3`=!hXe_)Yyy*8>~56ZdELgo>wAi+d$XbtU^*F{Kc8?IhhKq+G^t13?=4;~s3w
zQD1$r1d-KQhf&&gPu%<cve*x`yuXbl-*_6#sj<&X8U)&xxu@0Bn>hbE6(g%P`k|Y}
z!(o(*!BJQUI^filgRG`e{PJtnwTUNyTsuX&)g3_QuD(lDumt(XtfM+6{ZzWX-?PuC
zqWt|8tA_pEFa?8BCG1&+rJcjzz8u7eP028??Nip94W*3UP6GiO{i6gk8xRTeqv}R`
zjzrjJexwJ*v81IEGA-J4m+;N&bg8Y7T2$oQ8iW9E`BLyR!i}7ZkO9pL#x?4<xU(vm
zF5@__HGJy@zv!>qN@s3mZr3Z~^YmD<Pp0^wHO=xI>Mr?lNLiOG^NtuGRu61;gT^^e
zc60@47JIO6I}M0g%R`-6j^Z7}8B`0#OmZn%2m!be{9Xe_>>HZ0PC?YsYeQVQRXI*M
z<(a1d<dr;vtv_N#W`us~TsP;BTNRjR2<oqX8#v0+hxCriut=(-){iLWdvPq+r)4SO
zg6!GNi1S#sG#vy+OlnIVI;6w><0mz<H~Z=t{rgQah{TXJ=NvgzkM)krEx!Fwu2!8|
z6_{I3T2ne7$OhN(p3A@t{sLnp@ujA+M5@$A<1>nc&6VnS*bkpFf$((HpF|44tRwJW
zR>&YEWfD6fkfN52bG69M_*3kEBhU0?uB<3Ojtyv@!XKl-X?<h~(438^y<xXh^)PS%
zwhX57S2Zb{ExOkXD79A?l&Iu)SVW8DNlP8==@I`30%mjyywj&}sHM;PVE_>HAEjt;
zB^yZ$?J@v6p`FkY7dN~sR@x8@(FmXz;09A(Eu_|@bH?x)g(?WNW6y=~F!YXEOPPQ|
zU|s2S&XIK@x3$fOHSXM9Hh*S_ZfBV)^#c{OD_Og0iIt?+B0;QBjHLt(LTY`z5~J2k
z{-jK;Bbro>@2_k%r0r-R7wd9fQY)<aF1-r<z$9C<9Lo@npG!DfPYaX`y+kF|RhizL
zsx@Z9ilOY+FGg}e>h$MF{2ML?AsrxNQp5UXnNE!(&TyV22qyAQmpC3rh~zj<X!17n
zW3Fbi8cp75<!mRLDx_yK8$5|jVWyFKI0(r!fVk#XJKZ2B*w10LSj6a$ch8wQ@3M}9
zidAoGDEiEB9zbtTdG8l1d`Tt+RE36kr6H@P99rTV2Df$l_{Vw*JjBG@ESaUOngu=d
zb5u0jo(e_zk=c9YJff%UkDuf+d?g4Ry<Hn-z-ewBp?Rczf@HP!S8P8+Yhs0-j3}HK
zs`Yp3Wu5B<%%z3(WtsnaQmg6ZYb047`K3J(0~?`+somRk?G}Xl-3q{B7oxQ;-{W%I
z@m%{n@byw!?a-scuFuSyK0SnPDs!Z)M@*Ga<+l1L1IS?z&o_u5a6d?aqY3=>cuDnr
zj>u@v$6ez|*V&IOXtRgqXc?CnQmg8c3XwEm0On=ZRt)TeNyUz)xFCWiz{&ETE^3WT
z)kKX!KkCz0c$=IO7T0)NMSM$aG-}J7mT~!(xAvW3!p#FsxtYM_ZGY;5Al^*w_d)-4
z$e)T~aznIhQND^tjwZ)pjk)zd&90drq#%N5`lVT5(D9*bQc;$TQmwcrKrT4^hlh|r
ztHd!y=W)$47Xt@yu^QC5rbN-8L*e1^;qxjt6vV2&H*UZ1SM{3Mp7gq5r{D{y=-JCi
z*Z17kgG0?jL@`t;tTwfFO{!{)Wn8_#K-s0cQl8{Au2MC-*1pV<84S*>Z3e9+NT)GC
z1`XsPnH&{yMVKHSqd^~^R4k6J22sU>8RdS^&o!aQ8%c;E*>q#6QmqNw)$;nu`}C_!
z(+ZLP0#I!crlxNE&U(#{#Xm-<HPRd&PN@crDvTCFiXS>$R3XP1zpH+ifq0IgMnXNc
zTt3JKBx=wN&vTr#Lu=`Eoh}#CgaDtSL&1C#?sOr0y+#}3@jFUnpKm^Ig8R+{I2<e-
zZ4`2~#*3;V?<(dzIr&;#<+@}4nKKa;_Q09awS1rC%iYr|AAXebx~q(WhUdtRi9BL6
z$2ah6(#u48(xNTs5(GiOpE*kk!bJ4+2EnIuB68WaOp9R&s!5GY%D^dIi;F3Zn#25^
zr?@qIcINqQf5dKl8yexSyz7H29tdyyhhc-4?vr(!@w@Y&Ck8jU3F^V}ZypeN+UPY(
z%7S9I&q?1<z;nGJkoWe0Fz*#JBa<&Qf?5JRxG5jVKj-RnpU)ttd~BdC97w_b_0i{T
z%J*1_tti($!2ocm)7=0@$33i)O*!hR=BTq-Sib!&(&9~i!u}b(f^~&jbta7_VbHbO
zMyi^zhr?~wuJw8u{P&ZPq;d6^>$NX3gO4D9(1MNvfFhuW)gk5cK~PUo<Nw?>S6CN5
zdAnCz7!7`j78mVhuHIT${*U&*xc?6fQt<xY%A@Lea{Zsp{6yS7lirlxZfI5EjR#s4
zv?}Rbt$j=CqS)`5HA(B9h?}yaMF=3+gu%#3SHTDA|5NJH^&Of*l+Qc67oj<_!=HGR
z$n?%r7OhCAeE;%aK~Q7ks7JEnv;Y3@`;8eb#owW_{~dBx)JPle0rDgFqx4bun=@P^
z3EQ-Q(VZ>iiDwPV_dRI`X@_JNZ%~03QJTjV5(2XXr<1SvU_no=97Rve>dp&Y9xSyM
zF)|76YO!|Z;(AOew=^<=9|Jf4R_@Cd+!Zg%OT&r>L^ngy6ab{U`@!srs^!BkO^Zm(
zZdl39gTiE+FAdbFOZ9}2E+5y>UxwUUN458}E~MgOPtAnA3T>=WaRG6A@3cN&wzBr7
z&4le_+AU*3*D`d|;jFLMG>33C=nwxn88PT%m?ac0U2+`Yo+iHEEk^*T|MG=}B$~}Q
zk%3|0KRtrE)91_ySh<j=@rcY6{evu{@?Q#xz$lP&z~xdg(Phu$${r^#DL}Pw@N0s$
z2+wBde=hIq$d_9W6dpX>qTaAq*wpat6#CW66Y=B7^|usKS~PTYlvuQ(_}ji<I$C_4
z85oQG4-6#yQ|__U-JgKjQ&V*pTB@F|hs&$igYK^r?aKw)rr!^`-YiCeCV~*AlD_0k
z2K0#*%oU=YRv8EF(u&!>K_nC)0;?i+`+AS4G!d>@0A`!X<&xElSdi?cs#s(QLvO|w
zx7Egrd}wD!$m@h=e5P|eZcwS$Ocml}k_^q4X%%Cu!)d8c3IUhT2$`u;)^lj)GI#cZ
ztw^pY!n=A6!?J9aA=4YhM{I}meoUtA2tRUTUTzSRh~IHtH=w>)&-L9FX(CTWrRmB>
zh-!EtF0u-WJ1Ej+ZV^=X^8%XgR_dnbtVwqD>wm~FM4$r8Dh<z4?Buy40!~WY{g()E
zlEX_+2~q}j(Gto8(8qjatkVE5b;K&ZJpA~KTp~Am*;^6yi7|tk;AUJdGpC_<dlFE-
zY{N8(Q7kqXsqWEACi$boj&d?~Hl}|}B7^y)?t2&7<`T$~6VTe3X(>eOy*28Isr4{*
zf7(b>vasWl<KN^$(Y^{AE_zioN&Ux}h*)EoYab{VwLbQmJlbFl9Ee>A*D;PNw~^$j
z*O*jDP1waZLVgpZ!0KX<GdB&FzZ{(yG9DXO<R&D2LL!xKk~klN<A*^N=lzbJR=7s7
z$wraj49Ln7R#AE`?T#cJ<gNhcE+PRM?)>YO@WcCxNBzs7_<Gb48TT}S1+eZ6p`B=J
z$Iku>c>Wr(8bJ`vGS<1@#a%_R3Hh`^>IV5oH!@uPhbq&k=#6U2&oa8#p6%S{jm#h~
z19h{6JKKfut&(qfGxVtF_)GYsG4Pivf41FH;`y#$GNjA);gIm*6NK-nd}ET{+eX_n
zs;vEgLqo=Ho!@X2o!4xi_w|^H1dySr)Z15{d^pFn<_Wk_Qfx?-frOrvySoo&CaL#U
z=&weXCOCMdfon+i&oZ-^XYKIQ0{@k_i~WlE3;%a`GSfky;O%&Q102V2>%kTb_K%KD
zQMgA^-2ADmTL8t!VQj-^nC*ECt{HhR<zxt%$hC)a2;l2)l-^tck{T|}oN2cPzVU!O
zV8h=st<NH{{;r;ndE61y06DVt4b$_;H6(00#)EEA`(14o?hm4EX?ATNx|aq;NQ5Qg
zXm=AuMIXq1YogWlv}f;`D&(Z&c<m=hN1M+djTb+lB;p2~inb|#gC+a(T5Uf~x5baF
z^vmw?<GqCGIkmeNgF8G5Ot*ipA{qKx3s`pOC=GTn_bDUYZ;ix!%_?(y+sh7|7~5i-
zf?vM{#vFvT`-g5iK5kvyi+_5%K)!kI#k_UePE0SFh&!sw6-?EMx!`HAvgl#W5h3;P
zY`=Qj9US4@0OMk!qdeLyRkR~0;?Sf<vzk8cw#ml&$hYkvC`B^=fEw#I{oL+(F!YqH
z>=3grdsv+y;zT&qdcIwpYOKN0Uiq#})Al7HJS{<x**|pqZ#DO>^;g*yF*2t((j~HV
zD&z10Em71}mDJWI>`05_db_kRg@Ooh&&CL>$KU4otB;UJO`hvj{g25DT5kA#<g--E
zmvvu)A+&dGT*kjxCffqca^)zdNc2FHBrQa3F*=AgJ0<J3zUrYA{efP?_AP_|2HlgJ
z-igRE8Vd}C>P_Ofm0c$14dbD7Xg`u*K1^~+vePxazrJi2fQ2-f2osMD{H{U{@?PZX
z34Y!o_;(->@%*UCx~(@o)7!XruUN1786NledXL4O^4VzP;u}rb&_9pO&=*hG;XfJf
zrMo90L7%+W68#_4jg3D*qMtt$PoD-<AgqU@`{^DzPe9}{Z}7uqX$1UmxN&R9pp2ex
zLs)J(t=M)9e`$@O45qp2u4GT=3<GM>uaLbRdTbeB(*S;tdqN)(Gp{CUfh6s%4G$Vf
z+qy;Ry*5!7v!S??%>yQ-nex!_Ut6tRh5l69YRq|4jR~lI6!I*yEp#SXsYy(})7W-a
z?4?JE>M=^1)i!k0({V(zNr73K<~QBE0bY*prxH@PP~AoHCMuh+(NK}~L<wvb%mSO|
zZ?VMjV@QT1^L3=camPj;VP?JQXIzzehF!T1ckV><XWQx;#j$HO#PSI8WBBi-Q>G=3
zM(FZaSFL1=tyRO7=sbQu2Ry(x79u+IJZlJT9OF_GyiFLwhgqC2VH<<$NPpCFkgQk1
zN)}&{5u+{s9jc{%*xPOv^F-X(JIto7++(_4^<PPAKTVV#y!nzJA&_TX462%)o@2{k
zynJE3qL+vBT)vl$;z{?KGl>d(vv|2<|E#~>bCLcbXZ?QkdrnaK5bmd8ME;^QJESXt
zEr*O=4u&aO)s{6D&H<8R*cXr_gJzPpZfuN#c!VZNIi?*|2L^@mz{1#0{#JRYx!bn~
zvQIhN)(iaP%;a+u>dxhtioiEM4wnA@>JK73sPgA)Vz2f8=g;>4wP*xhWRe6{fe5LH
G2>%0W#R(h$

literal 0
HcmV?d00001

diff --git a/resources/UI-test.nlogo b/resources/UI-test.nlogo
index 51bc137..5b08fe0 100644
--- a/resources/UI-test.nlogo
+++ b/resources/UI-test.nlogo
@@ -1,6 +1,12 @@
 to go
   ask turtles [ fd 1 ]
 end
+
+to create-and-move
+  if 40 < count turtles [ stop ]
+  crt 1
+  ask turtles [ fd 1 ]
+end
 @#$#@#$#@
 GRAPHICS-WINDOW
 219
@@ -97,6 +103,23 @@ NIL
 NIL
 1
 
+BUTTON
+66
+276
+161
+309
+stopping
+create-and-move
+T
+1
+T
+OBSERVER
+NIL
+NIL
+NIL
+NIL
+1
+
 @#$#@#$#@
 ## WHAT IS IT?
 
diff --git a/src/main/model.lisp b/src/main/model.lisp
index 3e7c951..0ab8c10 100644
--- a/src/main/model.lisp
+++ b/src/main/model.lisp
@@ -308,7 +308,12 @@ DESCRIPTION:
        (loop
         :while (find button *enabled-forever-buttons* :test #'equal)
         ; The sleep is necessary so that it gives other threads time
-        :do (progn (clnl:run-commands (button-code button)) (sleep .001))))
+        :do
+        (let
+         ((result (funcall *current-callback* (button-code button))))
+         (when (eql :stop result)
+          (setf *enabled-forever-buttons* (remove button *enabled-forever-buttons* :test #'equal)))
+         (sleep .001))))
       :name (format nil "Forever button: ~A" (button-display button))))
     (t (funcall *current-callback* (button-code button)))))))
 
diff --git a/src/test/main.lisp b/src/test/main.lisp
index a62cd60..6d3282d 100644
--- a/src/test/main.lisp
+++ b/src/test/main.lisp
@@ -169,7 +169,15 @@ GRAPHICS-WINDOW~%210~%10~%649~%470~%-1~%-1~%13.0~%1~%10~%1~%1~%1~%0~%1~%1~%1~%-1
 (defmacro defmodelreportertest (name model commands reporter value checksum)
  `(defmodeltest (format nil "Model Reporter - ~A" ,name) ,model ,commands ,reporter ,value ,checksum))
 
-(defmacro defmodelfiletest (name file commands checksum)
+(defun wait-for-forever ()
+ (loop
+  :while
+  (find-if
+   (lambda (name) (cl-ppcre:scan "Forever button:" name))
+   (mapcar #'sb-thread:thread-name (sb-thread:list-all-threads)))
+  :do (sleep .1)))
+
+(defmacro defmodelfiletest (name file commands checksum &optional wait-for-forever)
  `(defsimpletest
    ,(format nil "File Model - ~A" name)
    (lambda ()
@@ -181,6 +189,7 @@ GRAPHICS-WINDOW~%210~%10~%649~%470~%-1~%-1~%13.0~%1~%10~%1~%1~%1~%0~%1~%1~%1~%-1
        (declaim (sb-ext:muffle-conditions cl:warning))
        (eval (clnl:model->single-form-lisp model :netlogo-callback (lambda (f) (setf callback f))))
        (when ,(clnl-commands commands) (funcall callback ,(clnl-commands commands)))
+       ,(when wait-for-forever `(wait-for-forever))
        (checksum= ,checksum (checksum-world)))
       (let*
        ((pkg (make-package (gensym)))
@@ -195,6 +204,7 @@ GRAPHICS-WINDOW~%210~%10~%649~%470~%-1~%-1~%13.0~%1~%10~%1~%1~%1~%0~%1~%1~%1~%-1
        (funcall (symbol-function (intern "BOOT-ME" pkg)))
        (when ,(clnl-commands commands)
         (funcall (symbol-function (intern "NETLOGO-CALLBACK" pkg)) ,(clnl-commands commands)))
+       ,(when wait-for-forever `(wait-for-forever))
        (checksum= ,checksum (checksum-world))))))
    (lambda ()
     (let
@@ -205,6 +215,7 @@ GRAPHICS-WINDOW~%210~%10~%649~%470~%-1~%-1~%13.0~%1~%10~%1~%1~%1~%0~%1~%1~%1~%-1
        (with-open-file (str ,file) (clnl-model:read-from-nlogo str))
        :netlogo-callback (lambda (f) (setf callback f))))
      (when ,(clnl-commands commands) (funcall callback ,(clnl-commands commands)))
+     ,(when wait-for-forever `(wait-for-forever))
      (format nil "~A~A"
       (clnl-nvm:export-world)
       (checksum-world))))
diff --git a/src/test/modeltests.lisp b/src/test/modeltests.lisp
index 133827d..d80f871 100644
--- a/src/test/modeltests.lisp
+++ b/src/test/modeltests.lisp
@@ -139,6 +139,11 @@ end"
  (":button \"setup\" :button \"go\" 1" "crt 10 go ask turtles [ rt 90 ] go")
  "4E0128F172B4D0085186E49FDBD7014F6E365ED7")
 
+(defmodelfiletest "UI 4" "resources/UI-test.nlogo"
+ (":button \"stopping\"" "repeat 80 [ create-and-move ]")
+ "749DC971517EDE9020BF125D0F362A978980272F"
+ t)
+
 (defmodelfiletest "Wolf Sheep 1" "resources/models/Wolf Sheep Predation.nlogo"
  "setup go go go go go go go go go go go go go go"
  "9777CCF18935E52D8380C9C6DC02BFFBEE1F1149")
-- 
2.25.1