implementation of fibonacci algorithm with double recursion in common lisp