X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/19531fbd947da15a17f8e5557a1a1492eab2bca3..d0c40011bbac91e8ab43ddcda2a1e9a5d479c5bd:/src/mewa/mewa.lisp

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index 8509f2d..ef3ae70 100644
--- a/src/mewa/mewa.lisp
+++ b/src/mewa/mewa.lisp
@@ -12,9 +12,7 @@
 ;;; some utilities for merging plists
 
 (defun plist-nunion (new-props plist)
-  (loop for cons on new-props
-	for i from 1
-	when (oddp i)
+  (loop for cons on new-props by #'cddr
 	do (setf (getf plist (first cons)) (second cons))
 	finally (return plist)))