condition '()))
       (c0 (make-condition &amp;c))
       (c1 (make-compound-condition c0)))
  (eq? c0 (extract-condition c1 &amp;c)))
</pre>to return false.<p></p>
</dd>
</dl>
<h2>Macros</h2>
<dl><dt><code>(define-condition-type </code>&lt;condition-type&gt; &lt;supertype&gt; &lt;predicate&gt; &lt;field-spec&gt; ...<code>)</code></dt>
<dd><p>This defines a new condition type. &lt;Condition-type&gt;, &lt;supertypes&gt;, and &lt;predicate&gt; must all be identifiers. <code>Define-condition-type</code>
defin