如何使用lisp格式函数用零填充参数？

我正在玩lisp的格式化功能,但是我遇到了障碍,因为虽然我可以把它编写好的数字列表,但我似乎无法将其填充为零:

(defun inc (a) (+ 1 a))
(dotimes (i 10)
  (format t "~3@:D ~:*~R~%" (inc i)))

这会产生以下输出:

+1: one
+2: two
+3: three
+4: four
+5: five
+6: six
+7: seven
+8: eight
+9: nine
+10: ten

有人知道如何让它成为零填充？

从FORML的PCL章节中解除的例子:

(format nil "~12d" 1000000)    ==> "     1000000"
(format nil "~12,'0d" 1000000) ==> "000001000000"