Skip to content
Snippets Groups Projects
Commit 54353bcb authored by Liam Healy's avatar Liam Healy
Browse files

Specify :inputs and :outputs; CCL works

More :inputs and :outputs specified.  CCL now passes all 1208 tests if
certain functions are traced (bug in CCL?)
(trace polynomial-eval-divided-difference swap-elements
       permutation-reverse lu-invert permutation-next)
parent 8a8148f8
No related branches found
No related tags found
No related merge requests found
;; Polynomials ;; Polynomials
;; Liam Healy, Tue Mar 21 2006 - 18:33 ;; Liam Healy, Tue Mar 21 2006 - 18:33
;; Time-stamp: <2008-12-26 18:53:14EST polynomial.lisp> ;; Time-stamp: <2008-12-30 18:38:17EST polynomial.lisp>
;; $Id$ ;; $Id$
(in-package :gsl) (in-package :gsl)
...@@ -17,9 +17,10 @@ ...@@ -17,9 +17,10 @@
(defmfun polynomial-eval (coefficients x) (defmfun polynomial-eval (coefficients x)
"gsl_poly_eval" "gsl_poly_eval"
(((c-pointer coefficients) :pointer) ((dim0 coefficients) sizet) (x :double)) (((c-pointer coefficients) :pointer) ((dim0 coefficients) sizet) (x :double))
:inputs (coefficients)
:c-return :double
:documentation ; FDL :documentation ; FDL
"Evaluate the polyonomial with coefficients at the point x." "Evaluate the polyonomial with coefficients at the point x.")
:c-return :double)
;;;;**************************************************************************** ;;;;****************************************************************************
;;;; Divided Difference Representation of Polynomials ;;;; Divided Difference Representation of Polynomials
...@@ -37,7 +38,7 @@ ...@@ -37,7 +38,7 @@
"Compute a divided-difference representation of the "Compute a divided-difference representation of the
interpolating polynomial for the points (xa, ya) stored in interpolating polynomial for the points (xa, ya) stored in
the arrays of equal length. On output the the arrays of equal length. On output the
divided-differences of (@var{xa},@var{ya}) are stored in the array divided-differences of (xa,ya) are stored in the array
dd, of the same length.") dd, of the same length.")
(defmfun polynomial-eval-divided-difference (dd xa x) (defmfun polynomial-eval-divided-difference (dd xa x)
...@@ -147,6 +148,8 @@ ...@@ -147,6 +148,8 @@
"gsl_poly_complex_solve" "gsl_poly_complex_solve"
(((c-pointer coefficients) :pointer) ((dim0 coefficients) sizet) (((c-pointer coefficients) :pointer) ((dim0 coefficients) sizet)
((mpointer workspace) :pointer) ((c-pointer answer-pd) :pointer)) ((mpointer workspace) :pointer) ((c-pointer answer-pd) :pointer))
:inputs (coefficients)
:outputs (answer-pd)
:return :return
((loop for i from 0 below (dim0 answer-pd) by 2 ((loop for i from 0 below (dim0 answer-pd) by 2
collect (complex (maref answer-pd i) collect (complex (maref answer-pd i)
......
;; Bessel functions ;; Bessel functions
;; Liam Healy, Fri Mar 17 2006 - 18:42 ;; Liam Healy, Fri Mar 17 2006 - 18:42
;; Time-stamp: <2008-12-26 12:09:51EST bessel.lisp> ;; Time-stamp: <2008-12-30 18:56:40EST bessel.lisp>
;; $Id$ ;; $Id$
(in-package :gsl) (in-package :gsl)
...@@ -368,6 +368,7 @@ ...@@ -368,6 +368,7 @@
(defmfun spherical-Jnu-array (nu v &optional (mode :double)) (defmfun spherical-Jnu-array (nu v &optional (mode :double))
"gsl_sf_bessel_sequence_Jnu_e" "gsl_sf_bessel_sequence_Jnu_e"
((nu :double) (mode sf-mode) ((dim0 v) :int) ((c-pointer v) :pointer)) ((nu :double) (mode sf-mode) ((dim0 v) :int) ((c-pointer v) :pointer))
:inputs (v)
:outputs (v) :outputs (v)
:documentation ; FDL :documentation ; FDL
"The regular cylindrical Bessel function of "The regular cylindrical Bessel function of
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment