* @param name name of a potential binding * * @return true if the binding is locked in this environment * see ?bindingIsLocked * * @throw no_such_binding if there is no such binding in this environment */
| 276 | * @throw no_such_binding if there is no such binding in this environment |
| 277 | */ |
| 278 | bool bindingIsLocked(const std::string& name) const{ |
| 279 | if( !exists( name) ) throw no_such_binding(name) ; |
| 280 | SEXP nameSym = Rf_install(name.c_str()); |
| 281 | return R_BindingIsLocked(nameSym, Storage::get__() ) ; |
| 282 | } |
| 283 | |
| 284 | /** |
| 285 | * |