HCoop
/
clinton
/
lisp-on-lines.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4eabb21
)
improved plist-nunion with better LOOP goodness
author
drewc
<drewc@tech.coop>
Fri, 17 Jun 2005 03:00:27 +0000
(20:00 -0700)
committer
drewc
<drewc@tech.coop>
Fri, 17 Jun 2005 03:00:27 +0000
(20:00 -0700)
darcs-hash:
20050617030027
-39164-
b3de621809aa599042a3eb795a244b7b1a5ac689
.gz
src/mewa/mewa.lisp
patch
|
blob
|
blame
|
history
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)))