diff --git a/interpolation/evaluation.lisp b/interpolation/evaluation.lisp
index 728ddefaab5a3977d8d8d93f5482ff8769f071cc..fb1e57f06b0998a1019ceebf22a568bc5b787ff4 100644
--- a/interpolation/evaluation.lisp
+++ b/interpolation/evaluation.lisp
@@ -1,6 +1,6 @@
 ;; Evaluation of interpolation functions.
 ;; Liam Healy Sun Nov  4 2007 - 18:40
-;; Time-stamp: <2009-12-27 09:52:14EST evaluation.lisp>
+;; Time-stamp: <2010-03-28 16:40:16EDT evaluation.lisp>
 ;;
 ;; Copyright 2007, 2008, 2009 Liam M. Healy
 ;; Distributed under the terms of the GNU General Public License
@@ -20,11 +20,16 @@
 
 (in-package :gsl)
 
+;;; /usr/include/gsl/gsl_interp.h
+
 (defmfun evaluate
     ((interpolation interpolation) x
      &key xa ya (acceleration (make-acceleration)))
   "gsl_interp_eval"
-  (((mpointer interpolation) :pointer) (xa :pointer) (ya :pointer) (x :double)
+  (((mpointer interpolation) :pointer)
+   ((c-pointer xa) :pointer)
+   ((c-pointer ya) :pointer)
+   (x :double)
    ((mpointer acceleration) :pointer))
   :definition :method
   :inputs (xa ya)
@@ -45,7 +50,10 @@
     ((interpolation interpolation) x
      &key xa ya (acceleration (make-acceleration)))
   "gsl_interp_eval_deriv"
-  (((mpointer interpolation) :pointer) (xa :pointer) (ya :pointer) (x :double)
+  (((mpointer interpolation) :pointer)
+   ((c-pointer xa) :pointer)
+   ((c-pointer ya) :pointer)
+   (x :double)
    ((mpointer acceleration) :pointer))
   :definition :method
   :inputs (xa ya)
@@ -61,7 +69,10 @@
 (defmfun evaluate-second-derivative
     ((interpolation interpolation) x &key xa ya (acceleration (make-acceleration)))
   "gsl_interp_eval_deriv2"
-  (((mpointer interpolation) :pointer) (xa :pointer) (ya :pointer) (x :double)
+  (((mpointer interpolation) :pointer)
+   ((c-pointer xa) :pointer)
+   ((c-pointer ya) :pointer)
+   (x :double)
    ((mpointer acceleration) :pointer))
   :definition :method
   :inputs (xa ya)
@@ -78,7 +89,9 @@
     ((interpolation interpolation) low high
      &key xa ya (acceleration (make-acceleration)))
   "gsl_interp_eval_integ"
-  (((mpointer interpolation) :pointer) (xa :pointer) (ya :pointer)
+  (((mpointer interpolation) :pointer)
+   ((c-pointer xa) :pointer)
+   ((c-pointer ya) :pointer)
    (low :double) (high :double) ((mpointer acceleration) :pointer))
   :definition :method
   :inputs (xa ya)