Дополнить интерпретатор Лисповских программ (написать функцию вычисления корня n-й степени из числа х)

CL-USER> (defun sqrt-my (num n)
           (exp (* (/ n)
                   (log num))))
 
CL-USER> (sqrt-my 64 4)
2.828427
CL-USER> (expt 2.828427 4)
63.999996
 
CL-USER> (defun sqrt-my (num n &optional (guess 1))
           (let ((guess (float (/ (+ (/ num (expt guess (1- n)))
                                     (* (1- n) guess)) n))))
             (if (< (abs (- (expt guess n) num)) 0.001) guess
                 (sqrt-my num n guess))))
 
CL-USER> (sqrt-my 64 4)
2.828427
CL-USER> (expt 2.828427 4)
63.999996

CL-USER 1 > CL-USER> (defun sqrt-my (num n)
           (exp (* (/ n)
                   (log num))))
 
Error: Undefined operator CL-USER> in form (CL-USER> (DEFUN SQRT-MY (NUM N) (EXP (* # #)))).
  1 (continue) Try invoking CL-USER> again.
  2 Return some values from the form (CL-USER> (DEFUN SQRT-MY (NUM N) (EXP (* # #)))).
  3 Try invoking something other than CL-USER> with the same arguments.
  4 Set the symbol-function of CL-USER> to another function.
  5 Set the macro-function of CL-USER> to another function.
  6 (abort) Return to level 0.
  7 Return to top loop level 0.
 
Type :b for backtrace, :c <option number> to proceed,  or :? for other options
 
CL-USER> (sqrt-my 64 4)
2.828427
CL-USER> (expt 2.828427 4)
63.999996
 
CL-USER> (defun sqrt-my (num n &optional (guess 1))
           (let ((guess (float (/ (+ (/ num (expt guess (1- n)))
                                     (* (1- n) guess)) n))))
             (if (< (abs (- (expt guess n) num)) 0.001) guess
                 (sqrt-my num n guess))))
 
CL-USER> (sqrt-my 64 4)
2.828427
CL-USER> (expt 2.828427 4)
63.999996