From e689c9a9e65fbe531e5bb8f6920ec3d1c34b095d Mon Sep 17 00:00:00 2001
From: tony <tony@jeeves.blindglobe.net>
Date: Fri, 9 May 2008 21:34:15 +0200
Subject: [PATCH] More stuff -- need to get setf'd send!

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

diff --git a/ls-demo.lisp b/ls-demo.lisp
index 95af97b..6447c98 100644
--- a/ls-demo.lisp
+++ b/ls-demo.lisp
@@ -300,6 +300,8 @@ my-chol-decomp-test
 iron
 (defvar fit1a nil)
 (setf fit1a (regression-model absorbtion iron :print nil))
+(send fit1a :doc)
+(setf (send fit1a :doc) "this")
 (send fit1a :x)
 (send fit1a :y)
 (send fit1a :compute)
-- 
2.11.4.GIT