Функция Print - Lisp

Формулировка задачи:

Есть функция, рекурсивно вычисляющая степень числа. Необходимо используя функцию print выводить информацию о результате выполнения отдельного рекурсивного вызова.

(defun stepen (x n)
 (cond ((= n 0) 1)
 (t (* x (stepen x (- n 1)))))
)

Решение задачи: «Функция Print»

textual
                            Листинг программы 
                        

                            (stepen 5 3)
 
  Вход в функцию stepen Аргументы: 5 3
    Вход в функцию stepen Аргументы: 5 2
      Вход в функцию stepen Аргументы: 5 1
        Вход в функцию stepen Аргументы: 5 0
        Возврат из функции stepen Результат: 1
      Возврат из функции stepen Результат: 5
    Возврат из функции stepen Результат: 25
  Возврат из функции stepen Результат: 125
 
==> 125
                        