<div class="gmail_quote">On Sun, Feb 7, 2010 at 1:04 AM, Tobias C. Rittweiler <span dir="ltr"><<a href="mailto:tcr@freebits.de">tcr@freebits.de</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div><div></div><div class="h5">Here is another example where internal variable usage leaks through:</div></div>
<br>
(defvar *thread-id-counter* 0)<br>
<br>
(defvar *thread-id-counter-lock*<br>
  (mp:make-lock :name "thread id counter lock"))<br>
<br>
(defun next-thread-id ()<br>
  (mp:with-lock (*thread-id-counter-lock*)<br>
    (incf *thread-id-counter*)))</blockquote><div><br></div><div>An internal variable had not been declared special globally. Thanks for pointing both errors out!</div><div> </div><div>Juanjo</div></div><br>-- <br>Instituto de Física Fundamental, CSIC<br>
c/ Serrano, 113b, Madrid 28006 (Spain) <br><a href="http://juanjose.garciaripoll.googlepages.com">http://juanjose.garciaripoll.googlepages.com</a><br>