   [ctx]
   (deref (:context ctx)))
 
-(defmethod  get-context :conexp.fca.contexts/Context
+(defmethod get-context :conexp.fca.contexts/Context
   [x] x)
 
 (defn make-context-compatible

                       %)]
    (set (fltr (map #(names (view %)) sel)))))

(defn-typecheck get-selected-attributes ::context-editor-widget
  "Returns the set of selected attributes in the context-editor-widget."
  [widget]
  (let [table (get-table widget),
        view  (get-column-index-permutator table),
        sel   (seq (.getSelectedColumns (get-control table))),

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

(defn- change-attribute-name
  "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."
  [ectx given requested]
  (assert (instance? editable-context ectx))
  (let [att-cols @(:attr-cols ectx)]
    (if (= (type given) String)
      (change-attribute-name ectx (att-cols given) requested)
