Bonjour, j'aurai besoin d'aide sur un exercice, il m'est demandé de faire un programme qui imprime itérativement une chaîne de caractère dans un fichier, voilà ce que j'ai fait :

(defun print-alphabet (filename)
(setq fichier (open filename
:direction :output
:if-does-not-exist :create
:if-exists :supersede))
(setq code-char 1)
(loop
(cond ((> code-char char-code-limit) (return))
(t
(princ code-char fichier) ; Code
(princ #\Tab fichier)
(princ (code-char code-char) fichier) ; Caractre
(princ #\Tab fichier)
(princ (format nil "#\\~a" (code-char code-char)) fichier) ; Reprsentation CLisp
(terpri fichier) ; Aller la ligne
(setq code-char (1+ code-char)))))
(close fichier))

Cependant, on me dit qu'il y a des effets indésirables càd que ma fonction a un effet non souhaité sur le top-level. Or, je ne vois pas trop ce que je devrais changer. (ps : je ne dois pas utiliser la fonction "let")