(defun autres (caractere liste)
   (cond
     ((not liste) 0)
     (
       (not
         (equal
           (char (string (car liste)) 0)
           (char (string caractere) 0) ) )
       (+ 1 (autres caractere (cdr liste))) )
     ((autres caractere (cdr liste))) ) )