Commit 4546fec5 authored by liam's avatar liam

Fix minor compilation errors.


git-svn-id: svn+ssh://pop/opt/space/mathematics/gsl/trunk@3272 a3d8a0fb-c1db-0310-ace7-a616afeb9e30
parent d161d049
;; Definition of GSLL system
;; Liam Healy
;; Time-stamp: <2008-01-20 21:12:57EST gsll.asd>
;; Time-stamp: <2008-01-20 23:18:16EST gsll.asd>
;; $Id: $
(asdf:defsystem "gsll"
......@@ -171,5 +171,5 @@
(:file "hankel" :depends-on (init data))
(:file "roots-one" :depends-on (init general))
(:file "minimization-one" :depends-on (init general))
(:file "roots-multi" :depends-on (init general))
(:file "minimization-multi" :depends-on (init general))))
(:file "roots-multi" :depends-on (init general data))
(:file "minimization-multi" :depends-on (init general data))))
;; Multivariate minimization.
;; Liam Healy <Tue Jan 8 2008 - 21:28>
;; Time-stamp: <2008-01-20 21:01:12EST minimization-multi.lisp>
;; Time-stamp: <2008-01-20 23:17:16EST minimization-multi.lisp>
;; $Id: $
(in-package :gsl)
......@@ -344,10 +344,9 @@
(defun parabaloid-and-derivative
(arguments-gv-pointer fnval derivative-gv-pointer)
(with-c-double (function fnval)
(setf fnval (parabaloid arguments-gv-pointer))
(parabaloid-derivative
arguments-gv-pointer derivative-gv-pointer))))
(setf fnval (parabaloid arguments-gv-pointer))
(parabaloid-derivative
arguments-gv-pointer derivative-gv-pointer))
(def-minimization-functions
parabaloid 2 parabaloid-derivative parabaloid-and-derivative)
......
;; One-dimensional root solver.
;; Liam Healy
;; Time-stamp: <2008-01-20 22:40:19EST roots-one.lisp>
;; Time-stamp: <2008-01-20 23:14:27EST roots-one.lisp>
;; $Id: $
(in-package :gsl)
......@@ -37,7 +37,7 @@
(defmcallback
,fdf ,(if dimensions :success-failure :pointer)
,argtype (:pointer :pointer))
(defcbstruct (,function 'function ,df 'df ,fdf 'fdf) ,struct
(defcbstruct (,function function ,df df ,fdf fdf) ,struct
,(when dimensions `((dimensions ,dimensions)))))))
;;;;****************************************************************************
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment