ef="ref-glossary.html#id120">ksa&nbsp;class</a>, <nobr><code>ksa-with-lock</code></nobr>, that has
an additional <a href="ref-glossary.html#gl:slot">slot</a> containing a <a href="ref-glossary.html#gl:lock">lock</a> that can be used to
synchronize operations on each <a href="ref-glossary.html#gl:activations">KSA</a> of that class.
<pre class="pretop">
  &gt; (define-ksa-class ksa-with-lock ()
      ((lock :initform (<a href="ref-make-lock.html">make-lock</a> :name "KSA Lock"))))
  #&lt;standard-ksa-class ks