VCSI_OBJECT cdaadr(VCSI_CONTEXT vc, VCSI_OBJECT x) { return cdr(vc,caadr(vc,x)); }
static data_t *get_definition_variable(const data_t *exp) { if(is_symbol(cadr(exp))) return cadr(exp); return caadr(exp); }