shithub: sl

ref: ec4d8b26ab214f3b601db96d7effd78ea5da89c8
dir: /src/equal.h/

View raw version 
#pragma once

// comparable with ==
#define eq_comparable(a, b) (!(((a)|(b))&1))
#define eq_comparablep(a) (!((a)&1)) /* mag: UNUSED? */

int equal_lispvalue(sl_v a, sl_v b);
uintptr hash_lispvalue(sl_v a);
sl_v sl_compare(sl_v a, sl_v b, bool eq);
int numeric_compare(sl_v a, sl_v b, bool eq, bool eqnans, bool typeerr);
void comparehash_init(void);