[LISP程序]：帮忙注释该程序

leeyuan

请哪位帮忙注释一下该程序的作用

舟自横

这是一个取得字符串中数字的程序
(defun as(st / n b i ts y x m sl bl)
  (setq n (strlen st));;;取得字符串长度
  (setq b nil)(setq i 1)
  (while (<= i n)   ;;;将字符串的每一个字母拆开并列表为B
   (setq b (cons (substr st i 1) b))
  (setq i (1+ i))
)
  (setq n (length b));;;此句多余可省略
  (setq i 0) (setq ts t) (setq y "")
  (while (and (< i n) ts) ;;;;;循环
   (setq x (nth i b))
   (if (and (< (ascii x) 58) (> (ascii x) 47));;;当表中字符为数字字符(数字的ASCII码在47到58 表示"0"到"9")
       (setq y (strcat x y)) ;将数字字符号组合起来变成一个整数字符
       (setq ts nil)
   ) (setq i (1+ i))
  )
   (setq m (strlen y));;返回最后生成整数字符的长度
   (setq sl (substr st 1 (- n m)));;;其实这句是错的,作者的本意应该是返回除去数字后剩下的字符串
但这样写是错的,你自己可以琢磨一下该怎么写,很简单的
   (setq bl (list sl (atoi y)));;;;;将取得的整数字符串转化为整数!!
)
大概写了一下,希望能给你帮助