22 lines
402 B
C
22 lines
402 B
C
#include <sys/types.h>
|
|
|
|
#include <assert.h>
|
|
#include <limits.h>
|
|
#include <math.h>
|
|
#include <setjmp.h>
|
|
#include <stdarg.h>
|
|
#include <stdint.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include "scheme.h"
|
|
|
|
#include "equalhash.h"
|
|
|
|
#include "htable_inc.h"
|
|
|
|
#define _equal_lispvalue_(x, y) equal_lispvalue((value_t)(x), (value_t)(y))
|
|
|
|
HTIMPL(equalhash, hash_lispvalue, _equal_lispvalue_)
|