基于价值的plist打印键？

Question

如何基于给定的值迭代和打印plist的键？

例子：

; plist 
(defun my-list() (list :a "hi" :b "no" :c "go")) 

; from that list i want to iterate and print out keys based on values like: 
for each x in ("hi" "go") print x 

; hoping for: 
ac 

进出口新的口齿不清 - 谢谢你:-)

Answer 1

喜欢的东西

(loop for (key value) on my-list by #'cddr 
     when (member value '("hi" "go") :test #'equal) 
     do (princ key)) 

第一行移动在列表模式。

Answer 2

你可以使用循环宏：

(loop 
    for (key value . rest) on list 
    by #'cddr 
    when (find value '("foo" "bar") :test #'string=) 
    do (princ key))