improved plist-nunion with better LOOP goodness

darcs-hash:20050617030027-39164-b3de621809aa599042a3eb795a244b7b1a5ac689.gz

diff --git a/src/mewa/mewa.lisp b/src/mewa/mewa.lisp
index 8509f2d..ef3ae70 100644 (file)
--- 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)))