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:
5550d61
)
changed plist-nunion to get rid of a LENGTH call
author
drewc
<drewc@tech.coop>
Wed, 8 Jun 2005 01:27:43 +0000
(18:27 -0700)
committer
drewc
<drewc@tech.coop>
Wed, 8 Jun 2005 01:27:43 +0000
(18:27 -0700)
darcs-hash:
20050608012743
-39164-
f176fba23e1fbb120f34b0ed7e9c1f8dde02d56b
.gz
src/mewa.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/mewa.lisp
b/src/mewa.lisp
index
19160fa
..
a0300f6
100644
(file)
--- a/
src/mewa.lisp
+++ b/
src/mewa.lisp
@@
-15,7
+15,7
@@
(defun plist-nunion (new-props plist)
(loop for cons on new-props
- for i from 1
to (length new-props)
+ for i from 1
when (oddp i)
do (setf (getf plist (first cons)) (second cons))
finally (return plist)))