嵌套迭代

特殊的 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))))