BUG? scanmap(..., bottomup) with function returning number



>>>>> "Stavros" == Stavros Macrakis <macrakis@gmail.com> writes:

    Stavros> Same bug as my 626728 (2002-10-22 03:27).
    Stavros> My patch apparently never got into the source:

    old> 
    Stavros> (defmfun subst0 (new old)
    Stavros>    (cond ((alike (cdr new) (cdr old))
    Stavros>    ...

    new> 
    Stavros> (defmfun subst0 (new old)
    Stavros>    (cond ((atom new) new)
    Stavros>          ((alike (cdr new) (cdr old))
    Stavros>          ...

Patch applied.

Thanks!

Ray