Skip to content

Instantly share code, notes, and snippets.

@spacebat
Created January 22, 2013 14:29
Show Gist options
  • Save spacebat/4595042 to your computer and use it in GitHub Desktop.
Save spacebat/4595042 to your computer and use it in GitHub Desktop.
A naive implementation of property list merge
(defun* kvplist-merge (&rest plists)
"Merge the 2nd and subsequent plists into the first, clobbering values set by lists to the left."
(let ((result (car plists))
(plists (cdr plists)))
(loop for plist in plists do
(loop for (key val) on plist by 'cddr do
(setq result (plist-put result key val))))
result))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment