Fix the bogus MFEXPR* property for MPOIS
commitbc4d6f19e9b758aa61d1d6544e644342f7b193e9
authorKris Katterjohn <katterjohn@gmail.com>
Mon, 3 Jan 2022 18:32:23 +0000 (3 13:32 -0500)
committerKris Katterjohn <katterjohn@gmail.com>
Mon, 3 Jan 2022 18:32:23 +0000 (3 13:32 -0500)
tree0e6ac5576e817c54d20d4bd2767a62a9c659da58
parent033d4bd50a528f73f4e522582262163c574c1af9
Fix the bogus MFEXPR* property for MPOIS

The MFEXPR* prop for MPOIS has been the list (LAMBDA (X) X) instead
of the desired identity function.  Attempting to apply this list to
args would cause a lisp error.

Here's one way to trigger the bug:

(%i1) define (foo (), intopois (1))$

(%i2) foo ();
<lisp error>

This used to work in Macsyma under Maclisp and some other older
lisp dialects.

This bogus definition for the MFEXPR* prop for MPOIS is in pois3.
It turns out that a valid definition for this is in pois2.  Given
the way that Maxima is being built, the definition from pois2 is
being replaced by the one in pois3.

I'm removing the definition from pois3, and moving the definition
from pois2 to pois3.  The move is just because there is already a
comment in pois3 about this property.

No problems with the test suite or share test suite.
src/pois2.lisp
src/pois3.lisp