Напишите функцию, вычисляющую корни квадратного выражения на Emacs Lisp

[Radon33]

(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?

[NetSpace]

не так?

(let ((a(4))))
(let ((b(-12))))
(let ((c(2))))

[Radon33]

NetSpace, Спасибо, все получилось