fn eval_expr(code: &str) -> Result<Value, nomiscript::Error> {

    let program = Reader::parse(code)?;

    let mut symbols = SymbolTable::with_builtins();

    eval_program(&mut symbols, &program)

}

fn debug_mapcar_expansion() {

    let symbols = SymbolTable::with_builtins();

    if let Some(mapcar_symbol) = symbols.lookup("MAPCAR")

        && let Some(nomiscript::Expr::Lambda(params, body)) = mapcar_symbol.function()

    {

        println!("MAPCAR params: {params:?}");

        println!("MAPCAR body: {body:?}");

    }

    let result = eval_expr("(MACROEXPAND-1 '(mapcar '+ '(1 2 3)))");

    match &result {

        Ok(v) => println!("Expansion Result: {v:?}"),

    let result = eval_expr("(mapcar '+ '(1 2 3))");

    match &result {

        Ok(v) => println!("Call Result: {v:?}"),

}