Skip to content
Snippets Groups Projects
Commit 5d155e1c authored by Liam Healy's avatar Liam Healy
Browse files

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
No related branches found
No related tags found
No related merge requests found
;; Macro for defining GSL functions. ;; Macro for defining GSL functions.
;; Liam Healy 2008-04-16 20:49:50EDT defmfun.lisp ;; 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$ ;; $Id$
(in-package :gsl) (in-package :gsl)
...@@ -157,7 +157,7 @@ ...@@ -157,7 +157,7 @@
'gsl-zerop 'gsl-zerop
'((v matrix)) '((v matrix))
'("gsl_" :category :type "_isnull") '("gsl_" :category :type "_isnull")
'(((pointer v) gsl-matrix-c)) '(((pointer v) :pointer))
'(:c-return :boolean '(:c-return :boolean
:definition :generic :definition :generic
:documentation ; FDL :documentation ; FDL
......
;; Cholesky Decomposition ;; Cholesky Decomposition
;; Liam Healy, Wed May 3 2006 - 16:38 ;; 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$ ;; $Id$
(in-package :gsl) (in-package :gsl)
...@@ -43,9 +43,9 @@ ...@@ -43,9 +43,9 @@
decomposition of A into the matrix cholesky given by decomposition of A into the matrix cholesky given by
#'cholesky-decomposition.") #'cholesky-decomposition.")
(defmfun cholesky-solvex (cholesky x) (defmfun cholesky-solvex (A x)
"gsl_linalg_cholesky_svx" "gsl_linalg_cholesky_svx"
(((mpointer cholesky) :pointer) ((mpointer x) :pointer)) (((mpointer A) :pointer) ((mpointer x) :pointer))
:inputs (A x) :inputs (A x)
:outputs (x) :outputs (x)
:return (x) :return (x)
......
;; LU decomposition ;; LU decomposition
;; Liam Healy, Thu Apr 27 2006 - 12:42 ;; 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$ ;; $Id$
(in-package :gsl) (in-package :gsl)
...@@ -96,7 +96,7 @@ ...@@ -96,7 +96,7 @@
(defmfun LU-determinant ((LU matrix) signum) (defmfun LU-determinant ((LU matrix) signum)
("gsl_linalg" :complex "_LU_det") ("gsl_linalg" :complex "_LU_det")
(((mpointer LU) gsl-matrix-c) (signum :int)) (((mpointer LU) :pointer) (signum :int))
:c-return :double :c-return :double
:definition :generic :definition :generic
:inputs (LU) :inputs (LU)
...@@ -109,7 +109,7 @@ ...@@ -109,7 +109,7 @@
(defmfun LU-log-determinant ((LU matrix)) (defmfun LU-log-determinant ((LU matrix))
("gsl_linalg" :complex "_LU_lndet") ("gsl_linalg" :complex "_LU_lndet")
(((mpointer LU) gsl-matrix-c)) (((mpointer LU) :pointer))
:c-return :double :c-return :double
:definition :generic :definition :generic
:inputs (LU) :inputs (LU)
...@@ -122,7 +122,7 @@ ...@@ -122,7 +122,7 @@
(defmfun LU-sgndet ((LU matrix) signum) (defmfun LU-sgndet ((LU matrix) signum)
("gsl_linalg" :complex "_LU_sgndet") ("gsl_linalg" :complex "_LU_sgndet")
(((mpointer LU) gsl-matrix-c) (signum :int)) (((mpointer LU) :pointer) (signum :int))
:c-return :int :c-return :int
:definition :generic :definition :generic
:inputs (LU) :inputs (LU)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment