如何比较一个字符串与字符串列表（不包括引号）

Question

因此，我收到一个字符串，我想比较它与我的列表中的第一个元素，但它不会工作，因为它会比较“asd”和asd if该字符串是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”）与输入列表（“列表”）的第一个元素，然后沿着这些路线的东西会更适合：

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