常见的lisp迭代广义驱动程序

Question

我经历了iterate manual，在2.1.3节中，出现了基因驱动程序和2.1.5节驱动程序变量的先前值。

有了这个东西我想让第一个fiboonacci数字大于1000

所以我进入这个：

CL-USER> (iter (initially (setf an-1 1))
               (for an-2 previous an-1 initially 1) 
               (for an-1 next (if (> an-1 1000) (terminate) (+ an-1 an-2)))
               (collect an-1)
               (format t "~a -- ~a~%" an-2 an-1))

具有以下结果：

1 -- 2
2 -- 4
4 -- 8
8 -- 16
16 -- 32
32 -- 64
64 -- 128
128 -- 256
256 -- 512
512 -- 1024
(2 4 8 16 32 64 128 256 512 1024)

我不知道循环中的变量如何增长