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

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