Lisp 中照应条件句的例子是什么？

Question

Lisp 中照应条件句的例子是什么？还请解释一下代码。

Answer 1

Paul Graham 的 On Lisp 有一章介绍 照应宏。

本质上，它是一种编写语句的速记方式，可以避免重复代码。例如，compare:

(let ((result (big-long-calculation)))
  (if result
      (foo result)))

and

(if (big-long-calculation)
    (foo it))

其中 it 是一个特殊名称，指的是 (big-long-calculation) 中刚刚计算的内容。

Answer 2

Common Lisp LOOP 就是一个例子：

(loop for item in list
      when (general-predicate item)
      collect it)

变量 IT 具有测试表达式的值。这是 ANSI Common Lisp LOOP 工具的一个功能。

示例：

(loop for s in '("sin" "Sin" "SIN")
      when (find-symbol s)
      collect it)

返回，

 (SIN)

因为只有 "SIN" 是现有符号的名称，此处为符号 SIN。在 Common Lisp 中，符号名称默认具有内部大写名称。