From c3f663e202aa6c57548d23f127510a9053423062 Mon Sep 17 00:00:00 2001
From: Gerd Heber <gheber@hdfgroup.org>
Date: Thu, 30 Jul 2015 19:30:38 -0500
Subject: [PATCH] Fixed naming conflict. MINIMAL-TERM-TOP-LEFT shows the
 occasional divide-by-zero error. Gotta investigate!

---
 test/smith-test.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/test/smith-test.lisp b/test/smith-test.lisp
index 03c3b8f..0e8cdf3 100644
--- a/test/smith-test.lisp
+++ b/test/smith-test.lisp
@@ -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))