Commit 5d155e1c authored by Liam Healy's avatar Liam Healy

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.
parent 59f80be4
;; 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
......
;; 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)
......
;; 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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment