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