From a8f25f81e36a841091310fcd0cb79ed68e9831ca Mon Sep 17 00:00:00 2001
From: tony <tony@jeeves.blindglobe.net>
Date: Thu, 15 May 2008 12:36:17 +0200
Subject: [PATCH] clean up of procedures, comment out but start generic
 methods.

---
 matrices.lsp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/matrices.lsp b/matrices.lsp
index 58a42e0..9a09bee 100644
--- a/matrices.lsp
+++ b/matrices.lsp
@@ -23,7 +23,8 @@
   (:use :common-lisp
 	:cffi
 	:lisp-stat-compound-data)
-  (:export matrixp num-rows num-cols matmult identity-matrix diagonal
+  (:export matrixp ;;  matrix -- conflicts!
+	   num-rows num-cols matmult identity-matrix diagonal
 	   row-list column-list inner-product outer-product
 	   cross-product transpose bind-columns bind-rows
 	   array-data-vector vector-to-array
@@ -392,10 +393,12 @@ Returns a copy of the array A"
   (vector-to-array (copy-seq (array-data-vector a))
 		   (array-dimensions a)))
 
+
+#|
 (defgeneric copy (x)
    (:documentation "methods for copying linaar algebra forms."))
 
 (defmethod copy ((x vector)))
 
 (defmethod copy ((x matrix)))
-
+|#
-- 
2.11.4.GIT