Comment déterminer si le caractère actuel est une lettre

Comment puis-je déterminer si le caractère actuel est une lettre (un caractère alphabétique) (c'est-à-dire appartient à la classe de syntaxe [:alpha:]dans les notions d'expression régulière). Je voudrais écrire une fonction simple comme ci-dessous: (defun test-letter () (interactive) (if...