Common Lisp的回報協會

Question

我有一個assoc命令列表如下：

(defparameter *experts2* 
    `(
    ;; direction 
    (:direction . ((nn-direction-expert (process-signal) :number-of-neighbors 10) 
        (fn-direction-expert (process-signal) :number-of-neighbors 10))) 



    ;; evaluation 
    (:evaluation . ( 

        ;(avoid-line-crossing-evaluation-expert (process-signal)) 
        (nn-single-evaluation-expert (candidate-point)) 
        (fn-single-evaluation-expert (candidate-point)) 
        ;(nn-all-evaluation-expert (ranking)) 
        )) 

    ;; coordination 
    (:coordination . (
         ;(ranking-process (candidate-point)) 
         (action-process (candidate-point ranking)))))) 

我正在尋找一種方式，從密鑰提取值=>值列表，並把它們放在一個新名單如

(defparameter *experts* 
    `(
    ;; direction 
    (nn-direction-expert (process-signal) :number-of-neighbors 10) 
    (fn-direction-expert (process-signal) :number-of-neighbors 10) 

    ;eher als evaluationsexperte 
    ;(avoid-line-crossing-evaluation-expert (process-signal)) 

    ;; evaluation 
    (nn-single-evaluation-expert (candidate-point)) 
    (fn-single-evaluation-expert (candidate-point)) 
    ;(nn-all-evaluation-expert (ranking)) 

    ;; coordination 
    ;(ranking-process (candidate-point)) 
    (action-process (candidate-point ranking)) 
    )) 

有什麼建議嗎？謝謝你的幫助。

問候

Answer 1

這似乎產生你想要的答案，但它似乎並不很漂亮：

(mapcan #'copy-list (mapcar #'cdr *experts2*)) 

Answer 2

塞繆爾·埃德溫·沃德的回答作品，但這裏的另外一個（現在編輯實際做你需要什麼）。所以，你想，爲*experts2*的每一個元素，取其cdr，然後從返回的列表中取值並將它們組合成一個列表：

(apply #'append (mapcan #'cdr *experts2*))