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)