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