From 22782b3a36b50e5b4c00b26a0afa38bfa9486823 Mon Sep 17 00:00:00 2001
From: tony <tony@jeeves.blindglobe.net>
Date: Tue, 13 May 2008 09:13:02 +0200
Subject: [PATCH] more tests to track down multiple regression failures

---
 ls-demo.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ls-demo.lisp b/ls-demo.lisp
index f2990df..486f01f 100644
--- a/ls-demo.lisp
+++ b/ls-demo.lisp
@@ -305,6 +305,7 @@ iron
 (send fit1a :x)
 (send fit1a :y)
 (send fit1a :compute)
+(send fit1a :sweep-matrix)
 (send fit1a :basis)
 (send fit1a :residuals)
 (send fit1a :display)
@@ -319,6 +320,8 @@ iron
 (defvar m nil "holding variable.")
 (def m (regression-model (list iron aluminum) absorbtion :print nil)) 
 (send m :compute)
+(send m :sweep-matrix)
+(format t "~%~A~%" (send m :sweep-matrix))
 (send m :display) ;; ERROR...
 (def m (regression-model (bind-columns iron aluminum) absorbtion))
 (send m :help)
-- 
2.11.4.GIT