diff --git a/init/defmfun.lisp b/init/defmfun.lisp index 6bae89818cc8c45a88985f014047511492288a4f..723a4f8aa8d1797eb1194486c14c7fe985a29ed1 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 fe0111cf7eb656e77f5bf84e4b3e69ab1d1081d4..528923a19576f1f2e66ea528c5697593b3b21e96 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 4581bda281b7d313c4e469741b5bdc9823992909..49bf7e47b2050f09b98234af805eee63028461a9 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)