LISP 循环代码示例：使用 LOOP 函数打印数字

下面是一个使用 LISP 编写的简单循环代码的示例：

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

(my-loop 5)

这段代码定义了一个名为 'my-loop' 的函数，该函数接受一个参数 'n'。在循环中，变量 'i' 从 1 开始递增，直到达到 'n'。每次循环，都会将 'i' 的值打印出来。

最后，调用 '(my-loop 5)' 将执行循环 5 次，并打印出数字 1 到 5。