Re: [Gcl-devel] functionp.4 (ansi-tests)??

[Paul F. Dietz]

Peter Wood wrote:

> Test CL-TEST::FUNCTIONP.4 failed
> Form: (LOOP
>         CL-TEST::FOR
>         CL-TEST::X
>         CL-TEST::IN
>         CL-TEST::*CL-SYMBOL-NAMES*
>         CL-TEST::FOR
>         CL-TEST::S
>         =
>         (FIND-SYMBOL CL-TEST::X "CL")
>         CL-TEST::FOR
>         CL-TEST::F
>         =
>         (AND (FBOUNDP CL-TEST::S) (SYMBOL-FUNCTION CL-TEST::S)
>              (NOT (SPECIAL-OPERATOR-P CL-TEST::S))
>              (NOT (MACRO-FUNCTION CL-TEST::S)))
>         CL-TEST::ALWAYS
>         (OR (NULL CL-TEST::F) (FUNCTIONP CL-TEST::F)))
> Expected value: T
> Actual value: NIL.
> NIL


This test has not been updated!  Look at what's being bound to F.
You're missing the second SYMBOL-FUNCTION call.  You need to bring
your tests up to date with the cvs repository.

        Paul