190 |
#define SCM_ESLOTDEF(x) ((scm_effective_slot_definition *) SCM_CDR (x)) |
#define SCM_ESLOTDEF(x) ((scm_effective_slot_definition *) SCM_CDR (x)) |
191 |
|
|
192 |
#define SCM_CMETHOD_CODE(cmethod) SCM_CDR (cmethod) |
#define SCM_CMETHOD_CODE(cmethod) SCM_CDR (cmethod) |
193 |
|
#define SCM_CMETHOD_FORMALS(cmethod) SCM_CAR (SCM_CMETHOD_CODE (cmethod)) |
194 |
|
#define SCM_CMETHOD_BODY(cmethod) SCM_CDR (SCM_CMETHOD_CODE (cmethod)) |
195 |
#define SCM_CMETHOD_ENV(cmethod) SCM_CAR (cmethod) |
#define SCM_CMETHOD_ENV(cmethod) SCM_CAR (cmethod) |
196 |
|
|
197 |
/* Port classes */ |
/* Port classes */ |