Searched refs:SCM_CAR (Results 1 – 3 of 3) sorted by relevance
36 #define SCM_TYP7(x) (0x7f & (int)SCM_CAR(x))37 #define SCM_LENGTH(x) (((unsigned long)SCM_CAR(x))>>8)38 #define SCM_NCONSP(x) (1 & (int)SCM_CAR(x))40 #define SCM_CAR(x) scm_get_field (x, 0) macro43 #define SCM_CLOSCAR(x) (SCM_CAR(x)-scm_tc3_closure)44 #define SCM_CODE(x) SCM_CAR(SCM_CLOSCAR (x))
309 #define SCM_GC8MARKP(x) (0x80 & (int)SCM_CAR(x))312 #define SCM_SETGC8MARK(x) (SCM_CAR(x) |= 0x80)313 #define SCM_CLRGC8MARK(x) (SCM_CAR(x) &= ~0x80L)318 #define SCM_TYP3(x) (7 & (int)SCM_CAR(x))319 #define SCM_TYP7(x) (0x7f & (int)SCM_CAR(x))320 #define SCM_TYP7S(x) (0x7d & (int)SCM_CAR(x))321 #define SCM_TYP16(x) (0xffff & (int)SCM_CAR(x))322 #define SCM_TYP16S(x) (0xfeff & (int)SCM_CAR(x))323 #define SCM_GCTYP16(x) (0xff7f & (int)SCM_CAR(x))
104 scm_scmval_print (SCM_CAR (svalue), stream, format, in scm_scmlist_print()117 scm_scmval_print (SCM_CAR (svalue), stream, format, in scm_scmlist_print()135 (long) SCM_CAR (ptr), (long) SCM_CDR (ptr)); in scm_ipruk()177 svalue = SCM_CAR (svalue - 1); in scm_scmval_print()188 if (SCM_CDR (SCM_CAR (svalue) - 1L) == 0) in scm_scmval_print()313 int index = SCM_CAR (svalue) >> 8; in scm_scmval_print()