Re: [Gcl-devel] Package test failures

[Camm Maguire]

Greetings!  OK, I've escaped the error in this case.  Just have to
make in-package a macro, and then all package tests should pass.

Here is my current test status:
78 out of 5046 total tests failed: SYMBOL-=, SYMBOL-ARITHMETIC-ERROR, 
SYMBOL-CELL-ERROR, SYMBOL-COMPILE, 
   SYMBOL-COMPILE-FILE, SYMBOL-CONDITION, SYMBOL-CONTROL-ERROR, 
   SYMBOL-COUNT, SYMBOL-DESCRIBE, SYMBOL-DIVISION-BY-ZERO, 
   SYMBOL-END-OF-FILE, SYMBOL-ERROR, SYMBOL-FILE-ERROR, SYMBOL-FIRST, 
   SYMBOL-FLOATING-POINT-OVERFLOW, SYMBOL-FLOATING-POINT-UNDERFLOW, 
   SYMBOL-IN-PACKAGE, SYMBOL-LOAD, SYMBOL-LOGXOR, SYMBOL-OPEN, 
   SYMBOL-PACKAGE-ERROR, SYMBOL-PROGRAM-ERROR, SYMBOL-RETURN, 
   SYMBOL-SERIOUS-CONDITION, SYMBOL-SIMPLE-CONDITION, 
   SYMBOL-SIMPLE-ERROR, SYMBOL-SIMPLE-TYPE-ERROR, 
   SYMBOL-SIMPLE-WARNING, SYMBOL-STORAGE-CONDITION, 
   SYMBOL-STREAM-ERROR, SYMBOL-TYPE-ERROR, SYMBOL-UNBOUND-VARIABLE, 
   SYMBOL-UNDEFINED-FUNCTION, SYMBOL-WARNING, SPECIAL-OPERATOR-P.1, 
   SPECIAL-OPERATOR-P.2, SPECIAL-OPERATOR-P.3, EVAL-AND-COMPILE-MACROS, 
   COMPILE.1, COMPILE.2, COMPILE.5, COMPILE.6, COMPILE.7, COMPILE.8, 
   DCF-FUNS, DCF-MACROS, SETF-VALUES.5, PSETQ.7, PSETF.7, THROW-ERROR, 
   FBOUNDP.6, FBOUNDP.7, FBOUNDP.8, FBOUNDP.9, FBOUNDP.10, FLET.17, 
   FLET.27, FLET.30, FMAKUNBOUND.4, FMAKUNBOUND.5, FMAKUNBOUND.6, 
   FMAKUNBOUND.7, FUNCALL.10, FUNCTION.2, FUNCTION.4, FUNCTION.6, 
   FUNCTION.7, FUNCTION.10, FUNCTIONP.2, FUNCTIONP.4, FUNCTIONP.6, 
   FUNCTIONP.7, FUNCTIONP.10, LABELS.17, MACROLET.5, 
   MULTIPLE-VALUE-SETQ.5, MULTIPLE-VALUE-SETQ.8, IN-PACKAGE-2.
Finished loading gclload.lsp
T


Take care,

"Paul F. Dietz" <address@hidden> writes:

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

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah