shithub: sl

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