From: drewc <drewc@tech.coop>
Date: Wed, 8 Jun 2005 01:27:43 +0000 (-0700)
Subject: changed plist-nunion to get rid of a LENGTH call
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/1718b9ff5ab93ffc63ae132f77ab67d2ceb10693?hp=5550d611148656b3189656273020d5ba8570bb51

changed plist-nunion to get rid of a LENGTH call

darcs-hash:20050608012743-39164-f176fba23e1fbb120f34b0ed7e9c1f8dde02d56b.gz
---

diff --git a/src/mewa.lisp b/src/mewa.lisp
index 19160fa..a0300f6 100644
--- 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)))