shithub: sl

ref: a0e26d4f40a3a63f9d33fd1a1f01e23a18ff7e27
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);