Maxima-function logxor does not work under Sbcl



Hello,

Maxima 5.25.1 http://maxima.sourceforge.net
using Lisp SBCL 1.0.53
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
STYLE-WARNING: redefining MAXIMA::ADD-LINEINFO in DEFUN
STYLE-WARNING: redefining MAXIMA::$LOAD in DEFUN
(%i1) load(functs);
Evaluation took 0.0180 seconds (0.0190 elapsed) using 3.045 MB.
(%o1) "/home/kullmann/OKplatform/ExternalSources/Installations/Maxima/sbcl/5.25.1/share/maxima/5.25.1/share/simplification/functs.mac"
(%i2) logxor(1,1);
Evaluation took 0.0000 seconds (0.0010 elapsed) using 0 bytes.
(%o2) 1

which should return 0, which it does under CLisp and Ecl, e.g.

Maxima 5.25.1 http://maxima.sourceforge.net
using Lisp ECL 11.1.1
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
(%i1) load(functs);
Evaluation took 0.0150 seconds (0.0180 elapsed)
(%o1) "/home/kullmann/OKplatform/ExternalSources/Installations/Maxima/ecl/5.25.1/share/maxima/5.25.1/share/simplification/functs.mac"
(%i2) logxor(1,1);
Evaluation took 0.0000 seconds (0.0000 elapsed)
(%o2) 0


The Maxima-buid using Sbcl (built using CLisp) passed all tests except of one,
a numerical value close by to the given one.

Many tests of my system also passed, and I can't see any systematic issue here.

Oliver