; Pour compatibilite anciennes versions lelisp.

(de <0 (x) (< x 0))
(de >0 (x) (> x 0))
(de =0 (x) (= x 0))