Author: ksprotte Date: Sun Jul 1 15:19:26 2007 New Revision: 6 Modified: trunk/src/morphologie.lisp Log: added om utils Modified: trunk/src/morphologie.lisp ============================================================================== --- trunk/src/morphologie.lisp (original) +++ trunk/src/morphologie.lisp Sun Jul 1 15:19:26 2007 @@ -1,8 +1,32 @@ +;************************************************************************************************************* +;* * +;* Jacopo Baboni Schilingi & Frederic VOISIN * +;* * +;* IRCAM, Paris, november 1998 for Morphologie 1.0 * +;* may 1999 for Morphologie 2.0 * +;* * +;* Fonctions d'analyse, reconnaissance de pattern et classification morphologiques des profiles g�ometriques * +;* Analysis fonctions, pattern recognition and morphological classification of geometric profiles * +;* * +;************************************************************************************************************* (defpackage "MORPH2") (in-package "MORPH2") +;;; watch out for functions like OM::group-list +;;; still in this file + +;;; first some om utils +(defun list! (thing) + (if (listp thing) thing (list thing))) + +(defun mat-trans (matrix) + (assert (apply #'= (mapcar #'length matrix)) nil + "this should not happen. Please report this to Kilian Sprotte") + (when matrix (apply #'mapcar #'list matrix))) +;;; end utils + (define-ompw list-part (list &optional ncol) "partitions <list> in <ncol> lists containing the elements modulo <ncol>" :non-generic t