 
 ;; 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]

;; 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
  ""

	 (persistent! Bs))))


;;; Close-by-One?, Nourine-Raynaud?, Bordat?, Lindig?, Berry? Some other fancy stuff?

nil
