From d0c40011bbac91e8ab43ddcda2a1e9a5d479c5bd Mon Sep 17 00:00:00 2001 From: drewc Date: Thu, 16 Jun 2005 20:00:27 -0700 Subject: [PATCH] improved plist-nunion with better LOOP goodness darcs-hash:20050617030027-39164-b3de621809aa599042a3eb795a244b7b1a5ac689.gz --- src/mewa/mewa.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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))) -- 2.20.1