From a97864b1bacadb38c6de0c571f9a5eae36dd6bd0 Mon Sep 17 00:00:00 2001
From: Liam Healy <liam@thinkpad.local>
Date: Mon, 30 Nov 2009 19:02:20 -0500
Subject: [PATCH] Pass c-pointer for marray arguments to apply-step

---
 ordinary-differential-equations/stepping.lisp | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/ordinary-differential-equations/stepping.lisp b/ordinary-differential-equations/stepping.lisp
index 250be3fe..94d8da84 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
-- 
GitLab