fboundp may return something other than T if a symbol is FBOUNDP



Thanks for the bug report. I have checked a fix into rtest15.

OLD
(translate (F1), ?fboundp (F1));
NEW
(translate (F1), ?not(?null(?fboundp (F1))));

On 5/4/07, Rainer Joswig <joswig at lisp.de> wrote:
>
> ? (fboundp 'sin)
> #<Compiled-function SIN #x3000400482CF>
>
> Running tests in rtest15:
> ********************** Problem 200 ***************
> Input:
> (translate(F1), fboundp(F1))
> Result:
> #<Compiled-function $f1 #x300041ED8FFF>
>
> This differed from the expected result:
> true
>