-#ifdef PARANOID
-#include <libguile/gc.h>
-#undef gh_pair_p
-bool
-ly_pair_p (SCM x)
-{
-#if 0
- assert (!SCM_CONSP (x) || (*(scm_t_bits*) SCM2PTR (SCM_CAR (x))) != scm_tc_free_cell);
- assert (!SCM_CONSP (x) || (*(scm_t_bits*) SCM2PTR (SCM_CDR (x))) != scm_tc_free_cell);
-#elif GUILE_MINOR_VERSION < 5
- assert (!SCM_CONSP (x) || !SCM_FREEP (SCM_CAR (x)));
- assert (!SCM_CONSP (x) || !SCM_FREEP (SCM_CDR (x)));
-#else
- assert (!SCM_CONSP (x) || !SCM_FREE_CELL_P (SCM_CAR (x)));
- assert (!SCM_CONSP (x) || !SCM_FREE_CELL_P (SCM_CDR (x)));
-#endif
- //return SCM_NFALSEP (scm_pair_p (x));
- return gh_pair_p (x);
-}
-#define gh_pair_p ly_pair_p
-#endif
-