LISP nombre décimal

Bonjour,

J'ai une question concernant les nombre décimal, je voudrais que mon résulta n'affiche pas le nombre après la virgule si se dernier est un 0.

je m'explique:

(Setq a1 (getreal "\nDonner la valeur de a"))
(setq a (rtos a 2 1))

si a1 = 2.5000000000000 je voudrai que a soit = 2.5
si a1 = 2.0000000000000 je voudrai obtenir a soit =2

Je sais pas comment faire, merci de m'aider

JP