<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
</head>
<body>
<p>The created lock is a RECURSIVE-LOCK, meaning that it can be
grabbed N times by a single thread. In order to be released, it
must be released exactly N times by the same thread.</p>
<p>See <a class="moz-txt-link-freetext" href="https://en.wikipedia.org/wiki/Reentrant_mutex">https://en.wikipedia.org/wiki/Reentrant_mutex</a><br>
</p>
<div class="moz-cite-prefix">On 11.03.2020 17:19, martin wrote:<br>
</div>
<blockquote type="cite"
cite="mid:54B237AE-2B46-439D-A067-956F9AEB9921@sympatico.ca">
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<div dir="auto" style="word-wrap: break-word; -webkit-nbsp-mode:
space; line-break: after-white-space;" class="">Hello All
<div class="">Is the following easily explained?</div>
<div class="">Why is the lock grab-able at the breakpoint?</div>
<div class="">The same experiment with the IDE (on Mac) shows
the lock not grab-able in a second Listener, at the same time
that it is grab-able inside the breakpoint on the first
Listener.</div>
<div class="">Martin</div>
<div class=""><br class="">
</div>
<div class="">
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class=""><span
style="font-variant-ligatures: no-common-ligatures"
class="">Clozure Common Lisp Version 1.12-dev DarwinX8664</span></div>
</div>
<div class=""><span style="font-variant-ligatures:
no-common-ligatures" class=""><br class="">
</span></div>
<div class=""><span style="font-variant-ligatures:
no-common-ligatures" class="">
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class=""><span
style="font-variant-ligatures: no-common-ligatures"
class="">? (defvar gg)</span></div>
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class=""><span
style="font-variant-ligatures: no-common-ligatures"
class="">GG</span></div>
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class=""><span
style="font-variant-ligatures: no-common-ligatures"
class=""><br class="">
</span></div>
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class=""><span
style="font-variant-ligatures: no-common-ligatures"
class="">? (setf gg (make-lock))</span></div>
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class=""><span
style="font-variant-ligatures: no-common-ligatures"
class="">#<RECURSIVE-LOCK [ptr @ #x20E05300]
#x302000A1D3ED></span></div>
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class=""><span
style="font-variant-ligatures: no-common-ligatures"
class=""><br class="">
</span></div>
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class=""><span
style="font-variant-ligatures: no-common-ligatures"
class="">? (with-lock-grabbed (gg) (break))</span></div>
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class=""><span
style="font-variant-ligatures: no-common-ligatures"
class="">> Break: Break</span></div>
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class=""><br
class="">
</div>
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class="">1 >
(with-lock-grabbed (gg) 'foo)</div>
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255); min-height: 13px;"
class="">FOO<span style="font-variant-ligatures:
no-common-ligatures" class=""></span></div>
<div style="margin: 0px; font-stretch: normal; font-size:
11px; line-height: normal; font-family: Menlo;
background-color: rgb(255, 255, 255);" class=""><span
style="font-variant-ligatures: no-common-ligatures"
class="">1 > </span></div>
</span></div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<pre class="moz-quote-pre" wrap="">_______________________________________________
Openmcl-devel mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a>
<a class="moz-txt-link-freetext" href="https://lists.clozure.com/mailman/listinfo/openmcl-devel">https://lists.clozure.com/mailman/listinfo/openmcl-devel</a>
</pre>
</blockquote>
</body>
</html>