shithub: sl

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