Add upper limit arg to zto1 and batap-new
commit78dc2e149006c85b8b0397f524fce0380942136d
authorRaymond Toy <toy.raymond@gmail.com>
Sat, 29 Jun 2024 21:08:03 +0000 (29 14:08 -0700)
committerRaymond Toy <toy.raymond@gmail.com>
Sat, 29 Jun 2024 21:08:03 +0000 (29 14:08 -0700)
tree891828d139eda476e2c1aa9b91410338aa52eff3
parent2fc25267ddad9ecfc57d4aee97fe4c1da32e38a0
Add upper limit arg to zto1 and batap-new

Both `zto1` and `batap-new` were accessing the special variable
`*ul*`.  Instead, add a `ul` arg for the upper limit and rename `*ul*`
to `ul`.  Update callers to pass in the upper limit to these
functions.

Full testsuite + share pass (with 1 expected failure) with cmucl and
ccl64.
src/defint.lisp