Lisp循环代码示例：使用loop宏实现循环

(defun my-loop (n) (loop for i from 1 to n do (print i)))

(my-loop 5)

这个代码定义了一个名为'my-loop'的函数，它接受一个参数'n'，代表循环次数。然后，使用'loop'宏进行循环，从1到'n'，在每次循环中打印'i'的值。

最后，我们调用'my-loop'函数并传入参数5，这将打印出1到5的数字。