From 3377edcf30418ce20cd9d9834e0d35f185364cd2 Mon Sep 17 00:00:00 2001
From: AJ Rossini <blindglobe@gmail.com>
Date: Tue, 6 Nov 2007 08:51:19 +0100
Subject: [PATCH] docs and arglist cleanup.

---
 matrices.lsp   | 2 +-
 regression.lsp | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/matrices.lsp b/matrices.lsp
index ba66360..3e38490 100644
--- a/matrices.lsp
+++ b/matrices.lsp
@@ -281,7 +281,7 @@ Example: (bind-columns #2a((1 2)(3 4)) #(5 6)) returns #2a((1 2 5)(3 4 6))"
                (error "bad argument type")))
          (arg-cols (x) (if (sequencep x) 1 (num-cols x)))
          (arg-rows (x) (if (sequencep x) (length x) (num-rows x))))
-    (dolist (x args) (check-arg x))
+    (dolist (x args) (check-arg x)) ;; verify data structure conformance.
     (let ((m (arg-rows (first args)))
           (n (arg-cols (first args))))
       (declare (fixnum m n))
diff --git a/regression.lsp b/regression.lsp
index 0160fea..27cec43 100644
--- a/regression.lsp
+++ b/regression.lsp
@@ -59,12 +59,12 @@
 (defun regression-model (x y &key 
                            (intercept T) 
                            (print T) 
-                           weights
+                           (weights nil)
                            (included (repeat t (length y)))
                            predictor-names
                            response-name
                            case-labels)
-"Args: (x y &key (intercept T) (print T) weights 
+"Args: (x y &key (intercept T) (print T) (weights nil)
           included predictor-names response-name case-labels)
 X           - list of independent variables or X matrix
 Y           - dependent variable.
-- 
2.11.4.GIT