Re: [Gcl-devel] Package test failures

[Paul F. Dietz]

Camm Maguire wrote:
> Greetings!  I'm clearing up the remaining package failures, and had
> the following remaining question:
>
>    If I insert the two correctable package error conditions in the
>    spec for delete-package, I break this test:
>
> Test CL-TEST::DELETE-PACKAGE-2 failed
> Form: (PROGN
>         (IGNORE-ERRORS (DELETE-PACKAGE :TEST1))
>         (LET ((CL-TEST::P (MAKE-PACKAGE :TEST1 :USE NIL)))
>           (LIST (NOT (NOT (DELETE-PACKAGE :TEST1)))
>                 (NOT (NOT (PACKAGEP CL-TEST::P)))
>                 (DELETE-PACKAGE CL-TEST::P))))
> Expected value: (T T NIL)
> Actual value: #<CONDITIONS::INTERNAL-PACKAGE-ERROR.5>.
>
> I think this is right, so I'm going to commit this for now.

The page for DELETE-PACKAGE says:

   If package is a package object that has already been deleted,
   delete-package immediately returns nil.

and

   If the package designator is a name that does not currently
   name a package, a correctable error of type package-error is
   signaled. If correction is attempted, no deletion action is
   attempted; instead, delete-package immediately returns nil.

In this case, the designator is a package object, not a name, so
the first of these paragraphs applies.  No error should be
signalled.

        Paul