cons函数的问题

Question

嗯，我最近开始学习lisp，在做一个小程序时，我发现了一个小问题。问题是编写一个函数，如果名称还没有标题，就给它添加一个标题。我的代码是：

(setf *man-names* '(carlos pablo dani sergio))
(setf *woman-names* '(eva alba luna laura))

(defun titledp (name)
    (cond ((member (car name) *man-names*) nil)
          ((member (car name) *woman-names*) nil)
          (t t)))
(defun add-title (name)
    (cond ((member (car name) *man-names*) (cons 'Mr. name))
          ((member (car name) *woman-names*) (cons 'Mrs. name))))

(defun title (name)
    (cond ((titledp (name)) name)
          (t add-title (name))))

当在'add-title‘中调用cons时，我得到一个问题，说函数'name’没有定义。为什么会发生这种情况？我怎么才能修复它？

谢谢您:)

Answer 1

你的括号很有趣。在title函数中，您会多次使用(name)。这意味着调用名为name的函数时不带参数。我想这就是你想要的：

(defun title (name)
    (cond ((titledp name) name)
          (t (add-title name))))

Answer 2

由于您的name值需要一个列表，因此需要提交一个列表。因此，(add-title '(carlos))或(add-title (list 'carlos))将起作用。