[求助]，关于LISP嵌套问题。

蝌蚪

请问这种有问题吗？

1，SSGET取得选择集，N为总个数。

2，(setq i 0)
  (while (< i n)
        ;;;;统计1

    (if (= a  b)
      (progn
         (setq c d)
         (setq vss (vl-string-search "-" e))
         (if(/= vss nil)
            ()
          )
       )

    )
    (setq DL (atof changdu))
    (cond
      (= dnn 1) (setq LL3(+ LL3 DL))
      (= dnn 2) (setq LL4(+ LL4 DL))
      (= dnn 3) (setq LL5(+ LL5 DL))
      (= dnn  4) (setq LL6(+ LL6 DL))
      (= dnn 5) (setq LL8(+ LL8 DL))
      (= dnn 6) (setq LL10(+ LL10 DL))
    )

    (if语句)
    (if语句)
   
    ;;;;;;;;;;;;;
    (setq i(1+ i))
  )
)