[Ecls-list] #'find-package bug

[Steve Smith]

On Sat, Oct 20, 2007 at 12:07:11PM +0300, Yaroslav Kavenchuk wrote:
> > (find-package "")
> In function ROW-MAJOR-AREF, the value of index is
>         0
> which is not of expected type (INTEGER 0 0)
> Broken at EVAL.Available restarts:
> 1. (USE-VALUE) Supply a new value of type (INTEGER 0 0).
> Broken at FIND-PACKAGE.

Initial patch attached.  This also sanity-checks the type of the
package name (with etypecase).

Cheers,
Steve
-------------- next part --------------
A non-text attachment was scrubbed...
Name: ecl-find-package-fix.patch
Type: text/x-diff
Size: 2685 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/ecl-devel/attachments/20071021/c76f08a4/attachment.patch>