rem: scheme_make_lifted_defn(Scheme_Object *sys_wraps, Scheme_Object *id, Scheme_Object *expr, Scheme_Comp_Env *env)
add: scheme_make_lifted_defn(Scheme_Object *sys_wraps, Scheme_Object **_id, Scheme_Object *expr, Scheme_Comp_Env *env)
context: scheme_make_lifted_defn(Scheme_Object *sys_wraps, Scheme_Object *id, Scheme_Object *expr, Scheme_Comp_Env *env){  Scheme_Object *l;  /* Registers marked id: */  scheme_tl_id_sym(env->genv, id, 2);  l = icons(scheme_datum_to_syntax(define_values_symbol, scheme_false, sys_wraps, 0, 0), 	    icons(scheme_make_immutable_pair(id, scheme_null),		  icons(expr,			scheme_null)));  return scheme_datum_to_syntax(l, scheme_false, scheme_false, 0, 0);}