[Ecls-list] cl_defparameter implementation

[Juan Jose Garcia-Ripoll]

Sorry, I copy pased from the wrong buffer

void
ecl_defvar(cl_object sym, cl_object val)
{
	si_safe_eval(3, cl_list(3, @'defvar', sym, cl_list(2, @'quote',
val)), Cnil, Cnil);
}

void
ecl_defparameter(cl_object sym, cl_object val)
{
	si_safe_eval(3, cl_list(3, @'defparameter', sym, cl_list(2, @'quote',
val)), Cnil, Cnil);
}

-- 
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28009 (Spain)
http://juanjose.garciaripoll.googlepages.com