<function>
<fname property="Applicative Order / LEVEL: 0">
= , Equ, Neq, Lt , Gt , Lteq, Gteq
</fname>
<prototype>
LISP形式

(= exp1 exp2)
(Equ exp1 exp2)
(Neq exp1 exp2)
(Lt exp1 exp2)
(Gt exp1 exp2)
(Lteq exp1 exp2)
(Gteq exp1 exp2)

XML形式

<Equ> exp1 exp2</Equ>
<Neq> exp1 exp2</Neq>
<Lt> exp1 exp2</Lt>
<Gt> exp1 exp2</Gt>
<Lteq> exp1 exp2</Lteq>
<Gteq> exp1 exp2</Gteq>
</prototype>
<prototype>
C関数宣言

int cEqu(XLtype * exp1,XLtype * exp2);
</prototype>
<explanation>
exp1とexp2が等しければ0,exp1 &gt; exp2 ならば1、その他ならば-1
を返す。大小が分からないが、等しくない場合は-2を返す。

exp1 exp2の比較を取って戻り値とする。真偽値は、Integerで、0が偽、それ以外は真と解釈する。

<table border=1 cellspacing=0 cellpadding=0 width=337>
    <tr> 
      <td valign=bottom > 
        <p>=,Equ</p>
      </td>
      <td valign=bottom > 
        <p>等しいとき真</p>
      </td>
    </tr>
    <tr> 
      <td valign=bottom > 
        <p>Neq</p>
      </td>
      <td   valign=bottom > 
        <p>等しくないとき真</p>
      </td>
    </tr>
    <tr> 
      <td valign=bottom > 
        <p>Lt</p>
      </td>
      <td   valign=bottom > 
        <p>小なり。exp1が小さいとき真</p>
      </td>
    </tr>
    <tr> 
      <td valign=bottom > 
        <p>Gt</p>
      </td>
      <td   valign=bottom > 
        <p>大なり。exp1が大きいとき真</p>
      </td>
    </tr>
    <tr> 
      <td valign=bottom > 
        <p>Lteq</p>
      </td>
      <td   valign=bottom > 
        <p>(Or 
          (= exp1 exp2) (Lt exp1 exp2)) と等価</p>
      </td>
    </tr>
    <tr> 
      <td valign=bottom > 
        <p>Gteq</p>
      </td>
      <td valign=bottom > 
        <p>(Or 
          (= exp1 exp2) (Gt exp1 exp2)) と等価</p>
      </td>
    </tr>
  </table>
</explanation>
</function>
