Решение квадратного уравнения Emacs Lisp

Программирование
#1 
(defun corny(a b c)
    (let ((d (-(* b b) (* a c 4))))
       (when (or(= d 0) (> d 0))
           (sqrt d)
           (let ((x1 (/(-(* b -1) d) (* 2 a))))
              (let ((x2 (/(+ (* b -1) d) (* 2 a))))
                  (list x1 x2))))))

Как присвоить какие-то значения переменным a b c?