为何对未使用的可选参数取逻辑非会抛出错误？

核心问题 #

你遇到的错误并非not函数导致，而是前缀参数的类型处理逻辑错误：

• 使用interactive "P"时，传入的参数类型并不都是数字：
  • 直接执行M-x foo（无任何参数）时，x的值为nil
  • 执行C-u M-x foo时，x是列表(4)（不是数字4）
  • 执行C-u 10 M-x foo时，x才是数字10
• 当x为列表(4)时，(not x)返回nil（Emacs Lisp中所有非nil值都视为真），因此不会执行setq x 59。后续用列表(4)与数字类型的fill-column做数值比较（>=/<），就会触发Wrong type argument: number-or-marker-p错误。

解决思路 #

要正确处理前缀参数，需用prefix-numeric-value函数将其统一转换为数字：

• 该函数会把nil转为0，列表(4)转为4，数字保持不变
• 之后再根据需求设置默认值（题目要求未传参时使用56）

修正后的代码 #

(defun foo (&optional x)
  (interactive "P")
  ;; 统一转换前缀参数为数字
  (setq x (prefix-numeric-value x))
  ;; 无参数时（转换后为0）设置默认值56
  (when (= x 0)
    (setq x 56))
  (message (cond ((>= x fill-column) "bigger or equal")
                 ((< x fill-column) "smaller"))))

额外说明 #

如果你希望仅在完全未传参（即不使用C-u）时才触发默认值，也可以直接判断原始参数是否为nil：

(defun foo (&optional x)
  (interactive "P")
  (setq x (if (null x)
              56  ; 未传参时用默认值
            (prefix-numeric-value x)))  ; 传了前缀参数则转成数字
  (message (cond ((>= x fill-column) "bigger or equal")
                 ((< x fill-column) "smaller"))))

内容的提问来源于stack exchange，提问作者J. Mini