changed plist-nunion to get rid of a LENGTH call

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

diff --git a/src/mewa.lisp b/src/mewa.lisp
index 867b5a8..a0300f6 100644 (file)
--- a/src/mewa.lisp
+++ b/src/mewa.lisp
@@ -1,6 +1,4 @@
-(defpackage :mewa 
-  (:use :ucw :common-lisp)
-  (:export :mewa :mewa-object-presentation :mewa-one-line-presentation :find-attribute :set-default-attributes :make-presentation :call-presentation :label :set-attribute :find-class-attributes))
+

 
 (in-package :mewa)
  
 
 (in-package :mewa)
  


@@ -17,7 +15,7 @@
 
 (defun plist-nunion (new-props plist)
   (loop for cons on new-props
 
 (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)))
        when (oddp i)
        do (setf (getf plist (first cons)) (second cons))
        finally (return plist)))