[bug] (mapconcat 'identity '(1 2 3) ".")

This breaks PCL-CVS release v2_9_7, and no doubt other XEmacs software. (mapconcat 'identity '(1 2 3) ".") Returns a wta, sequencep, 1 I saw you'd changed something in mapconcat, so I updated from CVS, but it still does it. I'm going to try and debug it... but don't count on any patches. :-) Signaling: (wrong-type-argument sequencep 1) mapconcat(identity (1 2 3) ".") eval((mapconcat (quote identity) (quote (1 2 3)) ".")) eval-interactive((mapconcat (quote identity) (quote (1 2 3)) ".")) eval-last-sexp(t) #<compiled-function nil "...(13)" [standard-output terpri eval-last-sexp t] 2 919702 nil>() call-interactively(eval-print-last-sexp) pcl-cvs: descending directory =================================================================== File: version.sh Status: Up-to-date Working revision: 1.111.2.47 Repository revision: 1.111.2.47 /usr/CVSroot/XEmacs/xemacs/version.sh,v Sticky Tag: release-21-2 (branch: 1.111.2) Sticky Date: (none) Sticky Options: (none) uname -a: Linux bittersweet 2.2.14 #3 Tue Jan 18 11:39:58 PST 2000 i586 unknown /usr/local/src/PKG/unstable/main/xemacs/xemacs-21.2/configure '--srcdir=/usr/local/src/PKG/unstable/main/xemacs/xemacs-21.2' '--prefix=/usr' '--without-prefix' '--cflags=-mcpu=k6 -march=k6 -ggdb -O3' '--with-database=berkdb' '--with-athena=3d' '--with-widgets=athena' '--with-dialogs=athena' '--with-scrollbars=lucid' '--with-menubars=lucid' '--with-sound=esd,native' '--with-modules' '--package-path=/usr/local/src/XEmacs/Packages' '--infopath=/usr/share/info:/usr/local/share/info:/usr/info:/usr/local/info' '--with-mule=no' '--with-file-coding' '--debug=yes' 'i686-bittersweet-linux' XEmacs 21.2-b28 "Hermes" configured for `i686-bittersweet-linux'. Where should the build process find the source code? /usr/local/src/PKG/unstable/main/xemacs/xemacs-21.2 What installation prefix should install use? /usr What operating system and machine description files should XEmacs use? `s/linux.h' and `m/intel386.h' What compiler should XEmacs be built with? gcc -mcpu=k6 -march=k6 -ggdb -O3 Should XEmacs use the GNU version of malloc? yes (Using Doug Lea's new malloc from the GNU C Library.) Should XEmacs use the relocating allocator for buffers? yes What window system should XEmacs use? x11 Where do we find X Windows header files? /usr/X11R6/include Where do we find X Windows libraries? /usr/X11R6/lib Athena library to link: Xaw3d Athena header include path: X11/Xaw3d Compiling in support for XAUTH. Compiling in support for XPM images. Compiling in support for PNG image handling. Compiling in support for (builtin) GIF image handling. Compiling in support for JPEG image handling. Compiling in support for TIFF image handling. Compiling in support for X-Face message headers. Compiling in native sound support. Compiling in support for Enlightened Sound Daemon (ESD). Compiling in support for Berkeley DB. Compiling in support for LDAP. Compiling in support for ncurses. Compiling in support for GPM (General Purpose Mouse). Compiling in File coding support. Compiling in support for proper WM_COMMAND handling. Using Lucid menubars. Using Lucid scrollbars. Using Athena native widgets. Using Athena dialog boxes. Compiling in dynamic shared object module support. movemail will use "dot-locking" for locking mail spool files. Compiling in extra code for debugging. WARNING: --------------------------------------------------------- WARNING: Compiling in support for runtime error checking. WARNING: XEmacs will run noticeably more slowly as a result. WARNING: Error checking is on by default for XEmacs beta releases. WARNING: ---------------------------------------------------------