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) +