bonsoir , est ce que quelqu'un peut m'aider en clisp

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
alphabet iterative 
(defun alphabet (x y) 
(setq a "") 
(setq x x) 
(loop  
 (cond 
   ((< y x) (return a)) ) 
   (setq a (string-concat a (string (code-char x)))) 
   (setq x (1+ x))))
(alphabet 0 256) elle donne le résultat souhaité
(alphabet 0 char-code-limit) mais avec le code char elle retourne pas un résultat

ensuite j'aimerais imprimer une chaine de caractère sur un fichier avec la fonction (print-alphabet fichier)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
<code> <une tabulation> <le caractère "en vrai"> <une tabulation><le caractère en représentation common
lisp>
9                    .                               .                            .                          #\tAB
65                  .                               A                           .                          #\A
Dans l'attente de vous lire
merci