あるようで見つからなかったので書いてみた。
? (defun power (base count)
(if (eql 0 count)
1
(* base (power base (- count 1)))))
POWER
? (power 2 2)
4
? (power 2 3)
8
? (power 2 5)
32
? (power 2 10)
1024
? (power 2 15)
32768
? (power 2 32)
4294967296
? (power 2 64)
18446744073709551616
?