common-lisp 循环表达
示例
与当今使用的几乎所有其他编程语言中的循环不同LOOP，CommonLisp中的in可以用作表达式：
(let ((doubled (loop for x from 1 to 10
collect (* 2 x))))
doubled) ;; ==> (2 4 6 8 10 12 14 16 18 20)
(loop for x from 1 to 10 sum x)MAXIMIZE导致LOOP返回最大的评估值。MINIMIZE与相对MAXIMIZE。
(loop repeat 100
for x = (random 1000)
maximize x)COUNT告诉您NIL循环中某个表达式对非-计算多少次：
(loop repeat 100
for x = (random 1000)
count (evenp x))LOOP还具有的等同物some，every和notany功能：
(loop for ch across "foobar"
thereis (eq ch #\a))
(loop for x in '(a b c d e f 1)
always (symbolp x))
(loop for x in '(1 3 5 7)
never (evenp x))...除了它们不限于遍历序列：
(loop for value = (read *standard-input* nil :eof) until (eq value :eof) never (stringp value))
LOOP产生价值的动词也可以带有-ing后缀：
(loop repeat 100
for x = (random 1000)
minimizing x)也可以将这些动词生成的值捕获到变量中（这些变量由LOOP宏隐式创建），因此您一次可以生成多个值：
(loop repeat 100
for x = (random 1000)
maximizing x into biggest
minimizing x into smallest
summing x into total
collecting x into xs
finally (return (values biggest smallest total xs)))你可以有一个以上的collect，count等等条款，收集到相同的输出值。它们将按顺序执行。
以下内容将关联列表（可以与一起使用assoc）转换为属性列表（可以与一起使用getf）：
(loop for (key . value) in assoc-list
collect key
collect value)尽管这是更好的样式：
(loop for (key . value) in assoc-list
append (list key value))