improved plist-nunion with better LOOP goodness

[clinton/lisp-on-lines.git] / src / mewa / mewa.lisp

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)
 ;;; 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)))
 
        do (setf (getf plist (first cons)) (second cons))
        finally (return plist)))