fonction qui renvoie si le caractère est présent ou non dans le string2

Bonjour,

quelqu'un peut svp m'aider a trouver ou est le problème dans ma fonction

Code:

---

1 2 3 4 5 6

(defun string-position (string1 string2) (cond ((not string2) nil) ((equal (subseq (string string2) 0 (length (string string1))) (string string1)) string1 (string-position string1 (subseq (string string2) 1))) ((string-position string1 (subseq (string string2) 1)))))

---

C'est une fonction qui consiste à :

(l'endroit 'a 'bads) => #\a
(l'endroit 'x 'bads) => nil

merci

Il suffit de formatter le code dans un éditeur qui puisse faire l'indentation de façon automatique pour voir que quelque chose n'est pas correcte:

Code:

---

1 2 3 4 5 6

(defun string-position (string1 string2) (cond ((not string2) nil) ((equal (subseq (string string2) 0 (length (string string1))) (string string1)) string1 (string-position string1 (subseq (string string2) 1))) ((string-position string1 (subseq (string string2) 1)))))

---

Alors, ça fait deux années avec lisp, et pas de progrès? :)