如何准确地使用“ cl-position”功能？

Question

我试图在片段中使用cl-position，但是，每当我尝试运行代码时，都会收到以下错误：

    Prinayas-MacBook-Pro:~ pchoubey$ clisp project1.lisp
    *** - SYSTEM::%EXPAND-FORM:
          (PRINT (CL-POSITION "bar" '("foo" "bar" "baz") :TEST 'EQUAL)) should be
          a lambda expression

为什么会发生这种情况，如何使此代码正常运行？供参考，这是我的代码：

(defun answer-ynq()
  (setq ROBOT '(IS_A_ROBOT ROBBIE))
  (loop for x in ROBOT
    do(
       (print (cl-position "bar" '("foo" "bar" "baz") :test 'equal))
    ))

  (setq KB (make-hash-table :test 'equal))

(setf (gethash '(IS_A_ROBOT ROBBIE) KB)'T)
(setf (gethash '(IS_A_PERSON BOB) KB) 'T)
(setf (gethash '(IS_CLEVER ROBBIE) KB) 'T)
(setf (gethash '(OWNS ALICE ROBBIE) KB) 'T)
)
(answer-ynq)

我正在尝试在片段中使用cl-position，但是，每当我尝试运行代码时，都会收到以下错误：Prinayas-MacBook-Pro：〜pchoubey $ clisp project1.lisp ***-SYSTEM ::％展开形式：...

Answer 1

首先，我们需要使代码的格式和缩进更好