return false;
}
+Object *Object::get_link(unsigned) const
+{
+ throw out_of_range("Object::get_link");
+}
+
+bool Object::break_link(Object &other)
+{
+ unsigned nls = get_n_link_slots();
+ for(unsigned i=0; i<nls; ++i)
+ if(get_link(i)==&other)
+ return break_link(i);
+
+ return false;
+}
+
+void Object::break_links()
+{
+ unsigned nls = get_n_link_slots();
+ for(unsigned i=0; i<nls; ++i)
+ break_link(i);
+}
+
} // namespace R2C2