PATCH Re: [rucksack-devel] indexing issue?

[Arthur Lemmens]

Cyrus Harmon,

> Ok, I think I've figured out what's wrong with unique slots:
>
> --- mop.lisp	28 Nov 2006 15:25:57 -0800	1.11
> +++ mop.lisp	10 Jan 2007 13:12:19 -0800	
> @@ -250,6 +250,17 @@
>                (setf (slot-value effective-slotdef 'index)
>                      (slot-index (car index-slotdefs))))))
>
> +    ;; If exactly one direct slot is unique, then the effective one is
> +    ;; too. If more then one is unique, signal an error.

Right, I forgot to copy the UNIQUE slot to the effective slot
definition, so it never treated slots as unique.

Thanks for the patch,

Arthur