[Morphologie-cvs] r26 - in trunk: . src

[ksprotte at common-lisp.net]

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