簡單的方法來合併plists？

Question

Common Lisp中有一種簡單的方法來合併兩個plists嗎？或者從另一個角度來看：有沒有辦法從plist中刪除重複項？我知道我可以追加plists（並且GETF將會找到它找到的第一個），但是我希望在應用程序運行時不要累積未使用的鍵。

我正在考慮像(loop for p on my-plist by #'cddr ...)這樣的東西，但通常比我的第一個想法更簡單！

Answer 1

你可以從這個原始的版本開始：

(defun merge-plist (p1 p2) 
    (loop with notfound = '#:notfound 
     for (indicator value) on p1 by #'cddr 
     when (eq (getf p2 indicator notfound) notfound) 
     do (progn 
      (push value p2) 
      (push indicator p2))) 
    p2) 

CL-USER 104 > (merge-plist '(a 1 b 2 c 3) '(a 2 b 4)) 
(C 3 A 2 B 4)