Łatwy sposób na połączenie plists?

Question

Czy w Common Lisp jest łatwy sposób na połączenie dwóch plistów? Lub z innego punktu widzenia: czy istnieje sposób na usunięcie duplikatów z plist? Wiem, że mogę tylko dodać plists (i GETF zajmie pierwszą znalezioną), ale nie chciałbym gromadzić nieużywanych kluczy podczas mojej aplikacji.

Myślę o czymś takim, jak (loop for p on my-plist by #'cddr ...), ale często jest łatwiejszy sposób niż moja pierwsza myśl!

Answer 1

Można zacząć od tej pierwotnej wersji:

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