Изменить формат вывода результата

(setq g   (rtos 33 2 0))

(format t "~2,'0D" 1)

Команда: (strcat "0" (rtos 1))
"01"

(defun int2str (i n)
   (let  (ist (itoa i))
          (if (< (strlen ist) n) (dotimes (j (- n (strlen ist)) ist) (setq ist (strcat "0" ist)) itoa))

((lambda (lst)
   (mapcar '(lambda (x)
              (write-line (strcat (chr (if (< x 10) 48 0)) (itoa x)))
            )
            lst
   )
   (write-line
     (vl-string-left-trim
       (chr 32)
       (apply 'strcat
              (mapcar
                '(lambda (x)
                   (strcat (chr 32) (chr (if (< x 10) 48 0)) (itoa x))
                 )
                (reverse lst)
              )
        )
      )
    )
  )
  '(0 1 2 3 4 5 6 7 8 9 10 11 12 13)
)

(setq g   (rtos s 2 0))

(setq s (+ 1 s))

strcat "0"

(if (and (<= s 99) (= o 1)) (setq u "00") (setq u ""))

( (lambda (num)
  (strcat  (cond ((< num 10) "00")
                 ((< num 100) "0")
                 (T ""))
           (itoa num)))
   99)