 	 (persistent! Bs))))
 
 
-;; Close-by-One?, Nourine-Raynaud?, Bordat?, Lindig? Some other fancy stuff?
+;; Close-by-One?, Nourine-Raynaud?, Bordat?, Lindig?, Berry? Some other fancy stuff?
 
 nil

  (fn [& args] (first args)))


;; NextClosure with BitSets (:next-closure)

(defn- lectic-<_i
  ""
  [i #^BitSet A #^BitSet B]
  (let [i (int i)]
    (and (.get B i)
	 (not (.get A i))


(defn- oplus
  ""
  [object-count, attribute-count, incidence-matrix, #^BitSet A, i]
  (let [#^BitSet A-short (.clone A),
	#^BitSet B (BitSet.),
	i (int i)]
    (.set A-short i true)
    (.set A-short (inc i) (int attribute-count) false)
