a-with-lock&gt;
  &gt;
</pre>
Do the same, but with a mixin class:
<pre>
  &gt; (define-unit-class ksa-lock-mixin ()
      ((lock :initform (<a href="ref-make-lock.html">make-lock</a> :name "KSA Lock"))))
  #&lt;standard-unit-class ksa-lock-mixin&gt;
  &gt; (define-ksa-class ksa-with-lock (ksa ksa-lock-mixin)
      ())
  #&lt;standard-ksa-class ksa-with-lock&gt;
  &gt;
</pre>
</p>
<hr /><address><a target="_top" class="address"
    href="http://GBBopen.org/"><p>The GBBopen Project</a></address><br />
<table