Fixed naming conflict. MINIMAL-TERM-TOP-LEFT shows the occasional

divide-by-zero error. Gotta investigate!
This commit is contained in:
Gerd Heber 2015-07-30 19:30:38 -05:00
parent b1c69c1725
commit c3f663e202

View File

@ -170,7 +170,7 @@
(cat:mtrx-prdc q q-1)))
(test minimal-term-top-left
(test minimal-term-top-left1
(let* ((p (cat:idnt-mtrx 4))
(p-1 (cat:idnt-mtrx 4))
(m (cat:random-matrix 4 5 10))
@ -183,6 +183,7 @@
(cat:mtrx-prdc p p-1)
(cat:mtrx-prdc q q-1)))
(test list-smith
(let* ((p (cat:idnt-mtrx 4))
(p-1 (cat:idnt-mtrx 4))