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

;; You must not remove this notice, or any other, from this software.

(ns conexp.contrib.algorithms.concepts
  (:use conexp.contrib.algorithms.bitwise)
  (:use [conexp.fca.contexts :only (objects attributes incidence)])
  (:import [java.util BitSet])
  (:import [java.util.concurrent SynchronousQueue]))

;(set! *warn-on-reflection* true)

;;; Concept Calculation

(defmulti concepts
  "Computes concepts with various algorithms, given as first argument."
  {:arglists '([algorithm context])}
  (fn [& args] (first args)))


;; NextClosure (:next-closure)

(defn- lectic-<_i
  ""


;; In-Close (:in-close)

;; TODO: Check this, it's too slow.

(defn- cannonical?
  "Implements the IsCannonical method of In-Close."
  [incidence-matrix, #^BitSet A-new, #^BitSet B, y]
