Einfache Möglichkeit, Plisten zu verbinden?

Question

Gibt es einen einfachen Weg in Common Lisp, um zwei Plisten zusammenzuführen? Oder aus einem anderen Blickwinkel: Gibt es eine Möglichkeit, Duplikate aus einem Pliste zu entfernen? Ich weiß, dass ich nur Plisten anhängen kann (und GETF wird das erste finden, das es findet), aber ich möchte nicht immer ungenutzte Schlüssel sammeln, während meine App läuft.

Ich denke über etwas wie (loop for p on my-plist by #'cddr ...) nach, aber es gibt oft einen einfacheren Weg als mein erster Gedanke!

Answer 1

Sie sind von dieser primitiven Version beginnen könnten:

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