lisp_eval_should_be '(progn (setenv "FNORD" "blat") (getenv "FNORD"))' '"blat"' 'setenv'
export FNORD=zart
lisp_eval_should_be '(getenv "FNORD")' '"zart"' 'getenv'
unset FNORD

    else if(car == _symbol("getenv"))
        return _getenv(_eval3(_cadr(form), env, env, d+1))
    else if(car == _symbol("setenv"))
        return _setenv(_eval3(_cadr(form), env, env, d+1),
                       _eval3(_caddr(form), env, env, d+1))

function _getenv(var) {
    if(_TYPE[var] == "s") {
        return _string(ENVIRON[_STRING[var]])
    } else {
        logg_err("_getenv", "environment variable name should be a string")
        return _nil()
    }
}
function _setenv(var, val) {
    if(_TYPE[var] == "s") {
        if(_TYPE[val] == "s") {
            ENVIRON[_STRING[var]] = _STRING[val]
            return val
        } else {
            logg_err("_setenv", "environment variable value should be a string")
            return _nil()
        }
    } else {
        logg_err("_setenv", "environment variable name should be a string")
        return _nil()
    }
}

    _symbol("getenv")
    _symbol("setenv")