[Morphologie-cvs] r6 - trunk/src

[ksprotte at common-lisp.net]

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