可能有一種情況，當需要執行代碼塊多次。循環語句可以讓我們執行一個語句或語句組多次，下麵是在大多數編程語言中的循環語句的一般形式為：

LISP提供的結構來處理循環要求以下類型。點擊以下鏈接，查看其詳細信息。

Construct	描述
loop	循環loop結構是迭代通過LISP提供的最簡單的形式。在其最簡單的形式，它可以重複執行某些語句(次)，直到找到一個return語句。
loop for	loop結構可以實現一個for循環迭代一樣作為最常見於其他語言。
do	do 結構也可用於使用LISP進行迭代。它提供了迭代的一種結構形式。
dotimes	dotimes構造允許循環一段固定的迭代次數。
dolist	dolist來構造允許迭代通過列表的每個元素。

循環loop結構

循環loop結構是迭代通過LISP提供的最簡單的形式。在其最簡單的形式，它可以重複執行某些語句(次)，直到找到一個return語句。

它的語法如下：

(loop (s-expressions))

例子

創建一個名為main.lisp一個新的源代碼文件，並在其中輸入如下代碼：

(setq a 10)
(loop 
   (setq a (+ a 1))
   (write a)
   (terpri)
   (when (> a 17) (return a)))

當執行的代碼，它返回以下結果：

11
12
13
14
15
16
17
18

請注意，冇有return語句，循環宏會產生一個無限循環。

循環的構造

loop結構可以實現一個for循環迭代一樣作為最常見於其他語言。

它可以

• 設置為迭代變量

• 指定表達式（s）表示，將有條件終止迭代

• 對於執行某些任務在每次迭代中指定表達式的結果，

• 做一些任務而退出循環之前指定表達式（s）和表達式

在for循環的結構如下幾種語法：

(loop for loop-variable in <a list>
   do (action))
            
(loop for loop-variable from value1 to value2
   do (action))

示例1

創建一個名為main.lisp一個新的源代碼文件，並在其中輸入如下代碼：

(loop for x in '(tom dick harry)
     do (format t " ~s" x)
)

當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：

TOM DICK HARRY

示例2

創建一個名為main.lisp一個新的源代碼文件，並在其中輸入如下代碼：

(loop for a from 10 to 20
     do (print a)
)

當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 

示例3

創建一個名為main.lisp一個新的源代碼文件，並在其中輸入如下代碼：

(loop for x from 1 to 20
  if(evenp x)
  do (print x)
)

當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：

2 
4 
6 
8 
10 
12 
14 
16 
18 
20

do構造

do結構也可用於使用LISP進行迭代。它提供了迭代的一種結構形式。

do語句的語法：

(do (variable1       value1       updated-value1)
    (variable2       value2      updated-value2)
    (variable3       value3       updated-value3)
    ...
(test     return-value)
(s-expressions))

每個變量的初始值的計算和結合到各自的變量。每個子句中更新的值對應於一個可選的更新語句，指定變量的值將在每次迭代更新。

每次迭代後，將測試結果進行評估計算，並且如果它返回一個nil 或 true，則返回值被求值並返回。

最後一個S-表達式（s）是可選的。如果有，它們每一次迭代後執行，直到測試返回true值。

示例

創建一個名為main.lisp一個新的源代碼文件，並在其中輸入如下代碼：

(do ((x 0 (+ 2 x))
    (y 20 ( - y 2)))
    ((= x y)(- x y))
    (format t "~% x = ~d  y = ~d" x y))

當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：

x = 0  y = 20
x = 2  y = 18
x = 4  y = 16
x = 6  y = 14
x = 8  y = 12

dotimes 構造

dotimes構造允許循環一段固定的迭代次數。

實例，

創建一個名為main.lisp一個新的源代碼文件，並在其中輸入如下代碼：

(dotimes (n 11)
    (print n) (prin1 (* n n)))

當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：

0 0
1 1
2 4
3 9
4 16
5 25
6 36
7 49
8 64
9 81
10 100

dolist 構造

dolist來構造允許迭代通過列表的每個元素。

實例,

創建一個名為main.lisp一個新的源代碼文件，並在其中輸入如下代碼：

(dolist (n '(1 2 3 4 5 6 7 8 9))
    (format t "~% Number: ~d Square: ~d" n (* n n)))

當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：

Number: 1 Square: 1
Number: 2 Square: 4
Number: 3 Square: 9
Number: 4 Square: 16
Number: 5 Square: 25
Number: 6 Square: 36
Number: 7 Square: 49
Number: 8 Square: 64
Number: 9 Square: 81

退出塊

塊返回，從允許從正常情況下的任何錯誤的任何嵌套塊退出。

塊功能允許創建一個包含零個或多個語句組成的機構命名塊。語法是：

(block block-name(
...
...
))

返回 - 從函數接受一個塊名稱和可選（默認為零）的返回值。

下麵的例子演示了這一點：

示例

創建一個名為main.lisp一個新的源代碼文件，並在其中輸入如下代碼：

(defun demo-function (flag)
    (print 'entering-outer-block)
    (block outer-block
      (print 'entering-inner-block)
      (print (block inner-block
               (if flag
                 (return-from outer-block 3)
                 (return-from inner-block 5))
               (print 'This-wil--not-be-printed)))
      (print 'left-inner-block)
      (print 'leaving-outer-block)
      t))
(demo-function t)
(terpri)
(demo-function nil)

當單擊Execute按鈕，或按下Ctrl+ E，LISP立即執行它，返回的結果是：

ENTERING-OUTER-BLOCK 
ENTERING-INNER-BLOCK 

ENTERING-OUTER-BLOCK 
ENTERING-INNER-BLOCK 
5 
LEFT-INNER-BLOCK 
LEAVING-OUTER-BLOCK