From 9fc8126dcb2ebae356c13ed5bcd4437b61434bc6 Mon Sep 17 00:00:00 2001 From: "Liam M. Healy" <lnp@healy.washington.dc.us> Date: Mon, 10 Jan 2011 18:01:48 -0500 Subject: [PATCH] Explicit package home in grid:foreign-pointer --- calculus/monte-carlo.lisp | 10 ++-- calculus/numerical-integration.lisp | 6 +-- data/combination.lisp | 6 +-- data/foreign-array.lisp | 20 ++++---- data/permutation.lisp | 6 +-- fast-fourier-transforms/backward.lisp | 14 +++--- fast-fourier-transforms/discrete.lisp | 20 ++++---- fast-fourier-transforms/forward.lisp | 14 +++--- fast-fourier-transforms/inverse.lisp | 14 +++--- fast-fourier-transforms/select-direction.lisp | 8 ++-- fast-fourier-transforms/unpack.lisp | 16 +++---- hankel.lisp | 8 ++-- histogram/histogram.lisp | 10 ++-- init/init.lisp | 4 +- interpolation/evaluation.lisp | 20 ++++---- interpolation/interpolation.lisp | 8 ++-- linear-algebra/blas1.lisp | 14 +++--- .../evolution.lisp | 8 ++-- ordinary-differential-equations/stepping.lisp | 12 ++--- polynomial.lisp | 28 +++++------ random/dirichlet.lisp | 16 +++---- random/discrete.lisp | 6 +-- random/multinomial.lisp | 12 ++--- random/quasi.lisp | 6 +-- random/shuffling-sampling.lisp | 14 +++--- random/spherical-vector.lisp | 6 +-- series-acceleration.lisp | 8 ++-- solve-minimize-fit/linear-least-squares.lisp | 24 +++++----- sorting.lisp | 32 ++++++------- special-functions/bessel.lisp | 28 +++++------ special-functions/coulomb.lisp | 16 +++---- special-functions/gegenbauer.lisp | 6 +-- special-functions/legendre.lisp | 18 ++++---- special-functions/mathieu.lisp | 16 +++---- statistics/absolute-deviation.lisp | 16 +++---- statistics/autocorrelation.lisp | 8 ++-- statistics/covariance.lisp | 16 +++---- statistics/higher-moments.lisp | 28 +++++------ statistics/mean-variance.lisp | 46 +++++++++---------- statistics/median-percentile.lisp | 8 ++-- wavelet.lisp | 34 +++++++------- 41 files changed, 305 insertions(+), 305 deletions(-) diff --git a/calculus/monte-carlo.lisp b/calculus/monte-carlo.lisp index 6bffa803..fdd628e6 100644 --- a/calculus/monte-carlo.lisp +++ b/calculus/monte-carlo.lisp @@ -1,8 +1,8 @@ ;; Monte Carlo Integration ;; Liam Healy Sat Feb 3 2007 - 17:42 -;; Time-stamp: <2010-08-07 21:41:14EDT monte-carlo.lisp> +;; Time-stamp: <2011-01-10 17:59:20EST monte-carlo.lisp> ;; -;; Copyright 2007, 2008, 2009 Liam M. Healy +;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -51,7 +51,7 @@ (scalars t)) "gsl_monte_plain_integrate" ((callback :pointer) - ((foreign-pointer lower-limits) :pointer) ((foreign-pointer upper-limits) :pointer) + ((grid:foreign-pointer lower-limits) :pointer) ((grid:foreign-pointer upper-limits) :pointer) ((dim0 lower-limits) sizet) (number-of-samples sizet) ((mpointer generator) :pointer) ((mpointer state) :pointer) @@ -112,7 +112,7 @@ (scalars t)) "gsl_monte_miser_integrate" ((callback :pointer) - ((foreign-pointer lower-limits) :pointer) ((foreign-pointer upper-limits) :pointer) + ((grid:foreign-pointer lower-limits) :pointer) ((grid:foreign-pointer upper-limits) :pointer) ((dim0 lower-limits) sizet) (number-of-samples sizet) ((mpointer generator) :pointer) ((mpointer state) :pointer) @@ -173,7 +173,7 @@ (scalars t)) "gsl_monte_vegas_integrate" ((callback :pointer) - ((foreign-pointer lower-limits) :pointer) ((foreign-pointer upper-limits) :pointer) + ((grid:foreign-pointer lower-limits) :pointer) ((grid:foreign-pointer upper-limits) :pointer) ((dim0 lower-limits) sizet) (number-of-samples sizet) ((mpointer generator) :pointer) ((mpointer state) :pointer) diff --git a/calculus/numerical-integration.lisp b/calculus/numerical-integration.lisp index f11be59c..e398b2b1 100644 --- a/calculus/numerical-integration.lisp +++ b/calculus/numerical-integration.lisp @@ -1,8 +1,8 @@ ;; Numerical integration ;; Liam Healy, Wed Jul 5 2006 - 23:14 -;; Time-stamp: <2010-08-07 21:46:21EDT numerical-integration.lisp> +;; Time-stamp: <2011-01-10 17:59:21EST numerical-integration.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2010 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -157,7 +157,7 @@ (limit 1000) (workspace (make-integration-workspace limit))) "gsl_integration_qagp" ((callback :pointer) - ((foreign-pointer points) :pointer) ((dim0 points) sizet) + ((grid:foreign-pointer points) :pointer) ((dim0 points) sizet) (absolute-error :double) (relative-error :double) (limit sizet) ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) diff --git a/data/combination.lisp b/data/combination.lisp index ae57ad5b..737cef19 100644 --- a/data/combination.lisp +++ b/data/combination.lisp @@ -1,8 +1,8 @@ ;; Combinations ;; Liam Healy, Sun Mar 26 2006 - 11:51 -;; Time-stamp: <2010-07-16 17:14:03EDT combination.lisp> +;; Time-stamp: <2011-01-10 17:59:21EST combination.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2010 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -37,7 +37,7 @@ (setf (grid:metadata-slot object 'mpointer) mptr (cffi:foreign-slot-value mptr 'gsl-combination-c 'data) - (foreign-pointer object) + (grid:foreign-pointer object) (cffi:foreign-slot-value mptr 'gsl-combination-c 'range) range (cffi:foreign-slot-value mptr 'gsl-combination-c 'size) diff --git a/data/foreign-array.lisp b/data/foreign-array.lisp index f5b3a543..e7b28dab 100644 --- a/data/foreign-array.lisp +++ b/data/foreign-array.lisp @@ -1,8 +1,8 @@ ;; A grid:foreign-array with added metadata for GSL. ;; Liam Healy 2008-04-06 21:23:41EDT -;; Time-stamp: <2010-07-13 22:53:02EDT foreign-array.lisp> +;; Time-stamp: <2011-01-10 17:54:07EST foreign-array.lisp> ;; -;; Copyright 2008, 2009, 2010 Liam M. Healy +;; Copyright 2008, 2009, 2010, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -44,7 +44,7 @@ (setf (cffi:foreign-slot-value blockptr 'gsl-block-c 'size) (size object) (cffi:foreign-slot-value blockptr 'gsl-block-c 'data) - (foreign-pointer object) + (grid:foreign-pointer object) (grid:metadata-slot object 'block-pointer) blockptr) (let ((array-struct (alloc-from-block object blockptr))) (setf @@ -54,7 +54,7 @@ (cffi:foreign-slot-value array-struct (if (typep object 'matrix) 'gsl-matrix-c 'gsl-vector-c) 'data) - (foreign-pointer object)) + (grid:foreign-pointer object)) (tg:finalize object (lambda () (cffi:foreign-free blockptr) @@ -92,13 +92,13 @@ (grid:make-grid (case category (vector - `((foreign-array ,(cffi:foreign-slot-value mpointer cstruct 'size)) - ,element-type)) + `((foreign-array ,(cffi:foreign-slot-value mpointer cstruct 'size)) + ,element-type)) (matrix - `((foreign-array - ,(cffi:foreign-slot-value mpointer cstruct 'size0) - ,(cffi:foreign-slot-value mpointer cstruct 'size1)) - ,element-type))) + `((foreign-array + ,(cffi:foreign-slot-value mpointer cstruct 'size0) + ,(cffi:foreign-slot-value mpointer cstruct 'size1)) + ,element-type))) :foreign-pointer (cffi:foreign-slot-value mpointer cstruct 'data) :finalizer finalize))) diff --git a/data/permutation.lisp b/data/permutation.lisp index b894b0cd..7713e9d3 100644 --- a/data/permutation.lisp +++ b/data/permutation.lisp @@ -1,8 +1,8 @@ ;; Permutations ;; Liam Healy, Sun Mar 26 2006 - 11:51 -;; Time-stamp: <2010-11-13 18:44:09EST permutation.lisp> +;; Time-stamp: <2011-01-10 17:59:22EST permutation.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2010 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -38,7 +38,7 @@ (setf (grid:metadata-slot object 'mpointer) mptr (cffi:foreign-slot-value mptr 'gsl-permutation-c 'data) - (foreign-pointer object) + (grid:foreign-pointer object) (cffi:foreign-slot-value mptr 'gsl-permutation-c 'size) (first dimensions)) (tg:finalize object (lambda () (cffi:foreign-free mptr))))) diff --git a/fast-fourier-transforms/backward.lisp b/fast-fourier-transforms/backward.lisp index 8b62af1d..637ca42d 100644 --- a/fast-fourier-transforms/backward.lisp +++ b/fast-fourier-transforms/backward.lisp @@ -1,8 +1,8 @@ ;; Backward FFT ;; Sumant Oemrawsingh, Sat Oct 24 2009 - 12:55 -;; Time-stamp: <2010-06-27 18:13:59EDT backward.lisp> +;; Time-stamp: <2011-01-10 17:59:22EST backward.lisp> ;; -;; Copyright 2009 Sumant Oemrawsingh, Liam M. Healy +;; Copyright 2009, 2011 Sumant Oemrawsingh, Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -33,7 +33,7 @@ (defmfun backward-fourier-transform-radix2 ((vector vector) &key (stride 1)) ("gsl_fft" :type "_radix2_backward") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :complex :inputs (vector) @@ -49,7 +49,7 @@ (wavetable (make-fft-wavetable element-type (floor (size vector) stride))) (workspace (make-fft-workspace element-type (floor (size vector) stride)))) ("gsl_fft" :type "_backward") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) ((mpointer wavetable) :pointer) ((mpointer workspace) :pointer)) :definition :generic :element-types :complex @@ -69,7 +69,7 @@ (defmfun backward-fourier-transform-halfcomplex-radix2 ((vector vector) &key (stride 1)) ("gsl_fft_halfcomplex" :type "_radix2_backward") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :float :inputs (vector) @@ -86,7 +86,7 @@ (wavetable (make-fft-wavetable element-type (floor (size vector) stride) t)) (workspace (make-fft-workspace element-type (floor (size vector) stride)))) ("gsl_fft_halfcomplex" :type "_backward") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) ((mpointer wavetable) :pointer) ((mpointer workspace) :pointer)) :definition :generic :element-types :float @@ -106,7 +106,7 @@ (defmfun backward-fourier-transform-dif-radix2 ((vector vector) &key (stride 1)) ("gsl_fft" :type "_radix2_dif_backward") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :complex :inputs (vector) diff --git a/fast-fourier-transforms/discrete.lisp b/fast-fourier-transforms/discrete.lisp index 6d85e291..929c5353 100644 --- a/fast-fourier-transforms/discrete.lisp +++ b/fast-fourier-transforms/discrete.lisp @@ -1,8 +1,8 @@ ;; Discrete Fourier Transforms ;; Liam Healy 2009-11-07 14:24:07EST -;; Time-stamp: <2010-06-29 22:15:25EDT discrete.lisp> +;; Time-stamp: <2011-01-10 17:59:23EST discrete.lisp> ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -31,8 +31,8 @@ &key (stride 1) (result (grid:make-foreign-array element-type :dimensions (dimensions vector)))) ("gsl_dft" :type "_forward") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) - ((foreign-pointer result) :pointer)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) + ((grid:foreign-pointer result) :pointer)) :definition :generic :element-types :complex :inputs (vector) @@ -47,8 +47,8 @@ &key (stride 1) (result (grid:make-foreign-array element-type :dimensions (dimensions vector)))) ("gsl_dft" :type "_backward") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) - ((foreign-pointer result) :pointer)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) + ((grid:foreign-pointer result) :pointer)) :definition :generic :element-types :complex :inputs (vector) @@ -63,8 +63,8 @@ &key (stride 1) (result (grid:make-foreign-array element-type :dimensions (dimensions vector)))) ("gsl_dft" :type "_inverse") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) - ((foreign-pointer result) :pointer)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) + ((grid:foreign-pointer result) :pointer)) :definition :generic :element-types :complex :inputs (vector) @@ -79,8 +79,8 @@ &key (stride 1) (result (grid:make-foreign-array element-type :dimensions (dimensions vector)))) ("gsl_dft" :type "_transform") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) - ((foreign-pointer result) :pointer)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) + ((grid:foreign-pointer result) :pointer)) :definition :generic :element-types :complex :inputs (vector) diff --git a/fast-fourier-transforms/forward.lisp b/fast-fourier-transforms/forward.lisp index b9018260..e20508ae 100644 --- a/fast-fourier-transforms/forward.lisp +++ b/fast-fourier-transforms/forward.lisp @@ -1,8 +1,8 @@ ;; Forward FFT. ;; Sumant Oemrawsingh, Sat Oct 31 2009 - 23:48 -;; Time-stamp: <2010-06-27 18:13:58EDT forward.lisp> +;; Time-stamp: <2011-01-10 17:59:23EST forward.lisp> ;; -;; Copyright 2009 Sumant Oemrawsingh, Liam M. Healy +;; Copyright 2009, 2011 Sumant Oemrawsingh, Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -37,7 +37,7 @@ single-float "gsl_fft_real_float_radix2_transform" complex-double-float "gsl_fft_complex_radix2_forward" complex-single-float "gsl_fft_complex_float_radix2_forward") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :float-complex :inputs (vector) @@ -56,7 +56,7 @@ single-float "gsl_fft_real_float_transform" complex-double-float "gsl_fft_complex_forward" complex-single-float "gsl_fft_complex_float_forward") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) ((mpointer wavetable) :pointer) ((mpointer workspace) :pointer)) :definition :generic :element-types :float-complex @@ -75,7 +75,7 @@ (defmfun forward-fourier-transform-halfcomplex-radix2 ((vector vector) &key (stride 1)) ("gsl_fft_halfcomplex" :type "_radix2_transform") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :float :inputs (vector) @@ -92,7 +92,7 @@ (wavetable (make-fft-wavetable element-type (floor (size vector) stride) t)) (workspace (make-fft-workspace element-type (floor (size vector) stride)))) ("gsl_fft_halfcomplex" :type "_transform") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) ((mpointer wavetable) :pointer) ((mpointer workspace) :pointer)) :definition :generic :element-types :float @@ -111,7 +111,7 @@ (defmfun forward-fourier-transform-dif-radix2 ((vector vector) &key (stride 1)) ("gsl_fft" :type "_radix2_dif_forward") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :complex :inputs (vector) diff --git a/fast-fourier-transforms/inverse.lisp b/fast-fourier-transforms/inverse.lisp index 77545e27..590f2b74 100644 --- a/fast-fourier-transforms/inverse.lisp +++ b/fast-fourier-transforms/inverse.lisp @@ -1,8 +1,8 @@ ;; Inverse FFT ;; Sumant Oemrawsingh, Sat Oct 24 2009 - 12:55 -;; Time-stamp: <2010-06-27 18:14:00EDT inverse.lisp> +;; Time-stamp: <2011-01-10 17:59:24EST inverse.lisp> ;; -;; Copyright 2009 Sumant Oemrawsingh, Liam M. Healy +;; Copyright 2009, 2011 Sumant Oemrawsingh, Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -33,7 +33,7 @@ (defmfun inverse-fourier-transform-radix2 ((vector vector) &key (stride 1)) ("gsl_fft" :type "_radix2_inverse") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :complex :inputs (vector) @@ -49,7 +49,7 @@ (wavetable (make-fft-wavetable element-type (floor (size vector) stride))) (workspace (make-fft-workspace element-type (floor (size vector) stride)))) ("gsl_fft" :type "_inverse") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) ((mpointer wavetable) :pointer) ((mpointer workspace) :pointer)) :definition :generic :element-types :complex @@ -69,7 +69,7 @@ (defmfun inverse-fourier-transform-halfcomplex-radix2 ((vector vector) &key (stride 1)) ("gsl_fft_halfcomplex" :type "_radix2_inverse") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :float :inputs (vector) @@ -86,7 +86,7 @@ (wavetable (make-fft-wavetable element-type (floor (size vector) stride) t)) (workspace (make-fft-workspace element-type (floor (size vector) stride)))) ("gsl_fft_halfcomplex" :type "_inverse") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet) ((mpointer wavetable) :pointer) ((mpointer workspace) :pointer)) :definition :generic :element-types :float @@ -106,7 +106,7 @@ (defmfun inverse-fourier-transform-dif-radix2 ((vector vector) &key (stride 1)) ("gsl_fft" :type "_radix2_dif_inverse") - (((foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :complex :inputs (vector) diff --git a/fast-fourier-transforms/select-direction.lisp b/fast-fourier-transforms/select-direction.lisp index 115fe4e6..c505e424 100644 --- a/fast-fourier-transforms/select-direction.lisp +++ b/fast-fourier-transforms/select-direction.lisp @@ -1,8 +1,8 @@ ;; FFT where direction is selected. ;; Sumant Oemrawsingh, Sat Oct 24 2009 - 12:55 -;; Time-stamp: <2010-06-27 18:13:58EDT select-direction.lisp> +;; Time-stamp: <2011-01-10 17:59:24EST select-direction.lisp> ;; -;; Copyright 2009 Sumant Oemrawsingh, Liam M. Healy +;; Copyright 2009, 2011 Sumant Oemrawsingh, Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -26,7 +26,7 @@ (defmfun fourier-transform-radix2 ((vector vector) direction &key (stride 1) (n (expt 2 (floor (log (size vector) 2))))) ("gsl_fft" :type "_radix2_transform") - (((foreign-pointer vector) :pointer) (stride sizet) (n sizet) (direction fft-direction)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) (n sizet) (direction fft-direction)) :definition :generic :element-types :complex :inputs (vector) @@ -40,7 +40,7 @@ (defmfun fourier-transform-dif-radix2 ((vector vector) direction &key (stride 1) (n (expt 2 (floor (log (size vector) 2))))) ("gsl_fft" :type "_radix2_dif_transform") - (((foreign-pointer vector) :pointer) (stride sizet) (n sizet) (direction fft-direction)) + (((grid:foreign-pointer vector) :pointer) (stride sizet) (n sizet) (direction fft-direction)) :definition :generic :element-types :complex :inputs (vector) diff --git a/fast-fourier-transforms/unpack.lisp b/fast-fourier-transforms/unpack.lisp index 228b4679..da474a8a 100644 --- a/fast-fourier-transforms/unpack.lisp +++ b/fast-fourier-transforms/unpack.lisp @@ -1,8 +1,8 @@ ;; Unpack functions for FFT vectors. ;; Sumant Oemrawsingh, Sun Oct 25 2009 - 16:35 -;; Time-stamp: <2010-06-29 22:12:06EDT unpack.lisp> +;; Time-stamp: <2011-01-10 17:59:24EST unpack.lisp> ;; -;; Copyright 2009 Sumant Oemrawsingh, Liam M. Healy +;; Copyright 2009, 2011 Sumant Oemrawsingh, Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -34,8 +34,8 @@ t (grid:make-foreign-array '(complex double-float) :dimensions (size vector))))) ("gsl_fft_real" :type "_unpack") - (((foreign-pointer vector) :pointer) - ((foreign-pointer output) :pointer) + (((grid:foreign-pointer vector) :pointer) + ((grid:foreign-pointer output) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :float @@ -58,8 +58,8 @@ t (grid:make-foreign-array '(complex double-float) :dimensions (size vector))))) ("gsl_fft_halfcomplex" :type "_radix2_unpack") - (((foreign-pointer vector) :pointer) - ((foreign-pointer output) :pointer) + (((grid:foreign-pointer vector) :pointer) + ((grid:foreign-pointer output) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :float @@ -81,8 +81,8 @@ t (grid:make-foreign-array '(complex double-float) :dimensions (size vector))))) ("gsl_fft_halfcomplex" :type "_unpack") - (((foreign-pointer vector) :pointer) - ((foreign-pointer output) :pointer) + (((grid:foreign-pointer vector) :pointer) + ((grid:foreign-pointer output) :pointer) (stride sizet) ((floor (size vector) stride) sizet)) :definition :generic :element-types :float diff --git a/hankel.lisp b/hankel.lisp index dbf4bb3c..42259c1e 100644 --- a/hankel.lisp +++ b/hankel.lisp @@ -1,8 +1,8 @@ ;; Discrete Hankel Transforms. ;; Liam Healy, Sat Dec 8 2007 - 16:50 -;; Time-stamp: <2010-07-07 14:19:28EDT hankel.lisp> +;; Time-stamp: <2011-01-10 17:59:25EST hankel.lisp> ;; -;; Copyright 2007, 2008, 2009 Liam M. Healy +;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -41,8 +41,8 @@ &optional (array-out (grid:make-foreign-array 'double-float :dimensions (dimensions array-in)))) "gsl_dht_apply" - (((mpointer hankel) :pointer) ((foreign-pointer array-in) :pointer) - ((foreign-pointer array-out) :pointer)) + (((mpointer hankel) :pointer) ((grid:foreign-pointer array-in) :pointer) + ((grid:foreign-pointer array-out) :pointer)) :inputs (array-in) :outputs (array-out) :return (array-out) diff --git a/histogram/histogram.lisp b/histogram/histogram.lisp index f657f25a..0ef039ef 100644 --- a/histogram/histogram.lisp +++ b/histogram/histogram.lisp @@ -1,8 +1,8 @@ ;; The histogram structure ;; Liam Healy, Mon Jan 1 2007 - 11:32 -;; Time-stamp: <2010-11-13 19:24:22EST histogram.lisp> +;; Time-stamp: <2011-01-10 17:59:25EST histogram.lisp> ;; -;; Copyright 2007, 2008, 2009, 2010 Liam M. Healy +;; Copyright 2007, 2008, 2009, 2010, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -30,7 +30,7 @@ ((number-of-bins sizet)) "one-dimensional histogram, including bin boundaries and bin contents" :initialize-suffix "set_ranges" - :initialize-args (((foreign-pointer ranges) :pointer) ((dim0 ranges) sizet))) + :initialize-args (((grid:foreign-pointer ranges) :pointer) ((dim0 ranges) sizet))) (defmobject histogram2d "gsl_histogram2d" @@ -38,8 +38,8 @@ "two-dimensional histogram, including bin boundaries and bin contents." :initialize-suffix "set_ranges" :initialize-args - (((foreign-pointer x-ranges) :pointer) ((dim0 x-ranges) sizet) - ((foreign-pointer y-ranges) :pointer) ((dim0 y-ranges) sizet))) + (((grid:foreign-pointer x-ranges) :pointer) ((dim0 x-ranges) sizet) + ((grid:foreign-pointer y-ranges) :pointer) ((dim0 y-ranges) sizet))) ;;; GSL documentation does not state what the return value for the ;;; C function for reinitialization means; assumed to be error code. diff --git a/init/init.lisp b/init/init.lisp index 1c860ace..ad13c9cc 100644 --- a/init/init.lisp +++ b/init/init.lisp @@ -1,6 +1,6 @@ ;; Load GSL ;; Liam Healy Sat Mar 4 2006 - 18:53 -;; Time-stamp: <2011-01-01 16:14:55EST init.lisp> +;; Time-stamp: <2011-01-10 17:47:50EST init.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License @@ -26,7 +26,7 @@ #:cl-array #:dimensions #:element-type #:foreign-array #:matrix #:dim0 #:dim1 #:^ #:copy) - (:shadowing-import-from :grid #:foreign-pointer) + ;;(:shadowing-import-from :grid #:foreign-pointer) (:export #:cl-array #:dimensions #:element-type #:dim0 #:dim1 #:copy)) diff --git a/interpolation/evaluation.lisp b/interpolation/evaluation.lisp index 0c7c6c0c..1546943b 100644 --- a/interpolation/evaluation.lisp +++ b/interpolation/evaluation.lisp @@ -1,8 +1,8 @@ ;; Evaluation of interpolation functions. ;; Liam Healy Sun Nov 4 2007 - 18:40 -;; Time-stamp: <2010-06-27 18:13:56EDT evaluation.lisp> +;; Time-stamp: <2011-01-10 17:59:26EST evaluation.lisp> ;; -;; Copyright 2007, 2008, 2009 Liam M. Healy +;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -27,8 +27,8 @@ &key xa ya (acceleration (make-acceleration))) "gsl_interp_eval" (((mpointer interpolation) :pointer) - ((foreign-pointer xa) :pointer) - ((foreign-pointer ya) :pointer) + ((grid:foreign-pointer xa) :pointer) + ((grid:foreign-pointer ya) :pointer) (x :double) ((mpointer acceleration) :pointer)) :definition :method @@ -51,8 +51,8 @@ &key xa ya (acceleration (make-acceleration))) "gsl_interp_eval_deriv" (((mpointer interpolation) :pointer) - ((foreign-pointer xa) :pointer) - ((foreign-pointer ya) :pointer) + ((grid:foreign-pointer xa) :pointer) + ((grid:foreign-pointer ya) :pointer) (x :double) ((mpointer acceleration) :pointer)) :definition :method @@ -70,8 +70,8 @@ ((interpolation interpolation) x &key xa ya (acceleration (make-acceleration))) "gsl_interp_eval_deriv2" (((mpointer interpolation) :pointer) - ((foreign-pointer xa) :pointer) - ((foreign-pointer ya) :pointer) + ((grid:foreign-pointer xa) :pointer) + ((grid:foreign-pointer ya) :pointer) (x :double) ((mpointer acceleration) :pointer)) :definition :method @@ -90,8 +90,8 @@ &key xa ya (acceleration (make-acceleration))) "gsl_interp_eval_integ" (((mpointer interpolation) :pointer) - ((foreign-pointer xa) :pointer) - ((foreign-pointer ya) :pointer) + ((grid:foreign-pointer xa) :pointer) + ((grid:foreign-pointer ya) :pointer) (low :double) (high :double) ((mpointer acceleration) :pointer)) :definition :method :inputs (xa ya) diff --git a/interpolation/interpolation.lisp b/interpolation/interpolation.lisp index f7845f4f..dd5a83fe 100644 --- a/interpolation/interpolation.lisp +++ b/interpolation/interpolation.lisp @@ -1,8 +1,8 @@ ;; Interpolation allocation, initialization, and freeing. ;; Liam Healy, Sun Nov 4 2007 - 17:24 -;; Time-stamp: <2010-06-27 18:13:56EDT interpolation.lisp> +;; Time-stamp: <2011-01-10 17:59:26EST interpolation.lisp> ;; -;; Copyright 2007, 2008, 2009 Liam M. Healy +;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -37,7 +37,7 @@ strictly ordered; the behavior for other arrangements is not defined." :initialize-suffix "init" :initialize-args - (((foreign-pointer xa) :pointer) ((foreign-pointer ya) :pointer) ((dim0 xa) sizet)) + (((grid:foreign-pointer xa) :pointer) ((grid:foreign-pointer ya) :pointer) ((dim0 xa) sizet)) :arglists-function (lambda (set) `((type &optional xa-or-size (ya nil ,set)) @@ -51,7 +51,7 @@ "Make an interpolation object of type for size data-points." :initialize-suffix "init" :initialize-args - (((foreign-pointer xa) :pointer) ((foreign-pointer ya) :pointer) ((dim0 xa) sizet)) + (((grid:foreign-pointer xa) :pointer) ((grid:foreign-pointer ya) :pointer) ((dim0 xa) sizet)) :inputs (xa ya) :arglists-function (lambda (set) diff --git a/linear-algebra/blas1.lisp b/linear-algebra/blas1.lisp index 401def27..ed8b70fe 100644 --- a/linear-algebra/blas1.lisp +++ b/linear-algebra/blas1.lisp @@ -1,8 +1,8 @@ ;; BLAS level 1, Vector operations ;; Liam Healy, Wed Apr 26 2006 - 15:23 -;; Time-stamp: <2010-07-07 14:25:01EDT blas1.lisp> +;; Time-stamp: <2011-01-10 17:59:27EST blas1.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -153,8 +153,8 @@ (defmfun givens-rotation ((x vector) (y vector) (c vector) (s vector)) ("gsl_blas_" :type "rotg") - (((foreign-pointer x) :pointer) ((foreign-pointer y) :pointer) - ((foreign-pointer c) :pointer) ((foreign-pointer s) :pointer)) + (((grid:foreign-pointer x) :pointer) ((grid:foreign-pointer y) :pointer) + ((grid:foreign-pointer c) :pointer) ((grid:foreign-pointer s) :pointer)) :definition :generic :element-types :float :inputs (x y c s) @@ -182,9 +182,9 @@ (defmfun modified-givens-rotation ((d1 vector) (d2 vector) (b1 vector) b2 (P vector)) ("gsl_blas_" :type "rotmg") - (((foreign-pointer d1) :pointer) ((foreign-pointer d2) :pointer) - ((foreign-pointer b1) :pointer) (b2 :element-c-type) - ((foreign-pointer P) :pointer)) + (((grid:foreign-pointer d1) :pointer) ((grid:foreign-pointer d2) :pointer) + ((grid:foreign-pointer b1) :pointer) (b2 :element-c-type) + ((grid:foreign-pointer P) :pointer)) :definition :generic :element-types :float :inputs (d1 d2 b1 P) diff --git a/ordinary-differential-equations/evolution.lisp b/ordinary-differential-equations/evolution.lisp index eff0e004..37117ff3 100644 --- a/ordinary-differential-equations/evolution.lisp +++ b/ordinary-differential-equations/evolution.lisp @@ -1,8 +1,8 @@ ;; Evolution functions for ODE integration. ;; Liam Healy, Sun Sep 30 2007 - 14:31 -;; Time-stamp: <2010-06-27 18:13:51EDT evolution.lisp> +;; Time-stamp: <2011-01-10 17:59:27EST evolution.lisp> ;; -;; Copyright 2007, 2008, 2009 Liam M. Healy +;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -32,9 +32,9 @@ "gsl_odeiv_evolve_apply" (((mpointer evolution) :pointer) ((mpointer control) :pointer) ((mpointer stepper) :pointer) - ((callback-struct stepper) :pointer) ((foreign-pointer time) :pointer) + ((callback-struct stepper) :pointer) ((grid:foreign-pointer time) :pointer) (max-time :double) - ((foreign-pointer step-size) :pointer) ((foreign-pointer y) :pointer)) + ((grid:foreign-pointer step-size) :pointer) ((grid:foreign-pointer y) :pointer)) :inputs (time step-size y) :outputs (time step-size y) :callback-object ((stepper ode-stepper)) diff --git a/ordinary-differential-equations/stepping.lisp b/ordinary-differential-equations/stepping.lisp index b1deaa20..6efc6754 100644 --- a/ordinary-differential-equations/stepping.lisp +++ b/ordinary-differential-equations/stepping.lisp @@ -1,8 +1,8 @@ ;; Stepping functions for ODE systems. ;; Liam Healy, Mon Sep 24 2007 - 21:33 -;; Time-stamp: <2010-06-27 18:13:51EDT stepping.lisp> +;; Time-stamp: <2011-01-10 17:59:27EST stepping.lisp> ;; -;; Copyright 2007, 2008, 2009 Liam M. Healy +;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -106,10 +106,10 @@ values): (((mpointer stepper) :pointer) (time :double) (step-size :double) - ((foreign-pointer y) :pointer) - ((foreign-pointer yerr) :pointer) - ((foreign-pointer dydt-in) :pointer) - ((foreign-pointer dydt-out) :pointer) + ((grid:foreign-pointer y) :pointer) + ((grid:foreign-pointer yerr) :pointer) + ((grid:foreign-pointer dydt-in) :pointer) + ((grid:foreign-pointer dydt-out) :pointer) ((callback-struct stepper) :pointer)) :documentation ; FDL "Apply the stepping function stepper to the system of equations diff --git a/polynomial.lisp b/polynomial.lisp index 84c904a1..81065dd9 100644 --- a/polynomial.lisp +++ b/polynomial.lisp @@ -1,6 +1,6 @@ ;; Polynomials ;; Liam Healy, Tue Mar 21 2006 - 18:33 -;; Time-stamp: <2011-01-10 10:29:48EST polynomial.lisp> +;; Time-stamp: <2011-01-10 17:47:56EST polynomial.lisp> ;; ;; Copyright 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License @@ -29,10 +29,10 @@ (defmfun evaluate ((coefficients grid:vector-double-float) (x float) &key divided-difference) ("gsl_poly_eval" "gsl_poly_dd_eval") - ((((foreign-pointer coefficients) :pointer) ((dim0 coefficients) sizet) + ((((grid:foreign-pointer coefficients) :pointer) ((dim0 coefficients) sizet) (x :double)) - (((foreign-pointer divided-difference) :pointer) - ((foreign-pointer coefficients) :pointer) + (((grid:foreign-pointer divided-difference) :pointer) + ((grid:foreign-pointer coefficients) :pointer) ((dim0 coefficients) sizet) (x :double))) :definition :method @@ -46,7 +46,7 @@ ((coefficients grid:vector-double-float) (x complex) &key) "gsl_poly_complex_eval" - (((foreign-pointer coefficients) :pointer) ((dim0 coefficients) sizet) + (((grid:foreign-pointer coefficients) :pointer) ((dim0 coefficients) sizet) (x grid:complex-double-c)) :definition :method :gsl-version (1 11) @@ -60,7 +60,7 @@ ((coefficients grid:vector-complex-double-float) (x complex) &key) "gsl_complex_poly_complex_eval" - (((foreign-pointer coefficients) :pointer) ((dim0 coefficients) sizet) + (((grid:foreign-pointer coefficients) :pointer) ((dim0 coefficients) sizet) (x grid:complex-double-c)) :definition :method :gsl-version (1 11) @@ -76,8 +76,8 @@ (defmfun divided-difference (xa ya &optional (dd (grid:make-foreign-array 'double-float :dimensions (dim0 xa)))) "gsl_poly_dd_init" - (((foreign-pointer dd) :pointer) - ((foreign-pointer xa) :pointer) ((foreign-pointer ya) :pointer) + (((grid:foreign-pointer dd) :pointer) + ((grid:foreign-pointer xa) :pointer) ((grid:foreign-pointer ya) :pointer) ((dim0 xa) sizet)) :inputs (xa ya) :outputs (dd) @@ -95,12 +95,12 @@ (coefficients (grid:make-foreign-array 'double-float :dimensions (dim0 xa))) (workspace (grid:make-foreign-array 'double-float :dimensions (dim0 xa)))) "gsl_poly_dd_taylor" - (((foreign-pointer coefficients) :pointer) + (((grid:foreign-pointer coefficients) :pointer) (xp :double) - ((foreign-pointer dd) :pointer) - ((foreign-pointer xa) :pointer) + ((grid:foreign-pointer dd) :pointer) + ((grid:foreign-pointer xa) :pointer) ((dim0 xa) sizet) - ((foreign-pointer workspace) :pointer)) + ((grid:foreign-pointer workspace) :pointer)) :inputs (dd xa) :outputs (coefficients) :documentation ; FDL @@ -177,8 +177,8 @@ :dimensions (1- (size coefficients)))) (workspace (make-polynomial-complex-workspace (size coefficients)))) "gsl_poly_complex_solve" - (((foreign-pointer coefficients) :pointer) ((dim0 coefficients) sizet) - ((mpointer workspace) :pointer) ((foreign-pointer answer) :pointer)) + (((grid:foreign-pointer coefficients) :pointer) ((dim0 coefficients) sizet) + ((mpointer workspace) :pointer) ((grid:foreign-pointer answer) :pointer)) :inputs (coefficients) :outputs (answer) :return (answer) diff --git a/random/dirichlet.lisp b/random/dirichlet.lisp index 4d0f7f6a..b86e5ac2 100644 --- a/random/dirichlet.lisp +++ b/random/dirichlet.lisp @@ -1,8 +1,8 @@ ;; Dirichlet distribution ;; Liam Healy, Sun Oct 29 2006 -;; Time-stamp: <2010-07-07 14:24:59EDT dirichlet.lisp> +;; Time-stamp: <2011-01-10 17:59:28EST dirichlet.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -28,9 +28,9 @@ "gsl_ran_dirichlet" (((mpointer generator) :pointer) ((dim0 alpha) sizet) - ((foreign-pointer alpha) :pointer) + ((grid:foreign-pointer alpha) :pointer) ;; theta had better be at least as long as alpha, or they'll be trouble - ((foreign-pointer theta) :pointer)) + ((grid:foreign-pointer theta) :pointer)) :definition :method :inputs (alpha) :outputs (theta) @@ -55,9 +55,9 @@ (defmfun dirichlet-pdf (alpha theta) "gsl_ran_dirichlet_pdf" (((1- (dim0 alpha)) sizet) - ((foreign-pointer alpha) :pointer) + ((grid:foreign-pointer alpha) :pointer) ;; theta had better be at least as long as alpha, or they'll be trouble - ((foreign-pointer theta) :pointer)) + ((grid:foreign-pointer theta) :pointer)) :inputs (alpha theta) :c-return :double :documentation ; FDL @@ -68,9 +68,9 @@ (defmfun dirichlet-log-pdf (alpha theta) "gsl_ran_dirichlet_lnpdf" (((1- (dim0 alpha)) sizet) - ((foreign-pointer alpha) :pointer) + ((grid:foreign-pointer alpha) :pointer) ;; theta had better be at least as long as alpha, or they'll be trouble - ((foreign-pointer theta) :pointer)) + ((grid:foreign-pointer theta) :pointer)) :inputs (alpha theta) :c-return :double :documentation ; FDL diff --git a/random/discrete.lisp b/random/discrete.lisp index 0d8b0501..b88a5506 100644 --- a/random/discrete.lisp +++ b/random/discrete.lisp @@ -1,8 +1,8 @@ ;; Discrete random variables ;; Liam Healy, Sat Nov 11 2006 - 21:51 -;; Time-stamp: <2010-06-27 18:14:53EDT discrete.lisp> +;; Time-stamp: <2011-01-10 17:59:28EST discrete.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -23,7 +23,7 @@ ;;; /usr/include/gsl/gsl_randist.h (defmobject discrete-random "gsl_ran_discrete" - (((dim0 probabilities) sizet) ((foreign-pointer probabilities) :pointer)) + (((dim0 probabilities) sizet) ((grid:foreign-pointer probabilities) :pointer)) "lookup table for the discrete random number generator" :allocator "gsl_ran_discrete_preproc" :allocate-inputs (probabilities) diff --git a/random/multinomial.lisp b/random/multinomial.lisp index 6d492edd..adb12dbd 100644 --- a/random/multinomial.lisp +++ b/random/multinomial.lisp @@ -1,8 +1,8 @@ ;; Multinomial distribution ;; Liam Healy, Sat Nov 25 2006 - 16:00 -;; Time-stamp: <2010-07-07 14:24:58EDT multinomial.lisp> +;; Time-stamp: <2011-01-10 17:59:29EST multinomial.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -31,9 +31,9 @@ (((mpointer generator) :pointer) ((dim0 probabilities) sizet) (sum sizet) - ((foreign-pointer probabilities) :pointer) + ((grid:foreign-pointer probabilities) :pointer) ;; technically, n should be a uint array, but integers work - ((foreign-pointer n) :pointer)) + ((grid:foreign-pointer n) :pointer)) :definition :method :inputs (p) :outputs (n) @@ -56,7 +56,7 @@ (defmfun multinomial-pdf (p n) "gsl_ran_multinomial_pdf" - (((dim0 p) sizet) ((foreign-pointer p) :pointer) ((foreign-pointer n) :pointer)) + (((dim0 p) sizet) ((grid:foreign-pointer p) :pointer) ((grid:foreign-pointer n) :pointer)) :inputs (p n) :c-return :double :documentation ; FDL @@ -66,7 +66,7 @@ (defmfun multinomial-log-pdf (p n) "gsl_ran_multinomial_lnpdf" - (((dim0 p) sizet) ((foreign-pointer p) :pointer) ((foreign-pointer n) :pointer)) + (((dim0 p) sizet) ((grid:foreign-pointer p) :pointer) ((grid:foreign-pointer n) :pointer)) :inputs (p n) :c-return :double :documentation ; FDL diff --git a/random/quasi.lisp b/random/quasi.lisp index 605de960..50059e6e 100644 --- a/random/quasi.lisp +++ b/random/quasi.lisp @@ -1,8 +1,8 @@ ;; Quasi-random sequences in arbitrary dimensions. ;; Liam Healy, Sun Jul 16 2006 - 15:54 -;; Time-stamp: <2010-07-16 17:10:54EDT quasi.lisp> +;; Time-stamp: <2011-01-10 17:59:29EST quasi.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -36,7 +36,7 @@ (defmfun qrng-get (generator return-vector) "gsl_qrng_get" - (((mpointer generator) :pointer) ((foreign-pointer return-vector) :pointer)) + (((mpointer generator) :pointer) ((grid:foreign-pointer return-vector) :pointer)) :outputs (return-vector) :return (return-vector) :documentation ; FDL diff --git a/random/shuffling-sampling.lisp b/random/shuffling-sampling.lisp index 3e117194..b41d2733 100644 --- a/random/shuffling-sampling.lisp +++ b/random/shuffling-sampling.lisp @@ -1,8 +1,8 @@ ;; Shuffling and sampling ;; Liam Healy, Sat Dec 2 2006 - 18:40 -;; Time-stamp: <2010-07-07 14:24:58EDT shuffling-sampling.lisp> +;; Time-stamp: <2011-01-10 17:59:29EST shuffling-sampling.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -27,7 +27,7 @@ &key base) "gsl_ran_shuffle" (((mpointer generator) :pointer) - ((foreign-pointer base) :pointer) ((dim0 base) sizet) ((grid:element-size base) sizet)) + ((grid:foreign-pointer base) :pointer) ((dim0 base) sizet) ((grid:element-size base) sizet)) :definition :method :inputs (base) :outputs (base) @@ -50,8 +50,8 @@ dest))) "gsl_ran_choose" (((mpointer generator) :pointer) - ((foreign-pointer destarr) :pointer) ((dim0 destarr) sizet) - ((foreign-pointer src) :pointer) ((dim0 src) sizet) ((grid:element-size src) sizet)) + ((grid:foreign-pointer destarr) :pointer) ((dim0 destarr) sizet) + ((grid:foreign-pointer src) :pointer) ((dim0 src) sizet) ((grid:element-size src) sizet)) :definition :method :inputs (src) :outputs (destarr) @@ -78,8 +78,8 @@ dest))) "gsl_ran_sample" (((mpointer generator) :pointer) - ((foreign-pointer destarr) :pointer) ((dim0 destarr) sizet) - ((foreign-pointer src) :pointer) ((dim0 src) sizet) ((grid:element-size src) sizet)) + ((grid:foreign-pointer destarr) :pointer) ((dim0 destarr) sizet) + ((grid:foreign-pointer src) :pointer) ((dim0 src) sizet) ((grid:element-size src) sizet)) :definition :method :inputs (src) :outputs (destarr) diff --git a/random/spherical-vector.lisp b/random/spherical-vector.lisp index 70f70667..f8bd795c 100644 --- a/random/spherical-vector.lisp +++ b/random/spherical-vector.lisp @@ -1,8 +1,8 @@ ;; Spherical Vector distribution ;; Liam Healy, Sun Oct 22 2006 -;; Time-stamp: <2010-06-27 18:13:44EDT spherical-vector.lisp> +;; Time-stamp: <2011-01-10 17:59:30EST spherical-vector.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -68,7 +68,7 @@ ((generator random-number-generator) (type (eql :direction-Nd)) &key vector) "gsl_ran_dir_nd" (((mpointer generator) :pointer) ((dim0 vector) sizet) - ((foreign-pointer vector) :pointer)) + ((grid:foreign-pointer vector) :pointer)) :definition :method :c-return :void :outputs (vector) diff --git a/series-acceleration.lisp b/series-acceleration.lisp index 9497539c..c4721c47 100644 --- a/series-acceleration.lisp +++ b/series-acceleration.lisp @@ -1,8 +1,8 @@ ;; Series acceleration. ;; Liam Healy, Wed Nov 21 2007 - 18:41 -;; Time-stamp: <2010-08-07 21:41:14EDT series-acceleration.lisp> +;; Time-stamp: <2011-01-10 17:59:30EST series-acceleration.lisp> ;; -;; Copyright 2007, 2008, 2009 Liam M. Healy +;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -38,7 +38,7 @@ (defmfun accelerate (array levin) "gsl_sum_levin_u_accel" - (((foreign-pointer array) :pointer) ((dim0 array) sizet) ((mpointer levin) :pointer) + (((grid:foreign-pointer array) :pointer) ((dim0 array) sizet) ((mpointer levin) :pointer) (accelerated-sum (:pointer :double)) (abserr (:pointer :double))) :inputs (array) :documentation ; FDL @@ -66,7 +66,7 @@ (defmfun accelerate-truncated (array levin) "gsl_sum_levin_utrunc_accel" - (((foreign-pointer array) :pointer) ((dim0 array) sizet) ((mpointer levin) :pointer) + (((grid:foreign-pointer array) :pointer) ((dim0 array) sizet) ((mpointer levin) :pointer) (accelerated-sum (:pointer :double)) (abserr (:pointer :double))) :inputs (array) :documentation ; FDL diff --git a/solve-minimize-fit/linear-least-squares.lisp b/solve-minimize-fit/linear-least-squares.lisp index c24a7857..2fbfc681 100644 --- a/solve-minimize-fit/linear-least-squares.lisp +++ b/solve-minimize-fit/linear-least-squares.lisp @@ -1,8 +1,8 @@ ;; Linear least squares, or linear regression ;; Liam Healy <2008-01-21 12:41:46EST linear-least-squares.lisp> -;; Time-stamp: <2010-06-30 19:57:28EDT linear-least-squares.lisp> +;; Time-stamp: <2011-01-10 17:59:31EST linear-least-squares.lisp> ;; -;; Copyright 2008, 2009 Liam M. Healy +;; Copyright 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -36,15 +36,15 @@ (defmfun linear-fit (x y &optional weight (x-stride 1) (y-stride 1) (weight-stride 1)) ("gsl_fit_linear" "gsl_fit_wlinear") - ((((foreign-pointer x) :pointer) (x-stride sizet) - ((foreign-pointer y) :pointer) (y-stride sizet) + ((((grid:foreign-pointer x) :pointer) (x-stride sizet) + ((grid:foreign-pointer y) :pointer) (y-stride sizet) ((dim0 x) sizet) (c0 (:pointer :double)) (c1 (:pointer :double)) (cov00 (:pointer :double)) (cov01 (:pointer :double)) (cov11 (:pointer :double)) (sumsq (:pointer :double))) - (((foreign-pointer x) :pointer) (x-stride sizet) - ((foreign-pointer weight) :pointer) (weight-stride sizet) - ((foreign-pointer y) :pointer) (y-stride sizet) + (((grid:foreign-pointer x) :pointer) (x-stride sizet) + ((grid:foreign-pointer weight) :pointer) (weight-stride sizet) + ((grid:foreign-pointer y) :pointer) (y-stride sizet) ((dim0 x) sizet) (c0 (:pointer :double)) (c1 (:pointer :double)) (cov00 (:pointer :double)) (cov01 (:pointer :double)) @@ -85,14 +85,14 @@ (defmfun multiplier-fit (x y &optional weight (x-stride 1) (y-stride 1) (weight-stride 1)) ("gsl_fit_mul" "gsl_fit_wmul") - ((((foreign-pointer x) :pointer) (x-stride sizet) - ((foreign-pointer y) :pointer) (y-stride sizet) + ((((grid:foreign-pointer x) :pointer) (x-stride sizet) + ((grid:foreign-pointer y) :pointer) (y-stride sizet) ((dim0 x) sizet) (c1 (:pointer :double)) (cov11 (:pointer :double)) (sumsq (:pointer :double))) - (((foreign-pointer x) :pointer) (x-stride sizet) - ((foreign-pointer weight) :pointer) (weight-stride sizet) - ((foreign-pointer y) :pointer) (y-stride sizet) + (((grid:foreign-pointer x) :pointer) (x-stride sizet) + ((grid:foreign-pointer weight) :pointer) (weight-stride sizet) + ((grid:foreign-pointer y) :pointer) (y-stride sizet) ((dim0 x) sizet) (c1 (:pointer :double)) (cov11 (:pointer :double)) (sumsq (:pointer :double)))) diff --git a/sorting.lisp b/sorting.lisp index 8b196bb6..437cdb0b 100644 --- a/sorting.lisp +++ b/sorting.lisp @@ -1,8 +1,8 @@ ;; Sorting ;; Liam Healy, Fri Apr 14 2006 - 20:20 -;; Time-stamp: <2010-07-07 14:24:54EDT sorting.lisp> +;; Time-stamp: <2011-01-10 17:59:31EST sorting.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -75,7 +75,7 @@ (defmfun msort ((v both)) ("gsl_sort" :type) - (((foreign-pointer v) :pointer) (1 sizet) ((size v) sizet)) + (((grid:foreign-pointer v) :pointer) (1 sizet) ((size v) sizet)) :definition :generic :element-types :no-complex :c-return :void @@ -99,7 +99,7 @@ (defmfun sort-index ((permutation permutation) (vector vector)) ("gsl_sort" :type "_index") (((mpointer permutation) :pointer) - ((foreign-pointer vector) :pointer) + ((grid:foreign-pointer vector) :pointer) (1 sizet) ((dim0 vector) sizet)) :definition :generic :element-types :no-complex @@ -138,7 +138,7 @@ (defmfun sort-vector-smallest (dest (v vector)) ("gsl_sort_vector" :type "_smallest") - (((foreign-pointer dest) :pointer) ((dim0 dest) sizet) + (((grid:foreign-pointer dest) :pointer) ((dim0 dest) sizet) ((mpointer v) :pointer)) :definition :generic :element-types :no-complex @@ -151,8 +151,8 @@ (defmfun sort-smallest (dest (v both)) ("gsl_sort" :type "_smallest") - (((foreign-pointer dest) :pointer) ((size dest) sizet) - ((foreign-pointer v) :pointer) + (((grid:foreign-pointer dest) :pointer) ((size dest) sizet) + ((grid:foreign-pointer v) :pointer) (1 sizet) ; stride, set to 1 for now ((size v) sizet)) :definition :generic @@ -166,7 +166,7 @@ (defmfun sort-vector-smallest-index (combination (v vector)) ("gsl_sort_vector" :type "_smallest_index") - (((foreign-pointer combination) :pointer) ((size combination) sizet) + (((grid:foreign-pointer combination) :pointer) ((size combination) sizet) ((mpointer v) :pointer) (1 sizet) ; stride, set to 1 for now ((first (dimensions combination)) sizet)) @@ -184,8 +184,8 @@ (defmfun sort-smallest-index (combination (v vector)) ("gsl_sort" :type "_smallest_index") - (((foreign-pointer combination) :pointer) ((size combination) sizet) - ((foreign-pointer v) :pointer) + (((grid:foreign-pointer combination) :pointer) ((size combination) sizet) + ((grid:foreign-pointer v) :pointer) (1 sizet) ; stride, set to 1 for now ((first (dimensions combination)) sizet)) :definition :generic @@ -202,7 +202,7 @@ (defmfun sort-vector-largest (dest (v vector)) ("gsl_sort_vector" :type "_largest") - (((foreign-pointer dest) :pointer) ((dim0 dest) sizet) + (((grid:foreign-pointer dest) :pointer) ((dim0 dest) sizet) ((mpointer v) :pointer)) :definition :generic :element-types :no-complex @@ -215,8 +215,8 @@ (defmfun sort-largest (dest (v both)) ("gsl_sort" :type "_largest") - (((foreign-pointer dest) :pointer) ((size dest) sizet) - ((foreign-pointer v) :pointer) + (((grid:foreign-pointer dest) :pointer) ((size dest) sizet) + ((grid:foreign-pointer v) :pointer) (1 sizet) ; stride, set to 1 for now ((size v) sizet)) :definition :generic @@ -230,7 +230,7 @@ (defmfun sort-vector-largest-index (combination (v vector)) ("gsl_sort_vector" :type "_largest_index") - (((foreign-pointer combination) :pointer) ((size combination) sizet) + (((grid:foreign-pointer combination) :pointer) ((size combination) sizet) ((mpointer v) :pointer) (1 sizet) ; stride, set to 1 for now ((first (dimensions combination)) sizet)) @@ -248,8 +248,8 @@ (defmfun sort-largest-index (combination (v vector)) ("gsl_sort" :type "_largest_index") - (((foreign-pointer combination) :pointer) ((size combination) sizet) - ((foreign-pointer v) :pointer) + (((grid:foreign-pointer combination) :pointer) ((size combination) sizet) + ((grid:foreign-pointer v) :pointer) (1 sizet) ; stride, set to 1 for now ((first (dimensions combination)) sizet)) :element-types :no-complex diff --git a/special-functions/bessel.lisp b/special-functions/bessel.lisp index da4735fb..d68eed81 100644 --- a/special-functions/bessel.lisp +++ b/special-functions/bessel.lisp @@ -1,8 +1,8 @@ ;; Bessel functions ;; Liam Healy, Fri Mar 17 2006 - 18:42 -;; Time-stamp: <2010-07-07 14:24:57EDT bessel.lisp> +;; Time-stamp: <2011-01-10 17:59:32EST bessel.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -49,7 +49,7 @@ &aux (array (vdf size-or-array))) "gsl_sf_bessel_Jn_array" ((nmin :int) ((+ nmin (dim0 array) -1) :int) (x :double) - ((foreign-pointer array) :pointer)) + ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "The values of the regular cylindrical Bessel functions J_n(x) @@ -65,7 +65,7 @@ (defmfun cylindrical-bessel-J-array-x (nu v &optional (mode :double)) "gsl_sf_bessel_sequence_Jnu_e" - ((nu :double) (mode sf-mode) ((dim0 v) :int) ((foreign-pointer v) :pointer)) + ((nu :double) (mode sf-mode) ((dim0 v) :int) ((grid:foreign-pointer v) :pointer)) :inputs (v) :outputs (v) :documentation ; FDL @@ -106,7 +106,7 @@ &aux (array (vdf size-or-array))) "gsl_sf_bessel_Yn_array" ((nmin :int) ((+ nmin (dim0 array) -1) :int) (x :double) - ((foreign-pointer array) :pointer)) + ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "The values of the irregular cylindrical Bessel functions @@ -150,7 +150,7 @@ &aux (array (vdf size-or-array))) "gsl_sf_bessel_In_array" ((nmin :int) ((+ nmin (dim0 array) -1) :int) (x :double) - ((foreign-pointer array) :pointer)) + ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "The values of the regular modified cylindrical Bessel functions @@ -188,7 +188,7 @@ &aux (array (vdf size-or-array))) "gsl_sf_bessel_In_scaled_array" ((nmin :int) ((+ nmin (dim0 array) -1) :int) (x :double) - ((foreign-pointer array) :pointer)) + ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL ;; Bug in original documentation? doesn't say "modified" @@ -243,7 +243,7 @@ &aux (array (vdf size-or-array))) "gsl_sf_bessel_Kn_array" ((nmin :int) ((+ nmin (dim0 array) -1) :int) (x :double) - ((foreign-pointer array) :pointer)) + ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "The values of the irregular modified cylindrical Bessel functions @@ -278,7 +278,7 @@ &aux (array (vdf size-or-array))) "gsl_sf_bessel_Kn_scaled_array" ((nmin :int) ((+ nmin (dim0 array) -1) :int) (x :double) - ((foreign-pointer array) :pointer)) + ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "The values of the scaled irregular cylindrical @@ -342,7 +342,7 @@ (x &optional (size-or-array *default-sf-array-size*) &aux (array (vdf size-or-array))) "gsl_sf_bessel_jl_array" - (((1- (dim0 array)) :int) (x :double) ((foreign-pointer array) :pointer)) + (((1- (dim0 array)) :int) (x :double) ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "The values of the regular spherical Bessel @@ -354,7 +354,7 @@ (x &optional (size-or-array *default-sf-array-size*) &aux (array (vdf size-or-array))) "gsl_sf_bessel_jl_steed_array" - (((1- (dim0 array)) :int) (x :double) ((foreign-pointer array) :pointer)) + (((1- (dim0 array)) :int) (x :double) ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "Uses Steed's method to compute the values of the regular spherical @@ -395,7 +395,7 @@ (x &optional (size-or-array *default-sf-array-size*) &aux (array (vdf size-or-array))) "gsl_sf_bessel_yl_array" - (((1- (dim0 array)) :int) (x :double) ((foreign-pointer array) :pointer)) + (((1- (dim0 array)) :int) (x :double) ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "The irregular spherical Bessel functions y_l(x) for l @@ -435,7 +435,7 @@ (x &optional (size-or-array *default-sf-array-size*) &aux (array (vdf size-or-array))) "gsl_sf_bessel_il_scaled_array" - (((1- (dim0 array)) :int) (x :double) ((foreign-pointer array) :pointer)) + (((1- (dim0 array)) :int) (x :double) ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "The values of the scaled regular modified cylindrical Bessel @@ -475,7 +475,7 @@ (x &optional (size-or-array *default-sf-array-size*) &aux (array (vdf size-or-array))) "gsl_sf_bessel_kl_scaled_array" - (((1- (dim0 array)) :int) (x :double) ((foreign-pointer array) :pointer)) + (((1- (dim0 array)) :int) (x :double) ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "The values of the scaled irregular modified spherical Bessel diff --git a/special-functions/coulomb.lisp b/special-functions/coulomb.lisp index 4601633e..11d95153 100644 --- a/special-functions/coulomb.lisp +++ b/special-functions/coulomb.lisp @@ -1,8 +1,8 @@ ;; Coulumb functions ;; Liam Healy, Sat Mar 18 2006 - 23:23 -;; Time-stamp: <2010-07-07 14:24:53EDT coulomb.lisp> +;; Time-stamp: <2011-01-10 17:59:32EST coulomb.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -70,7 +70,7 @@ &aux (fc-array (vdf size-or-array))) "gsl_sf_coulomb_wave_F_array" ((L-min :double) ((1- (dim0 fc-array)) :int) (eta :double) (x :double) - ((foreign-pointer fc-array) :pointer) (F-exponent (:pointer :double))) + ((grid:foreign-pointer fc-array) :pointer) (F-exponent (:pointer :double))) :outputs (fc-array) :return (fc-array (grid:dcref F-exponent)) :documentation ; FDL @@ -86,7 +86,7 @@ (gc-array (vdf (or gc-size-or-array (dim0 fc-array))))) "gsl_sf_coulomb_wave_FG_array" ((L-min :double) ((1- (dim0 fc-array)) :int) (eta :double) (x :double) - ((foreign-pointer fc-array) :pointer) ((foreign-pointer gc-array) :pointer) + ((grid:foreign-pointer fc-array) :pointer) ((grid:foreign-pointer gc-array) :pointer) (F-exponent (:pointer :double)) (G-exponent (:pointer :double))) :outputs (fc-array gc-array) :return (fc-array gc-array (grid:dcref F-exponent) (grid:dcref G-exponent)) @@ -108,8 +108,8 @@ (gcp-array (vdf (or gcp-size-or-array (dim0 fc-array))))) "gsl_sf_coulomb_wave_FGp_array" ((L-min :double) ((1- (dim0 fc-array)) :int) (eta :double) (x :double) - ((foreign-pointer fc-array) :pointer) ((foreign-pointer fcp-array) :pointer) - ((foreign-pointer gc-array) :pointer) ((foreign-pointer gcp-array) :pointer) + ((grid:foreign-pointer fc-array) :pointer) ((grid:foreign-pointer fcp-array) :pointer) + ((grid:foreign-pointer gc-array) :pointer) ((grid:foreign-pointer gcp-array) :pointer) (F-exponent (:pointer :double)) (G-exponent (:pointer :double))) :outputs (fc-array fcp-array gc-array gcp-array) :return @@ -128,7 +128,7 @@ &aux (fc-array (vdf size-or-array))) "gsl_sf_coulomb_wave_sphF_array" ((L-min :double) ((1- (dim0 fc-array)) :int) (eta :double) (x :double) - ((foreign-pointer fc-array) :pointer) (F-exponent (:pointer :double))) + ((grid:foreign-pointer fc-array) :pointer) (F-exponent (:pointer :double))) :outputs (fc-array) :return (fc-array (grid:dcref F-exponent)) :documentation ; FDL @@ -153,7 +153,7 @@ &aux (array (vdf size-or-array))) "gsl_sf_coulomb_CL_array" ((L-min :double) ((1- (dim0 array)) :int) (eta :double) - ((foreign-pointer array) :pointer)) + ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "The Coulomb wave function normalization constant C_L(\eta) diff --git a/special-functions/gegenbauer.lisp b/special-functions/gegenbauer.lisp index 87d83a52..53c7ed85 100644 --- a/special-functions/gegenbauer.lisp +++ b/special-functions/gegenbauer.lisp @@ -1,8 +1,8 @@ ;; Gegenbauer polynomials ;; Liam Healy, Fri Apr 28 2006 - 20:40 -;; Time-stamp: <2010-07-07 14:24:57EDT gegenbauer.lisp> +;; Time-stamp: <2011-01-10 17:59:32EST gegenbauer.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -47,7 +47,7 @@ &aux (array (vdf size-or-array))) "gsl_sf_gegenpoly_array" (((1- (dim0 array)) :int) - (lambda :double) (x :double) ((foreign-pointer array) :pointer)) + (lambda :double) (x :double) ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "Compute an array of Gegenbauer polynomials C^{(\lambda)}_n(X)} diff --git a/special-functions/legendre.lisp b/special-functions/legendre.lisp index b19a98a1..37aecf37 100644 --- a/special-functions/legendre.lisp +++ b/special-functions/legendre.lisp @@ -1,8 +1,8 @@ ;; Legendre functions ;; Liam Healy, Sat Apr 29 2006 - 19:16 -;; Time-stamp: <2010-07-07 14:24:57EDT legendre.lisp> +;; Time-stamp: <2011-01-10 17:59:33EST legendre.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -54,7 +54,7 @@ (x &optional (size-or-array *default-sf-array-size*) &aux (array (vdf size-or-array))) "gsl_sf_legendre_Pl_array" - (((1- (dim0 array)) :int) (x :double) ((foreign-pointer array) :pointer)) + (((1- (dim0 array)) :int) (x :double) ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "Compute an array of Legendre polynomials @@ -64,7 +64,7 @@ (x &optional (size-or-array *default-sf-array-size*) &aux (array (vdf size-or-array))) "gsl_sf_legendre_Pl_deriv_array" - (((1- (dim0 array)) :int) (x :double) ((foreign-pointer array) :pointer)) + (((1- (dim0 array)) :int) (x :double) ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "Compute an array of Legendre polynomials derivatives @@ -115,7 +115,7 @@ &aux (array (vdf size-or-array))) "gsl_sf_legendre_Plm_array" (((+ (dim0 array) m -1) :int) (m :int) (x :double) - ((foreign-pointer array) :pointer)) + ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "An array of Legendre polynomials @@ -129,7 +129,7 @@ (derivatives (vdf derivatives-size-or-array))) "gsl_sf_legendre_Plm_deriv_array" (((+ (dim0 values) m -1) :int) (m :int) (x :double) - ((foreign-pointer values) :pointer) ((foreign-pointer derivatives) :pointer)) + ((grid:foreign-pointer values) :pointer) ((grid:foreign-pointer derivatives) :pointer)) :outputs (values derivatives) :documentation ; FDL "An array of Legendre polynomials @@ -150,7 +150,7 @@ &aux (array (vdf size-or-array))) "gsl_sf_legendre_sphPlm_array" (((+ (dim0 array) m -1) :int) (m :int) (x :double) - ((foreign-pointer array) :pointer)) + ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "An array of normalized associated Legendre functions @@ -164,7 +164,7 @@ (derivatives (vdf derivatives-size-or-array))) "gsl_sf_legendre_sphPlm_deriv_array" (((+ (dim0 values) m -1) :int) (m :int) (x :double) - ((foreign-pointer values) :pointer) ((foreign-pointer derivatives) :pointer)) + ((grid:foreign-pointer values) :pointer) ((grid:foreign-pointer derivatives) :pointer)) :outputs (values derivatives) :documentation ; FDL "An array of normalized associated Legendre functions @@ -270,7 +270,7 @@ &aux (array (vdf size-or-array))) "gsl_sf_legendre_H3d_array" (((1- (dim0 array)) :int) (lambda :double) (eta :double) - ((foreign-pointer array) :pointer)) + ((grid:foreign-pointer array) :pointer)) :outputs (array) :documentation ; FDL "An array of radial eigenfunctions diff --git a/special-functions/mathieu.lisp b/special-functions/mathieu.lisp index 09a7bf73..0e3e454c 100644 --- a/special-functions/mathieu.lisp +++ b/special-functions/mathieu.lisp @@ -1,8 +1,8 @@ ;; Mathieu functions ;; Liam Healy 2009-02-16 16:30:59EST mathieu.lisp -;; Time-stamp: <2010-08-07 21:38:53EDT mathieu.lisp> +;; Time-stamp: <2011-01-10 17:59:33EST mathieu.lisp> ;; -;; Copyright 2009, 2010 Liam M. Healy +;; Copyright 2009, 2010, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -59,7 +59,7 @@ &aux (size (vdf-size size-or-array)) (result-array (vdf size))) "gsl_sf_mathieu_a_array" ((minimum-order :int) ((+ minimum-order size -1) :int) (q :double) - ((mpointer workspace) :pointer) ((foreign-pointer result-array) :pointer)) + ((mpointer workspace) :pointer) ((grid:foreign-pointer result-array) :pointer)) :gsl-version (1 9) :outputs (result-array) :return (result-array) @@ -78,7 +78,7 @@ &aux (size (vdf-size size-or-array)) (result-array (vdf size))) "gsl_sf_mathieu_b_array" ((minimum-order :int) ((+ minimum-order size -1) :int) (q :double) - ((mpointer workspace) :pointer) ((foreign-pointer result-array) :pointer)) + ((mpointer workspace) :pointer) ((grid:foreign-pointer result-array) :pointer)) :gsl-version (1 9) :outputs (result-array) :return (result-array) @@ -116,7 +116,7 @@ "gsl_sf_mathieu_ce_array" ((minimum-order :int) ((+ minimum-order size -1) :int) (q :double) (x :double) - ((mpointer workspace) :pointer) ((foreign-pointer result-array) :pointer)) + ((mpointer workspace) :pointer) ((grid:foreign-pointer result-array) :pointer)) :gsl-version (1 9) :outputs (result-array) :return (result-array) @@ -136,7 +136,7 @@ "gsl_sf_mathieu_se_array" ((minimum-order :int) ((+ minimum-order size -1) :int) (q :double) (x :double) - ((mpointer workspace) :pointer) ((foreign-pointer result-array) :pointer)) + ((mpointer workspace) :pointer) ((grid:foreign-pointer result-array) :pointer)) :gsl-version (1 9) :outputs (result-array) :return (result-array) @@ -182,7 +182,7 @@ "gsl_sf_mathieu_Mc_array" ((j :int) (minimum-order :int) ((+ minimum-order size) :int) (q :double) (x :double) - ((mpointer workspace) :pointer) ((foreign-pointer result-array) :pointer)) + ((mpointer workspace) :pointer) ((grid:foreign-pointer result-array) :pointer)) :gsl-version (1 9) :outputs (result-array) :return (result-array) @@ -202,7 +202,7 @@ "gsl_sf_mathieu_Ms_array" ((j :int) (minimum-order :int) ((+ minimum-order size) :int) (q :double) (x :double) - ((mpointer workspace) :pointer) ((foreign-pointer result-array) :pointer)) + ((mpointer workspace) :pointer) ((grid:foreign-pointer result-array) :pointer)) :gsl-version (1 9) :outputs (result-array) :return (result-array) diff --git a/statistics/absolute-deviation.lisp b/statistics/absolute-deviation.lisp index 64f598de..01381c34 100644 --- a/statistics/absolute-deviation.lisp +++ b/statistics/absolute-deviation.lisp @@ -1,8 +1,8 @@ ;; Absolute deviation ;; Liam Healy, Sun Dec 31 2006 - 13:19 -;; Time-stamp: <2010-06-27 18:14:02EDT absolute-deviation.lisp> +;; Time-stamp: <2011-01-10 17:59:33EST absolute-deviation.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -26,8 +26,8 @@ (defmfun absolute-deviation ((data vector) &optional mean) (("gsl_stats" :type "_absdev") ("gsl_stats" :type "_absdev_m")) - ((((foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet)) - (((foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet) + ((((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet)) + (((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet) (mean :double))) :definition :generic :element-types :no-complex @@ -48,11 +48,11 @@ (defmfun weighted-absolute-deviation ((data vector) (weights vector) &optional mean) (("gsl_stats" :type "_wabsdev") ("gsl_stats" :type "_wabsdev_m")) - ((((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer data) :pointer) (1 :int) + ((((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet)) - (((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer data) :pointer) (1 :int) + (((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet) (mean :double))) :definition :generic :element-types :float diff --git a/statistics/autocorrelation.lisp b/statistics/autocorrelation.lisp index 20d29fe2..dc04aea5 100644 --- a/statistics/autocorrelation.lisp +++ b/statistics/autocorrelation.lisp @@ -1,8 +1,8 @@ ;; Autocorrelation ;; Liam Healy, Sun Dec 31 2006 - 13:19 -;; Time-stamp: <2010-06-27 18:14:03EDT autocorrelation.lisp> +;; Time-stamp: <2011-01-10 17:59:34EST autocorrelation.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -26,8 +26,8 @@ (defmfun autocorrelation ((data vector) &optional mean) (("gsl_stats" :type "_lag1_autocorrelation") ("gsl_stats" :type "_lag1_autocorrelation_m")) - ((((foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet)) - (((foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet) + ((((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet)) + (((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet) (mean :double))) :definition :generic :element-types :no-complex diff --git a/statistics/covariance.lisp b/statistics/covariance.lisp index 6d7ce756..c1b79f16 100644 --- a/statistics/covariance.lisp +++ b/statistics/covariance.lisp @@ -1,8 +1,8 @@ ;; Covariance ;; Liam Healy, Sun Dec 31 2006 - 13:19 -;; Time-stamp: <2010-06-27 18:14:03EDT covariance.lisp> +;; Time-stamp: <2011-01-10 17:59:34EST covariance.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -27,10 +27,10 @@ ((data1 vector) (data2 vector) &optional mean1 mean2) (("gsl_stats" :type "_covariance") ("gsl_stats" :type "_covariance_m")) - ((((foreign-pointer data1) :pointer) (1 :int) - ((foreign-pointer data2) :pointer) (1 :int) ((dim0 data2) sizet)) - (((foreign-pointer data1) :pointer) (1 :int) - ((foreign-pointer data2) :pointer) (1 :int) ((dim0 data2) sizet) + ((((grid:foreign-pointer data1) :pointer) (1 :int) + ((grid:foreign-pointer data2) :pointer) (1 :int) ((dim0 data2) sizet)) + (((grid:foreign-pointer data1) :pointer) (1 :int) + ((grid:foreign-pointer data2) :pointer) (1 :int) ((dim0 data2) sizet) (mean1 :double) (mean2 :double))) :definition :generic :element-types :no-complex @@ -44,8 +44,8 @@ (defmfun correlation ((data1 vector) (data2 vector)) ("gsl_stats" :type "_correlation") - (((foreign-pointer data1) :pointer) (1 :int) - ((foreign-pointer data2) :pointer) (1 :int) ((dim0 data2) sizet)) + (((grid:foreign-pointer data1) :pointer) (1 :int) + ((grid:foreign-pointer data2) :pointer) (1 :int) ((dim0 data2) sizet)) :definition :generic :gsl-version (1 10) :element-types :no-complex diff --git a/statistics/higher-moments.lisp b/statistics/higher-moments.lisp index 179bbc01..5dcab44d 100644 --- a/statistics/higher-moments.lisp +++ b/statistics/higher-moments.lisp @@ -1,8 +1,8 @@ ;; Skewness and kurtosis. ;; Liam Healy, Sun Dec 31 2006 - 14:20 -;; Time-stamp: <2010-06-27 18:14:02EDT higher-moments.lisp> +;; Time-stamp: <2011-01-10 17:59:34EST higher-moments.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -25,8 +25,8 @@ (defmfun skewness ((data vector) &optional mean standard-deviation) (("gsl_stats" :type "_skew") ("gsl_stats" :type "_skew_m_sd")) - ((((foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet)) - (((foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet) + ((((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet)) + (((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet) (mean :double) (standard-deviation :double))) :definition :generic :element-types :no-complex @@ -45,8 +45,8 @@ (defmfun kurtosis ((data vector) &optional mean standard-deviation) (("gsl_stats" :type "_kurtosis") ("gsl_stats" :type "_kurtosis_m_sd")) - ((((foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet)) - (((foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet) + ((((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet)) + (((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet) (mean :double) (standard-deviation :double))) :definition :generic :element-types :no-complex @@ -63,11 +63,11 @@ ((data vector) (weights vector) &optional mean standard-deviation) (("gsl_stats" :type "_wskew") ("gsl_stats" :type "_wskew_m_sd")) - ((((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer data) :pointer) (1 :int) + ((((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet)) - (((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer data) :pointer) (1 :int) + (((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet) (mean :double) (standard-deviation :double))) :definition :generic @@ -82,11 +82,11 @@ ((data vector) (weights vector) &optional mean standard-deviation) (("gsl_stats" :type "_wkurtosis") ("gsl_stats" :type "_wkurtosis_m_sd")) - ((((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer data) :pointer) (1 :int) + ((((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet)) - (((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer data) :pointer) (1 :int) + (((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer data) :pointer) (1 :int) ((dim0 data) sizet) (mean :double) (standard-deviation :double))) :definition :generic diff --git a/statistics/mean-variance.lisp b/statistics/mean-variance.lisp index 60ccf98f..2669c246 100644 --- a/statistics/mean-variance.lisp +++ b/statistics/mean-variance.lisp @@ -1,8 +1,8 @@ ;; Mean, standard deviation, and variance ;; Liam Healy, Sat Dec 2 2006 - 22:15 -;; Time-stamp: <2010-06-30 19:57:28EDT mean-variance.lisp> +;; Time-stamp: <2011-01-10 17:59:35EST mean-variance.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -29,7 +29,7 @@ (defmfun mean ((array both)) ("gsl_stats" :type "_mean") - (((foreign-pointer array) :pointer) (1 :int) ((size array) sizet)) + (((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet)) :definition :generic :element-types :no-complex :c-return :double @@ -41,8 +41,8 @@ (defmfun weighted-mean ((array both) (weights both)) ("gsl_stats" :type "_wmean") - (((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer array) :pointer) (1 :int) + (((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet)) :definition :generic :element-types :float @@ -60,8 +60,8 @@ (defmfun variance ((array both) &optional mean) (("gsl_stats" :type "_variance") ("gsl_stats" :type "_variance_m")) - ((((foreign-pointer array) :pointer) (1 :int) ((size array) sizet)) - (((foreign-pointer array) :pointer) (1 :int) + ((((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet)) + (((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet) (mean :double))) :definition :generic :element-types :no-complex @@ -82,11 +82,11 @@ (defmfun weighted-variance ((array both) (weights both) &optional mean) (("gsl_stats" :type "_wvariance") ("gsl_stats" :type "_wvariance_m")) - ((((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer array) :pointer) (1 :int) + ((((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet)) - (((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer array) :pointer) (1 :int) + (((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet) (mean :double))) :definition :generic :element-types :float @@ -108,8 +108,8 @@ (defmfun standard-deviation ((array both) &optional mean) (("gsl_stats" :type "_sd") ("gsl_stats" :type "_sd_m")) - ((((foreign-pointer array) :pointer) (1 :int) ((size array) sizet)) - (((foreign-pointer array) :pointer) (1 :int) + ((((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet)) + (((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet) (mean :double))) :definition :generic :element-types :no-complex @@ -123,11 +123,11 @@ (defmfun weighted-standard-deviation ((array both) (weights both) &optional mean) (("gsl_stats" :type "_wsd") ("gsl_stats" :type "_wsd_m")) - ((((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer array) :pointer) (1 :int) + ((((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet)) - (((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer array) :pointer) (1 :int) + (((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet) (mean :double))) :definition :generic :element-types :float @@ -144,7 +144,7 @@ (defmfun variance-with-fixed-mean ((array both) mean) ("gsl_stats" :type "_variance_with_fixed_mean") - (((foreign-pointer array) :pointer) (1 :int) + (((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet) (mean :double)) :definition :generic :element-types :no-complex @@ -160,7 +160,7 @@ (defmfun standard-deviation-with-fixed-mean ((array both) mean) ("gsl_stats" :type "_sd_with_fixed_mean") - (((foreign-pointer array) :pointer) (1 :int) + (((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet) (mean :double)) :definition :generic :element-types :no-complex @@ -178,8 +178,8 @@ (defmfun weighted-variance-with-fixed-mean ((array both) (weights both) mean) ("gsl_stats" :type "_wvariance_with_fixed_mean") - (((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer array) :pointer) (1 :int) + (((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet) (mean :double)) :definition :generic :element-types :float @@ -196,8 +196,8 @@ (defmfun weighted-standard-deviation-with-fixed-mean ((array both) (weights both) mean) ("gsl_stats" :type "_wsd_with_fixed_mean") - (((foreign-pointer weights) :pointer) (1 :int) - ((foreign-pointer array) :pointer) (1 :int) + (((grid:foreign-pointer weights) :pointer) (1 :int) + ((grid:foreign-pointer array) :pointer) (1 :int) ((size array) sizet) (mean :double)) :definition :generic :element-types :float diff --git a/statistics/median-percentile.lisp b/statistics/median-percentile.lisp index c29993de..67eb56bc 100644 --- a/statistics/median-percentile.lisp +++ b/statistics/median-percentile.lisp @@ -1,8 +1,8 @@ ;; Median and percentile ;; Liam Healy, Sun Dec 31 2006 - 13:19 -;; Time-stamp: <2010-06-27 18:14:04EDT median-percentile.lisp> +;; Time-stamp: <2011-01-10 17:59:35EST median-percentile.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -25,7 +25,7 @@ (defmfun median ((sorted-data vector)) ("gsl_stats" :type "_median_from_sorted_data") - (((foreign-pointer sorted-data) :pointer) (1 :int) ((dim0 sorted-data) sizet)) + (((grid:foreign-pointer sorted-data) :pointer) (1 :int) ((dim0 sorted-data) sizet)) :definition :generic :element-types :no-complex :c-return :double @@ -44,7 +44,7 @@ (defmfun quantile ((sorted-data vector) fraction) ("gsl_stats" :type "_quantile_from_sorted_data") - (((foreign-pointer sorted-data) :pointer) (1 :int) ((dim0 sorted-data) sizet) + (((grid:foreign-pointer sorted-data) :pointer) (1 :int) ((dim0 sorted-data) sizet) (fraction :double)) :definition :generic :element-types :no-complex diff --git a/wavelet.lisp b/wavelet.lisp index 7fda318c..fdab6c11 100644 --- a/wavelet.lisp +++ b/wavelet.lisp @@ -1,8 +1,8 @@ ;; Wavelet transforms. ;; Liam Healy, Mon Nov 26 2007 - 20:43 -;; Time-stamp: <2010-07-07 14:24:54EDT wavelet.lisp> +;; Time-stamp: <2011-01-10 17:55:15EST wavelet.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -105,7 +105,7 @@ (defmfun wavelet-transform (wavelet data stride direction workspace) "gsl_wavelet_transform" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) (stride sizet) ((dim0 data) sizet) ((forward-backward direction) :int) ((mpointer workspace) :pointer)) :documentation ; FDL @@ -131,7 +131,7 @@ (defmfun wavelet-transform-forward (wavelet data stride workspace) "gsl_wavelet_transform_forward" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) (stride sizet) ((dim0 data) sizet) ((mpointer workspace) :pointer)) :documentation ; FDL "Compute in-place forward and inverse discrete wavelet @@ -153,7 +153,7 @@ (defmfun wavelet-transform-inverse (wavelet data stride workspace) "gsl_wavelet_transform_inverse" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) (stride sizet) ((dim0 data) sizet) ((mpointer workspace) :pointer)) :documentation ; FDL "Compute in-place inverse discrete wavelet @@ -179,7 +179,7 @@ (defmfun wavelet-2d-transform (wavelet data tda direction workspace) "gsl_wavelet2d_transform" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) (tda sizet) ((dim0 data) sizet) ((dim1 data) sizet) ((forward-backward direction) :int) ((mpointer workspace) :pointer)) :documentation ; FDL @@ -199,7 +199,7 @@ (defmfun wavelet-2d-transform-forward (wavelet data tda workspace) "gsl_wavelet2d_transform_forward" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) (tda sizet) ((dim0 data) sizet) ((dim1 data) sizet) ((mpointer workspace) :pointer)) :documentation ; FDL @@ -217,7 +217,7 @@ (defmfun wavelet-2d-transform-inverse (wavelet data tda workspace) "gsl_wavelet2d_transform_inverse" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) (tda sizet) ((dim0 data) sizet) ((dim1 data) sizet) ((mpointer workspace) :pointer)) :documentation ; FDL @@ -233,28 +233,28 @@ (defmfun wavelet-2d-transform-matrix (wavelet data direction workspace) "gsl_wavelet2d_transform_matrix" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) ((forward-backward direction) :int) ((mpointer workspace) :pointer)) :documentation ; FDL "Compute the two-dimensional in-place wavelet transform on a matrix.") (defmfun wavelet-2d-transform-matrix-forward (wavelet data workspace) "gsl_wavelet2d_transform_matrix_forward" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) ((mpointer workspace) :pointer)) :documentation ; FDL "Compute the two-dimensional in-place wavelet transform on a matrix.") (defmfun wavelet-2d-transform-matrix-inverse (wavelet data workspace) "gsl_wavelet2d_transform_matrix_inverse" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) ((mpointer workspace) :pointer)) :documentation ; FDL "Compute the two-dimensional in-place wavelet transform on a matrix.") (defmfun wavelet-2d-nonstandard-transform (wavelet data tda direction workspace) "gsl_wavelet2d_nstransform" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) (tda sizet) ((dim0 data) sizet) ((dim1 data) sizet) (direction :int) ((mpointer workspace) :pointer)) :documentation ; FDL @@ -262,7 +262,7 @@ (defmfun wavelet-2d-nonstandard-transform-forward (wavelet data tda workspace) "gsl_wavelet2d_nstransform_forward" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) (tda sizet) ((dim0 data) sizet) ((dim1 data) sizet) ((mpointer workspace) :pointer)) :documentation ; FDL @@ -270,7 +270,7 @@ (defmfun wavelet-2d-nonstandard-transform-inverse (wavelet data tda workspace) "gsl_wavelet2d_nstransform_inverse" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) (tda sizet) ((dim0 data) sizet) ((dim1 data) sizet) ((mpointer workspace) :pointer)) :documentation ; FDL @@ -278,7 +278,7 @@ (defmfun wavelet-2d-nonstandard-transform-matrix (wavelet data direction workspace) "gsl_wavelet2d_nstransform_matrix" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) (direction :int) ((mpointer workspace) :pointer)) :documentation "Compute the non-standard form of the two-dimensional in-place wavelet @@ -286,7 +286,7 @@ (defmfun wavelet-2d-nonstandard-transform-matrix-forward (wavelet data workspace) "gsl_wavelet2d_nstransform_matrix_forward" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) ((mpointer workspace) :pointer)) :documentation ; FDL "Compute the non-standard form of the two-dimensional in-place wavelet @@ -294,7 +294,7 @@ (defmfun wavelet-2d-nonstandard-transform-matrix-inverse (wavelet data workspace) "gsl_wavelet2d_nstransform_matrix_inverse" - (((mpointer wavelet) :pointer) ((foreign-pointer data) :pointer) + (((mpointer wavelet) :pointer) ((grid:foreign-pointer data) :pointer) ((mpointer workspace) :pointer)) :documentation ; FDL "Compute the non-standard form of the two-dimensional in-place wavelet -- GitLab