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



Same bug as my 626728 (2002-10-22 03:27).

My patch apparently never got into the source:

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

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

---------------

On 29 Oct 2004 14:58:39 +0200, Albert Reiner <areiner@tph.tuwien.ac.at> wrote:
...
> | (C1) scanmap(lambda([e], if atom(e) then 5 else e), a+b);
> | (D1)                                  10
> | (C2) scanmap(lambda([e], if atom(e) then 5 else e), a+b, bottomup);
> | Type-error in KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER:  5 is not of type LIST