1

我不明白如何在 emacs lisp 中评估“&可选参数”。

我的代码是：

(defun test-values (a &optional b)

  "Function with an optional argument (default value: 56) that issues a 
message indicating whether the argument, expected to be a
number, is greater than, equal to, or less than the value of 
fill-column."

(interactive "p")

(if (or (> a b)(equal a b))
  (setq value a)
(setq value fill-column)
(message "The value of payina is %d" fill-column))

**(if (equal b nil)
  (setq value 56)))**

在第一部分中，如果我评估(test-values 5 4)or ，一切都是完美的(test-values 5 5)。

但是，当我评估(test-values 5 ())or时(test-values 5 nil)，出现以下错误：

**Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  >(5 nil)
  (or (> a b) (equal a b))
  (if (or (> a b) (equal a b)) (setq value a) (setq value fill-column) 
(message "The value of payina is %d" fill-column))
  test-values(5 nil)
  eval((test-values 5 nil) nil)
  eval-last-sexp-1(nil)
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp nil nil)
  command-execute(eval-last-sexp)**

任何人都可以帮助我吗？谢谢。

4

2 回答 2

3

未提供的可选参数绑定到nil. 在你的函数体中，你可以nil在做算术之前显式地测试。在您的流程中，您可能会设置b为56这样：

(or b (setq b 56))
于 2015-05-15T23:49:36.030 回答
1

感谢 Drew 和 Stephen Gildea。

我接受了你的建议和开发，现在我接受代码。

如果这是最后一个代码，我反转流程并嵌套（anide）第二个。

非常感谢。

该代码适用于 EMACS LISP。

来自墨西哥的问候。

(defun test-values (a &optional b)

  "Function with an optional argument that tests wheter its argument, a  
number, is greater than or equal to, or else, less than the value of 
fill-column, and tells you which, in a message. However, if you do not 
pass an argument to the function, use 56 as a default value."

(interactive "p")

(if (equal b nil)
    (setq value 56)
  (if (or (> a b)(equal a b))
      (setq value a)
    (setq value fill-column)
    (message "The value of test is %d" fill-column))))


(test-values 6 3)

(test-values 3 3)

(test-values 3 6)

(test-values 6 nil)

(test-values 6)

现在我可以用 nil 来评估这个函数。

非常感谢。

于 2015-05-16T06:33:22.123 回答