嵌套迭代
特殊的 LOOP NAMED foo
语法允许你创建一个可以提前退出的循环。退出使用 return-from
执行,可以在嵌套循环中使用。
以下使用嵌套循环在 2D 数组中查找复数:
(loop named top
for x from 0 below (array-dimension *array* 1)
do (loop for y from 0 below (array-dimension *array* 0))
for n = (aref *array* y x)
when (complexp n)
do (return-from top (values n x y))))