-(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)
(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)))