Author: ksprotte Date: Wed Aug 1 13:54:59 2007 New Revision: 26

Modified: trunk/morphologie.asd trunk/src/morphologie.lisp Log: (alpha? :alpha) (verbose :no)

Modified: trunk/morphologie.asd ============================================================================== --- trunk/morphologie.asd (original) +++ trunk/morphologie.asd Wed Aug 1 13:54:59 2007 @@ -4,7 +4,7 @@ #+sbcl (setq sb-impl::*default-external-format* :latin-1)

(defsystem :morphologie - :version "3.0" + :version "3.0.1" :components ((:static-file "morphologie.asd") (:module :src

Modified: trunk/src/morphologie.lisp ============================================================================== --- trunk/src/morphologie.lisp (original) +++ trunk/src/morphologie.lisp Wed Aug 1 13:54:59 2007 @@ -2125,8 +2125,8 @@ (setf class (str->symb class)) (entropy class res))

-(define-box meta-class1 ((matrix nil) (n 2) (iter 1) &optional alpha? centers - verbose) +(define-box meta-class1 ((matrix nil) (n 2) (iter 1) &optional (alpha? :alpha) centers + (verbose :no)) "Does n iterations of class-1 algorithm. The classes designation is normalized." :non-generic t