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

Question

我玩弄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 

有谁知道如何得到它用零补齐？

Answer 1

实施例从the PCL chapter on FORMAT抬起：

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