From 84ae7651eba2dfcd191e8404ee643fdb1347a493 Mon Sep 17 00:00:00 2001
From: tony <tony@jeeves.blindglobe.net>
Date: Thu, 15 May 2008 12:34:08 +0200
Subject: [PATCH] Support for different matrix packages.  Pick one and use it. 
 BUT  SBCL is only current target, need to extend to CLISP.

---
 matrix-clem.lisp    | 33 +++++++++++++++++++++++++++++++++
 matrix-matlisp.lisp | 35 +++++++++++++++++++++++++++++++++++
 2 files changed, 68 insertions(+)
 create mode 100644 matrix-clem.lisp
 create mode 100644 matrix-matlisp.lisp

diff --git a/matrix-clem.lisp b/matrix-clem.lisp
new file mode 100644
index 0000000..bd0f690
--- /dev/null
+++ b/matrix-clem.lisp
@@ -0,0 +1,33 @@
+;;; -*- mode: lisp -*-
+;;;
+;;; Copyright (c) 2005--2007, by A.J. Rossini <blindglobe@gmail.com>
+;;; See COPYRIGHT file for any additional restrictions (BSD license).
+;;; Since 1991, ANSI was finally finished.  Modified to match ANSI
+;;; Common Lisp.  
+
+;;;; matrix-clem  -- matrix and linear algebra using CLEM.
+
+;;;
+;;; Package Setup
+;;;
+
+(in-package :cl-user)
+
+(defpackage :lisp-stat-matrix-clem
+  (:use :common-lisp
+	:cffi
+	:clem
+	:lisp-stat-compound-data)
+  (: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
+
+	   check-matrix check-square-matrix
+
+	   copy-array copy-vector
+	   ))
+
+(in-package :lisp-stat-matrix-clem)
+
diff --git a/matrix-matlisp.lisp b/matrix-matlisp.lisp
new file mode 100644
index 0000000..056fada
--- /dev/null
+++ b/matrix-matlisp.lisp
@@ -0,0 +1,35 @@
+i;;; -*- mode: lisp -*-
+;;;
+;;; Copyright (c) 2008--, by A.J. Rossini <blindglobe@gmail.com>
+;;; See COPYRIGHT file for any additional restrictions (BSD license).
+;;; Since 1991, ANSI was finally finished.  Modified to match ANSI
+;;; Common Lisp.  
+
+;;;; matrix-matlisp  -- matrix and linear algebra using MATLISP.
+
+;;;
+;;; Package Setup
+;;;
+
+(in-package :cl-user)
+
+(defpackage :lisp-stat-matrix-matlisp
+  (:use :common-lisp
+	:cffi
+	:matlisp
+	:lisp-stat-compound-data)
+  (: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
+
+	   check-matrix check-square-matrix
+
+	   copy-array copy-vector
+	   ))
+
+(in-package :lisp-stat-matrix-matlisp)
+
+
+
-- 
2.11.4.GIT