Как добавить 0 к списку целых чисел в Лиспе

Question

У меня есть список целых чисел (3 11 7 26 5)

Я написал функцию для добавления цифр от 0 до 1:

(defun beautify (list)
  (mapcar #'0-add list))

(defun 0-add (1digit)
  (format nil "~2,'0d" 1digit))

он выводит ("03" "11" "07" "26" "05")

Однако я хотел бы иметь (03 11 07 26 05)

Как мне это устроить?

Answer 1

CL-USER 10 > (format t "(~{~a~^ ~})" '("03" "11" "07" "26" "05"))
(03 11 07 26 05)

CL-USER 11 > (format t "(~{~2,'0d~^ ~})" '(3 11 7 26 5))
(03 11 07 26 05)