The following is a lisp program to print the Fibonacci series up to a user specified limit.

The folowing program produces the Output

OUTPUT

Enter the limit : 8

Fibonacci Series : 0 1 1 2 3 5 8 13

```
(defun fibonacci()
(format t "Enter the limit : ")
(setf n(read))
(format t "Fibonacci Series : ")
(format t "0 1")
(setf a 0)
(setf b 1)
(do ((i 3(+ i 1))) ((> i n))
(setf c (+ a b))
(format t " ~d" c)
(setf a b)
(setf b c)))
```

The folowing program produces the Output

OUTPUT

Enter the limit : 8

Fibonacci Series : 0 1 1 2 3 5 8 13