share/tensor/itensor.lisp: make X and D shared lexical variables for the functions...
commit6385653081ba808f7d6de4c0442ac5bae3392552
authorRobert Dodier <robert_dodier@sourceforge.net>
Mon, 1 Jul 2024 05:42:04 +0000 (30 22:42 -0700)
committerRobert Dodier <robert_dodier@sourceforge.net>
Mon, 1 Jul 2024 05:42:04 +0000 (30 22:42 -0700)
treeb21082e4f9a7c2132fafe56288989db8a10f5323
parent40f9229cbf9ac24ed6379efd460791cd651ca619
share/tensor/itensor.lisp: make X and D shared lexical variables for the functions which use them ($COVDIFF and COVDIFF).

batch("rtest_itensor.mac", test) reports no errors. Tracing COVDIFF
after loading itensor shows that it is called several times in rtest_itensor.

This commit quiets a message from ECL about declaring X and D as NOT SPECIAL.
share/tensor/itensor.lisp