LISP递归求斐波那契数

初学LISP，写了一个求斐波那契数的递归式：

(defmacro f (n)
  (funcall
   (lambda (fn n)
     (funcall fn n fn))
   (lambda (n this)
     (cond ((> n 2)
            (+ (funcall this (- n 1) this) (funcall this (- n 2) this)))
           ((= n 2)
            1)
           (t 1)))
   n))

入门级别，还请多多指教。