如何比較一個字符串與字符串列表（不包括引號）

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")) 
) 
)