[Morphologie-cvs] r11 - trunk/src

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Thu Jul  5 10:09:13 2007
New Revision: 11

Modified:
   trunk/src/morphologie.lisp
Log:
added ignore to (error "default method. should not be called.")


Modified: trunk/src/morphologie.lisp
==============================================================================
--- trunk/src/morphologie.lisp	(original)
+++ trunk/src/morphologie.lisp	Thu Jul  5 10:09:13 2007
@@ -10,9 +10,6 @@
 ;;;*                                                                                                           *
 ;;;*************************************************************************************************************
 
-;;; please note that this file has been autogenerated
-;;; hand editing might not yet make sense
-
 (defpackage :morph2 (:use :cl :ompw))
 
 (in-package :morph2)
@@ -193,6 +190,7 @@
    Si N est nul (nil), donne tous les segments repetes quelle que
    soit leur longueur;
    N peut etre une liste de longueurs souhaitees."
+  (declare (ignore list n))
   (error "default method. should not be called."))
 
 (defmethod ptrn-find ((list list) (n integer))
@@ -526,6 +524,7 @@
 (define-ompw str->symb ((strings nil))
   "Converts string or list of strings or list of list of strings into list (list of list) of symbols.
 !! : please replace double quotes by simple quotes before evalution."
+  (declare (ignore strings))
   (error "default method. should not be called."))
 
 (defmethod str->symb ((strings list))
@@ -544,6 +543,7 @@
 1 -> b
 2 -> c
 etc."
+  (declare (ignore list))
   (error "default method. should not be called."))
 
 (defmethod num->alpha ((list list))
@@ -563,6 +563,7 @@
   (numtochar0 list))
 
 (define-ompw minirec (list)
+  (declare (ignore list))
   (error "default method. should not be called."))
 
 (defmethod minirec ((list number)) list)
@@ -868,6 +869,7 @@
 (defun modulo26 (num) (values (mod num 26) (floor (/ num 26))))
 
 (define-ompw numtochar (num)
+  (declare (ignore num))
   (error "default method. should not be called."))
 
 (defmethod numtochar ((num integer))
@@ -883,6 +885,7 @@
 (defmethod numtochar ((num list)) (mapcar #'numtochar num))
 
 (define-ompw numtochar0 (num)
+  (declare (ignore num))
   (error "default method. should not be called."))
 
 (defmethod numtochar0 ((num integer))
@@ -898,6 +901,7 @@
 (defmethod numtochar0 ((num list)) (mapcar #'numtochar0 num))
 
 (define-ompw numtochar2 (num)
+  (declare (ignore num))
   (error "default method. should not be called."))
 
 (defmethod numtochar2 ((num integer)) (numtochar num))
@@ -916,6 +920,7 @@
 	(setf n (1+ n))))))
 
 (define-ompw numtochar3 (num)
+  (declare (ignore num))
   (error "default method. should not be called."))
 
 (defmethod numtochar3 ((num integer)) (numtochar num))
@@ -1772,6 +1777,7 @@
 The classe number is arbitrary"
   :menu (alpha? (1 "alpha") (0 "num"))
   :menu (verbose ("no" "no") ("yes" "yes"))
+  (declare (ignore matrix n))
   (error "default method. should not be called."))
 
 (defmethod class-1 ((matrix array) (n integer) &optional (alpha? 0)
@@ -2067,6 +2073,7 @@
 Cf. J. Wasemberg : L âme de la méduse, idées sur la complexité du monde,
 Seuil, Paris, 1997."
   :menu (res ("abs" "absolute") ("rel" "relative"))
+  (declare (ignore class res))
   (error "default method. should not be called."))
 
 (defmethod entropy ((class list) (res string))
@@ -2575,6 +2582,7 @@
   "Reconstruit une séquence correspondant à la structure donnée en struct.
 	   Optional : reconstruit une séquence de même structure avec les patterns
 		      donnés en ptrns."
+  (declare (ignore struct n))
   (error "default method. should not be called."))
 
 (defmethod struct2-to-seq ((struct list) (n integer) &optional ptrns)
@@ -2984,6 +2992,7 @@
 
 
 (define-ompw resemblance-match (a b)
+  (declare (ignore a b))
   (error "default method. should not be called."))
 
 (defmethod resemblance-match ((a symbol) (b symbol)) (if (equalp a b) 1 0))
@@ -3009,6 +3018,7 @@
 Wocc : poids de la structure d'occurence;
 Wref : poids de la structure de repetition."
   :menu (diff ("res" "res") ("diss" "diss"))
+  (declare (ignore a b wocc wref))
   (error "default method. should not be called."))
 
 (defmethod resemblance ((a list) (b list) (wocc float) (wref float) &optional
@@ -3934,6 +3944,7 @@
 
 
 (define-ompw set-wintree-font (win fontname fontsize fontstyle)
+  (declare (ignore win fontname fontsize fontstyle))
   (error "default method. should not be called."))
 
 (defmethod set-wintree-font ((win tree-window) (fontname string)
@@ -4354,6 +4365,7 @@
       (subseq long-path 0 (1+ (position end long-path :test #'equalp))))))
 
 (define-ompw path (tree start end)
+  (declare (ignore tree start end))
   (error "default method. should not be called."))
 
 (defmethod path ((tree list) (start null) (end null))