From: drewc <drewc@tech.coop>
Date: Fri, 17 Jun 2005 03:00:27 +0000 (-0700)
Subject: improved plist-nunion with better LOOP goodness
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/d0c40011bbac91e8ab43ddcda2a1e9a5d479c5bd?ds=sidebyside

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