[求助]这个程序有什么问题

a2109

(defun c:jfch (a b c / t1 t2 x1 x2)
(setq a(getreal"\n输入a的值：") b(getreal"\n输入b的值：") c(getreal"\n输入c的值："))
  (if(/= a 0.0)
    (progn
       (setq t1(- (* b b) (* 4 a c)))
           (if (>= t1 0.0)
                (progn
                (setq t2(sqrt t1))
                (setq x1(/ (+ (- b) t2) (* 2 a)))
                (setq x2(/ (- (- b) t2) (* 2 a))
                (print(list x1 x2))
                 )
             (print"\n根是复数")
            )
       )
      (print"\n不是一元二次方程")
    )
(princ)
)

a2109

刚刚开始学习LISP 还请大家多多指点，这个程序运行不了，不知道原因在哪里，请教！

mfans

少个右括号，在(Setq X2 那行中

a2109

右括号加上了，可还是不能运行，显示参数太少！

mfans

忘了跟你说，(defun c:jfch (a b c / t1 t2 x1 x2)中要把a,b,c参数都移到/后面去。

a2109

呵呵，太感谢了，问题就出在这里。