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

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)

食品

Answer 2

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

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