[Morphologie-cvs] r14 - trunk/src

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Fri Jul  6 04:16:32 2007
New Revision: 14

Modified:
   trunk/src/morphologie.lisp
Log:
changes for new OMPW - you need at least 0.2.0


Modified: trunk/src/morphologie.lisp
==============================================================================
--- trunk/src/morphologie.lisp	(original)
+++ trunk/src/morphologie.lisp	Fri Jul  6 04:16:32 2007
@@ -33,6 +33,9 @@
 ;;        :do (push (remove nil (nreverse (svref vector i))) res))
 ;;     (nreverse res)))
 
+(def-menu morphologie)
+(in-menu morphologie)
+
 (define-ompw list-modulo (list &optional ncol)
   "partitions LIST in NCOL lists containing the elements modulo NCOL"
   :non-generic t
@@ -72,6 +75,7 @@
 
 (define-ompw g-min (list)
   :non-generic t
+  :export nil ; just for trying things out, we exclude this from the menu
   (less-deep-mapcar #'the-min (list! list)))
 
 
@@ -361,6 +365,7 @@
 		   (mapcar #'car r)
 		   (mapcar #'(lambda (x) (mapcar #'car x)) r)))))))
 
+(menu-separator)
 
 (define-ompw ldl-distance ((l-seq ((a b c) (a b b) (a b c))) (change 1.0)
 			   (ins/sup 1.0) (inex 0.0) (scale "abs")
@@ -4487,3 +4492,10 @@
   list
   ""
   (add-to-datase name))
+
+;;; just a test - I will remove it
+(menu-separator)
+(menu-add-symbol +)
+
+(install-menu morphologie)
+