Emacs Lisp中能否在表达式开头条件选择特殊形式？

AI 小北

2026-6-12

问题解答

问题1：能否让`or`/`and`这类特殊形式实现类似函数的效果？

不行，直接用原生的or/and做不到，核心原因是它们是特殊形式，而非函数。Lisp里的特殊形式是解释器/编译器直接识别的语法规则，和函数的求值逻辑完全不同：函数会先把所有参数求值完毕再执行，但or/and是短路求值——or遇到第一个非nil的参数就停止，后续参数根本不会执行；and遇到第一个nil就停止。

如果非要实现类似函数的调用方式（比如用funcall调用），只能自己包装成支持短路求值的函数：

;; 自定义支持短路的my-or函数
(defun my-or (&rest args)
  (dolist (arg args)
    (when arg (return arg)))
  nil)

;; 自定义支持短路的my-and函数
(defun my-and (&rest args)
  (dolist (arg args)
    (unless arg (return nil)))
  (car (last args)))

这样(funcall (if cond #'my-or #'my-and) a b c)就能正常工作。但原生的or/and没法直接转换成函数，因为它们的短路逻辑和函数“先全求参数”的规则本质冲突。

问题2：`((GET-FUNC) ARGS)`这种语法对函数和特殊形式是否可行？

对函数可行：如果GET-FUNC返回的是函数对象（比如#'+，或者返回函数的lambda表达式），这种语法完全合法。例如：
```
(defun get-func () #'+)
((get-func) 2 1)  ; 结果为3，和(funcall (get-func) 2 1)等价
```
Lisp允许函数调用的第一个位置是任意能求值为函数对象的表达式，这种写法和funcall功能一致，只是语法更简洁。
对特殊形式不可行：如果GET-FUNC返回的是'or/'and这类特殊形式的符号，((get-func) a b)会直接报"Invalid function"错误。因为特殊形式不是函数对象，Lisp在函数调用位置只会识别函数对象（或被定义为函数的符号），不会把特殊形式的符号当作可调用对象处理。