diff --git a/ordinary-differential-equations/stepping.lisp b/ordinary-differential-equations/stepping.lisp index 250be3fe56a71c79fc2b94260b9aa4d2f71c3f8f..94d8da842df0622df26bb1942c29b7b21d4c2fc7 100644 --- a/ordinary-differential-equations/stepping.lisp +++ b/ordinary-differential-equations/stepping.lisp @@ -1,7 +1,6 @@ ;; Stepping functions for ODE systems. ;; Liam Healy, Mon Sep 24 2007 - 21:33 -;; Time-stamp: <2009-06-06 16:44:42EDT stepping.lisp> -;; $Id$ +;; Time-stamp: <2009-11-30 19:01:31EST stepping.lisp> ;; /usr/include/gsl/gsl_odeiv.h @@ -91,10 +90,10 @@ values): (((mpointer stepper) :pointer) (time :double) (step-size :double) - (y :pointer) - (yerr :pointer) - (dydt-in :pointer) - (dydt-out :pointer) + ((c-pointer y) :pointer) + ((c-pointer yerr) :pointer) + ((c-pointer dydt-in) :pointer) + ((c-pointer dydt-out) :pointer) ((callback-struct stepper) :pointer)) :documentation ; FDL "Apply the stepping function stepper to the system of equations