<div>It should be a set according to <a href="http://www.alu.org/mop/dictionary.html">http://www.alu.org/mop/dictionary.html</a></div><div><br></div><div><span class="Apple-style-span" style="font-family: Times; font-size: medium; "><p>
<i>Generic Function</i> <b>class-direct-subclasses</b> <i>class</i></p><p>Returns a set of the direct subclasses of <i>class</i>. The elements of this set are class metaobjects that all mention this class among their direct superclasses. The empty set is returned if <i>class</i> has no direct subclasses. This value is maintained by the generic functions <a href="http://www.alu.org/mop/dictionary.html#add-direct-subclass"><b>add-direct-subclass</b></a> and <a href="http://www.alu.org/mop/dictionary.html#remove-direct-subclass"><b>remove-direct-subclass</b></a>.</p>
<div><span class="Apple-style-span" style="font-family: arial; font-size: small; ">(map nil 'print (system:class-direct-subclasses (find-class 'ido-pathway-block)))</span></div></span></div><div><br></div><div>#<STANDARD-CLASS PARSED-SHEET-INFO-BLOCK {895391}> </div>
<div>#<STANDARD-CLASS PARSED-EVIDENCE-BLOCK {C422A5}> </div><div>#<STANDARD-CLASS PARSED-COMPLEX-BLOCK {90AD53}> </div><div>#<STANDARD-CLASS PARSED-PROCESS-BLOCK {14D509}> </div><div>#<STANDARD-CLASS PARSED-HANDLE-BLOCK {5AFFB3}> </div>
<div>#<STANDARD-CLASS PARSED-SHEET-INFO-BLOCK {895391}> </div><div>#<STANDARD-CLASS PARSED-EVIDENCE-BLOCK {C422A5}> </div><div>#<STANDARD-CLASS PARSED-COMPLEX-BLOCK {90AD53}> </div><div>#<STANDARD-CLASS PARSED-PROCESS-BLOCK {14D509}> </div>
<div>#<STANDARD-CLASS PARSED-HANDLE-BLOCK {5AFFB3}> </div><div><br></div><div>-Alan</div>