           new-name)))))
 
 
-(inherit-multimethod change-object-name ::editable-context
+(defn-typecheck change-object-name ::editable-context
  "Changes the object's name of given to requested, if requested is
   not taken by another object. In this case, -# with a unique # is
   appended to the requested name. Returns the new attribute name

  Parameters:
     ectx       _editable-context
     given      _current attribute name or column index
     requested  _requested new attribute name")

(defmethod change-attribute-name ::editable-context
  [ectx given requested]
  (let [ att-cols @(:attr-cols ectx) ]
    (if (= (type given) String)

                  row col (if cross "X" " ")))))))


(defn-typecheck change-attribute-name ::editable-context
 "Changes the attributes name of given to requested, if requested is
  not taken by another attribute. In this case, -# with a unique # is
  appended to the requested name. Returns the new attribute name
