如何使用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"