<html><head><meta http-equiv="Content-Type" content="text/html charset=windows-1252"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;">[Re-adding the group]<div><br></div><div>Oh, sorry, that’s just a synonym for LAMBDA. It’s part of my standard library.</div><div><br></div><div><a href="https://github.com/rongarret/ergolib">https://github.com/rongarret/ergolib</a></div><div><br></div><div>FN is easier to type and more easily parseable by newbies. But if you don’t feel like using that just replace FN with LAMBDA.</div><div><br></div><div><div>rg</div></div><div><br><div><div>On Apr 29, 2021, at 8:42 AM, barthes <<a href="mailto:barthes@utc.fr">barthes@utc.fr</a>> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><div style="word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class="">Thanks Ron for the macro and the explanations.<div class=""><br class=""></div><div class="">Silly question: What is <font color="#ff2600" class="">fn</font> in your macro (2 lines before the end)?</div><div class=""><br class=""></div><div class="">Best</div><div class="">J.Paul</div><div class=""><br class=""><div><br class=""><blockquote type="cite" class=""><div class="">Début du message réexpédié :</div><br class="Apple-interchange-newline"><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px;" class=""><span style="font-family: -webkit-system-font, 'Helvetica Neue', Helvetica, sans-serif;" class=""><b class="">De: </b></span><span style="font-family: -webkit-system-font, Helvetica Neue, Helvetica, sans-serif;" class="">Ron Garret <<a href="mailto:ron@flownet.com" class="">ron@flownet.com</a>><br class=""></span></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px;" class=""><span style="font-family: -webkit-system-font, 'Helvetica Neue', Helvetica, sans-serif;" class=""><b class="">Objet: </b></span><span style="font-family: -webkit-system-font, Helvetica Neue, Helvetica, sans-serif;" class=""><b class="">Rép : [Openmcl-devel] Problem with the (:y nn) command</b><br class=""></span></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px;" class=""><span style="font-family: -webkit-system-font, 'Helvetica Neue', Helvetica, sans-serif;" class=""><b class="">Date: </b></span><span style="font-family: -webkit-system-font, Helvetica Neue, Helvetica, sans-serif;" class="">29 avril 2021 à 17:13:41 UTC+2<br class=""></span></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px;" class=""><span style="font-family: -webkit-system-font, 'Helvetica Neue', Helvetica, sans-serif;" class=""><b class="">À: </b></span><span style="font-family: -webkit-system-font, Helvetica Neue, Helvetica, sans-serif;" class="">barthes <<a href="mailto:barthes@utc.fr" class="">barthes@utc.fr</a>><br class=""></span></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px;" class=""><span style="font-family: -webkit-system-font, 'Helvetica Neue', Helvetica, sans-serif;" class=""><b class="">Cc: </b></span><span style="font-family: -webkit-system-font, Helvetica Neue, Helvetica, sans-serif;" class=""><a href="mailto:Openmcl-devel@clozure.com" class="">Openmcl-devel@clozure.com</a><br class=""></span></div><br class=""><div class=""><div class="">If you are spawning processes in the GUI it is better to use gui:background-process-run-function rather than the regular process-run-function.<br class=""><br class="">Here is a macro that I use to spawn processes. It automatically dispatches to the correct function depending on the environment it’s running in, and also has a workaround for a small bug in the gui code:<br class=""><br class="">(defmacro spawn (&rest body)<br class=""> (let ((name (mcond (stringp (car body)) (pop body)<br class=""> (eq (car body) :name) (progn (pop body) (pop body))<br class=""> t '(symbol-name (gensym "SPAWNED-TASK"))))<br class=""> (namevar (gensym "NAME"))<br class=""> (prf (or #+EASYGUI 'gui:background-process-run-function 'process-run-function)))<br class=""> `(let ((,namevar ,name))<br class=""> (prog1<br class=""> (,prf (list :name (princ-to-string ,namevar)) #+LISPWORKS nil (fn () ,@body))<br class=""> #+EASYGUI (sleep 0.1) ; Workaround for race condition in gui:background-process-run-function<br class=""> ))))<br class=""><br class="">On Apr 29, 2021, at 4:40 AM, barthes <<a href="mailto:barthes@utc.fr" class="">barthes@utc.fr</a>> wrote:<br class=""><br class=""><blockquote type="cite" class="">Hi<br class=""><br class="">I am trying to reproduce the example found in the Clozure documentation:<br class=""><br class=""><Capture d’écran 2021-04-29 à 13.30.35.png><br class=""><br class=""><br class="">When executing this line a Clozure window appears:<br class=""><br class=""><Capture d’écran 2021-04-29 à 13.30.03.png><br class=""><br class="">but I have no way of regaining control, i.e. nothing happens.<br class=""><br class="">What should I do?<br class=""><br class="">Is there a way to get rid of this window?<br class=""><br class="">The MacOS on my machine is Mojave 10.14.6<br class=""><br class=""><br class="">Thanks<br class=""><br class="">J.Paul Barthès<br class="">_______________________________________________<br class="">Openmcl-devel mailing list<br class=""><a href="mailto:Openmcl-devel@clozure.com" class="">Openmcl-devel@clozure.com</a><br class=""><a href="https://antispam.utc.fr/proxy/2/YmFydGhlc0B1dGMuZnI%3D/lists.clozure.com/mailman/listinfo/openmcl-devel">https://antispam.utc.fr/proxy/2/YmFydGhlc0B1dGMuZnI%3D/lists.clozure.com/mailman/listinfo/openmcl-devel</a><br class=""></blockquote><br class=""></div></div></blockquote></div><br class=""></div></div></blockquote></div><br></div></body></html>