From 5d155e1cb31510b79e1b5a1ae20026dfd32f966d Mon Sep 17 00:00:00 2001
From: Liam Healy <liam@thinkpad.local>
Date: Sat, 29 Nov 2008 15:35:44 -0500
Subject: [PATCH] Use :pointer for GSL function argument type; fix
 #'cholesky-solvex

Use :pointer for arguments to GSL functions instead of gsl-matrix-c.
Function #'cholesky-solvex had the wrong argument name.
---
 init/defmfun.lisp            | 4 ++--
 linear-algebra/cholesky.lisp | 6 +++---
 linear-algebra/lu.lisp       | 8 ++++----
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/init/defmfun.lisp b/init/defmfun.lisp
index 6bae8981..723a4f8a 100644
--- a/init/defmfun.lisp
+++ b/init/defmfun.lisp
@@ -1,6 +1,6 @@
 ;; Macro for defining GSL functions.
 ;; Liam Healy 2008-04-16 20:49:50EDT defmfun.lisp
-;; Time-stamp: <2008-11-29 14:20:17EST defmfun.lisp>
+;; Time-stamp: <2008-11-29 15:30:45EST defmfun.lisp>
 ;; $Id$
 
 (in-package :gsl)
@@ -157,7 +157,7 @@
  'gsl-zerop
  '((v matrix))
  '("gsl_" :category :type "_isnull")
- '(((pointer v) gsl-matrix-c))
+ '(((pointer v) :pointer))
  '(:c-return :boolean
    :definition :generic
    :documentation			; FDL
diff --git a/linear-algebra/cholesky.lisp b/linear-algebra/cholesky.lisp
index fe0111cf..528923a1 100644
--- a/linear-algebra/cholesky.lisp
+++ b/linear-algebra/cholesky.lisp
@@ -1,6 +1,6 @@
 ;; Cholesky Decomposition
 ;; Liam Healy, Wed May  3 2006 - 16:38
-;; Time-stamp: <2008-11-16 13:26:42EST cholesky.lisp>
+;; Time-stamp: <2008-11-29 15:33:14EST cholesky.lisp>
 ;; $Id$
 
 (in-package :gsl)
@@ -43,9 +43,9 @@
   decomposition of A into the matrix cholesky given by
   #'cholesky-decomposition.")
 
-(defmfun cholesky-solvex (cholesky x)
+(defmfun cholesky-solvex (A x)
   "gsl_linalg_cholesky_svx"
-  (((mpointer cholesky) :pointer) ((mpointer x) :pointer))
+  (((mpointer A) :pointer) ((mpointer x) :pointer))
   :inputs (A x)
   :outputs (x)
   :return (x)
diff --git a/linear-algebra/lu.lisp b/linear-algebra/lu.lisp
index 4581bda2..49bf7e47 100644
--- a/linear-algebra/lu.lisp
+++ b/linear-algebra/lu.lisp
@@ -1,6 +1,6 @@
 ;; LU decomposition
 ;; Liam Healy, Thu Apr 27 2006 - 12:42
-;; Time-stamp: <2008-10-25 18:24:40EDT lu.lisp>
+;; Time-stamp: <2008-11-29 15:30:45EST lu.lisp>
 ;; $Id$
 
 (in-package :gsl)
@@ -96,7 +96,7 @@
 
 (defmfun LU-determinant ((LU matrix) signum)
   ("gsl_linalg" :complex "_LU_det")
-  (((mpointer LU) gsl-matrix-c) (signum :int))
+  (((mpointer LU) :pointer) (signum :int))
   :c-return :double
   :definition :generic
   :inputs (LU)
@@ -109,7 +109,7 @@
 
 (defmfun LU-log-determinant ((LU matrix))
   ("gsl_linalg" :complex "_LU_lndet")
-  (((mpointer LU) gsl-matrix-c))
+  (((mpointer LU) :pointer))
   :c-return :double
   :definition :generic
   :inputs (LU)
@@ -122,7 +122,7 @@
 
 (defmfun LU-sgndet ((LU matrix) signum)
   ("gsl_linalg" :complex "_LU_sgndet")
-  (((mpointer LU) gsl-matrix-c) (signum :int))
+  (((mpointer LU) :pointer) (signum :int))
   :c-return :int
   :definition :generic
   :inputs (LU)
-- 
GitLab