如何将字符串与字符串列表进行比较（不带引号）

Question

所以我收到一个字符串，我想将它与我列表的第一个元素进行比较，但它不会工作，因为如果字符串是asd，它会将asd与asd进行比较。

(defun test (thistring list) 
 (cond 
  ((null list) nil) 
  ((equal thistring (car(car list))
     (print "ok")))))

提前致谢。

Answer 1

CL-USER 42 > (find "foo" '(bar foo baz) :key #'string-downcase :test #'equal)

FOO

Answer 2

如果你想简单地将输入字符串（'thisstring'）与输入列表的第一个元素（'list'）进行比较，那么这些行中的某些内容会更合适：

(defun test (thistring list) 
  (cond 
    ((null list)
        nil) 
    ((equal thistring (car list))
        (print "ok"))
  )
)