(defun person-at (loc pers per-locs)
(labels ((at-loc-p (pers)
(eq (cadr (assoc pers per-locs)) loc)))
(remove-if-not #'at-loc-p pers)))
但是当我测试这个时,
(defun person-at (loc pers per-locs)
(labels (at-loc-p (pers)
(eq (cadr (assoc pers per-locs)) loc))
(remove-if-not #'at-loc-p pers)))
它的意思是:
这是一条错误信息,可能是由于在调用 AT-LOC-P 函数时传递了错误数量或类型的参数导致的。建议检查代码并确保正确传递参数。AT-LOC-P 中的必需参数与 lambda 列表不匹配 (CCL::FUNCNAME CCL::LAMBDA-LIST &BODY CCL::LABELS-FUNCTION-BODY)。[类型为 CCL::SIMPLE-PROGRAM-ERROR 的条件]
(2 + 3) * 5
在Lisp中将被写成(* (+ 2 3) 5)
。 - tobyodavies