(defun fib (n)
(if (eq n 1)
1
(if (eq n 2)
1
(+ (fib (- n 1))
(fib (- n 2 ))))))
(if (eq n 1)
1
(if (eq n 2)
1
(+ (fib (- n 1))
(fib (- n 2 ))))))
(defun fibwrap (n)
(interactive "ninput your base number n?\n")
(print (fib n)))
注意 interactive中接受输入一定要有个\n,用M-x-fibwrap执行。