Fold (* x 1) for any number.
commitfd927d3469d1cbf5c356e2e4748e980c2b82fd3c
authorStas Boukarev <stassats@gmail.com>
Fri, 19 Apr 2024 20:12:22 +0000 (19 23:12 +0300)
committerStas Boukarev <stassats@gmail.com>
Fri, 19 Apr 2024 20:18:41 +0000 (19 23:18 +0300)
tree61756e0cad4f686e411257971437215eb2ec6d39
parenta4d1fde4429c2baf80e71a644f7da91d34218183
Fold (* x 1) for any number.

Ignore signaling nans. Arithmetic functions are already flushable and
ignore nans when unused.
src/compiler/srctran.lisp
tests/constraint.pure.lisp