Определите возведение в целую степень (^ x n) через умножение и деление

(defun f (x n)
(cond ((> n 0) (* x (f x (- n 1))))
((< n 0) (/ 1 (* x (f x (* -1 (+ n 1))))))
(t 1))
)
В данной функции проводится проверка степени n.
Если степень n больше 0, то проводится умножение основы x саму на себя n раз.
Если степень n меньше 0, то проводится единцы на x (-n) раз.
Если степень n равно 0, то результат функции равно 1.