[原创]请求帮助

TENGOMARK

各位好！

     今天编了个程序，怎么调也没有调出来，编译出错信息是：

; 错误: 输入的列表有缺陷
; 生成已终止，发现致命错误。

 

程序主要在下面一段出错，下面一段去掉，编译就成功了。

请各位高手帮助查错，万分感谢！

 

(setq ref (getstring " 要按y， 不要按任意键" ))
(if ( /= ref "" )
    (progn
       (princ "程序执行到此1"）
       (setq ref0 (atoi ref ))      
       (if ( /= ref ( itoa ref0 ))
          (if (or ( = ref "y") ( = ref "Y"))
             (progn
                (princ "程序执行到此2"）
                (reftx)
              )
             (currenttx)
           )
        )
     )
    (currenttx)
 )

xiaobao02

把所有的右括號改成英文的試試!!

TENGOMARK

非常感谢，已经好了。