[clisp] boucle while

Bonjour voila j'essaie de realiser un compilateur d'automate
en recursif la fonction tourne bien aucun pb

(print (defun Compile-Body-State (state transition)
(let ((pt (Possible-Transition state transition)))
(if (atom pt)
()
`( (CMP :R0 (D ,(cadar pt)))
(JEQ ,(string-to-list (concatenate 'string "@state " (format nil "~d" (caddar pt)))))
,@(Compile-Body-State state (cadr pt))
)
)
)
)
)


cependant voila je vx enlever la recursivité vu que je connais le nombre de transition interressante.

j'aimerai utiliser un while cependant je rentre bien dans ma boucle mais je n'arrive pas a recuperer mes instructions. SI vous pouvez m'aidez ca serait sympa

(print (defun Compile-Body-State (state transition)
(let ((pt (Possible-Transition state transition)))
(setf pl pt)
(print `(lg ,(length pl)))
(loop WHILE (not (atom pl)) DO
(cons 'titi ())
(setq pl (cdr pl))
(print "ooo")
)
)
)
)

Configuration: Linux Mandriva
Firefox 1.5.0.7