Question

我不明白如何评估＆＃34;＆amp; optional argument＆＃34;在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)或(test-values 5 5)，一切都很完美。

但是，当我评估(test-values 5 ())或(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)**

有人可以帮帮我吗？感谢。

Answer 1

未提供的可选参数绑定到nil。在函数体中，您可以在进行算术运算之前明确地测试nil。在您的流程中，您可以将b设置为56，如下所示：

(or b (setq b 56))

Answer 2

感谢Drew和Stephen Gildea。

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

我反转流并嵌套（辅助）第二个if，这是最后一个代码。

非常感谢。

代码适用于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来评估这个函数。

非常感谢。

我如何评估＆＃34;＆amp; optional argument＆＃34;在emacs lisp？

2 个答案: