Skip to content
Snippets Groups Projects
Commit 80b97f18 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Incorporate tests into ASDF system definition

parent d285aa99
No related branches found
No related tags found
No related merge requests found
......@@ -121,22 +121,17 @@ are ported from GSL's tests.
(ql:quickload "gsll")</pre>
<p>To test your installation:
<pre>
(ql:quickload "lisp-unit")
(in-package :gsl)
(lisp-unit:run-tests)</pre>
(asdf:test-system :gsll)</pre>
<p>The result should look something like:
<pre>
ABSOLUTE-DEVIATION: 1 assertions passed, 0 failed.
ABSOLUTE-SUM: 4 assertions passed, 0 failed.
AIRY: 73 assertions passed, 0 failed.</pre>
<p>... (many lines deleted) ...
<pre>
VECTOR-VARIANCE-WITH-MEAN: 10 assertions passed, 0 failed.
WEIBULL: 60 assertions passed, 0 failed.
ZETA: 6 assertions passed, 0 failed.
TOTAL: 4022 assertions passed, 1 failed, 0 execution errors.</pre>
Unit Test Summary
| 3997 assertions total
| 3992 passed
| 5 failed
| 6 execution errors
| 0 missing tests
</pre>
<p>You may see more failures; if you are not on a 64 bit platform you will see fewer assertions.
<h3>License</h3>
<p>
This software is distributed under
......@@ -303,7 +298,7 @@ and arrays used internally or for function return.
<!-- Created: Feb 25 2005 -->
<!-- hhmts start -->
<small>
Time-stamp: <2015-10-04 21:05:48EDT index.html>
Time-stamp: <2015-12-05 22:02:12EST index.html>
</small>
<!-- hhmts end -->
</div>
......
;; Definition of GSLL system
;; Liam Healy
;; Time-stamp: <2013-11-24 19:18:07EST gsll.asd>
;; Time-stamp: <2015-12-05 21:54:38EST gsll.asd>
;;
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013 Liam M. Healy
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013, 2015 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,443 +27,438 @@
:version "0"
:author "Liam M. Healy"
:licence "GPL v3"
:defsystem-depends-on (#:cffi-grovel #:asdf-system-connections)
:defsystem-depends-on (#:cffi-grovel)
:depends-on (#:foreign-array
#:cffi-grovel
#:trivial-garbage
#:alexandria
#:metabang-bind
#:osicat)
#:osicat
#:lisp-unit)
:components
((:module init
:components
((:file "init")
(cffi-grovel:grovel-file
"libgsl" :pathname #+unix "libgsl-unix" #-unix "nothing-here"
:depends-on ("init"))
(:file "utility" :depends-on ("init"))
(:file "forms" :depends-on ("init"))
(:file "conditions" :depends-on ("init" "libgsl"))
(:file "callback-compile-defs" :depends-on ("init"))
(:file "mobject" :depends-on ("init" "callback-compile-defs"))
(:file "callback-included" :depends-on ("mobject"))
(:file "callback"
:depends-on
("init" "utility" "forms"
"callback-included"))
(:file "types" :depends-on ("init" "libgsl"))
(cffi-grovel:grovel-file "callback-struct"
:depends-on ("types" "libgsl"))
(:file "funcallable" :depends-on ("init" "utility"))
(:file "interface"
:depends-on ("init" "conditions"))
(:file "defmfun" :depends-on ("init" "forms" "interface"))
(:file "defmfun-array"
:depends-on ("init" "defmfun" "callback-included"))
(:file "defmfun-single"
:depends-on ("init" "defmfun" "mobject" "callback"))
(:file "body-expand" :depends-on ("init" "defmfun" "mobject" "callback"))
(:file "generate-examples" :depends-on ("init"))))
:components
((:file "init")
(cffi-grovel:grovel-file
"libgsl" :pathname #+unix "libgsl-unix" #-unix "nothing-here"
:depends-on ("init"))
(:file "utility" :depends-on ("init"))
(:file "forms" :depends-on ("init"))
(:file "conditions" :depends-on ("init" "libgsl"))
(:file "callback-compile-defs" :depends-on ("init"))
(:file "mobject" :depends-on ("init" "callback-compile-defs"))
(:file "callback-included" :depends-on ("mobject"))
(:file "callback"
:depends-on
("init" "utility" "forms"
"callback-included"))
(:file "types" :depends-on ("init" "libgsl"))
(cffi-grovel:grovel-file "callback-struct"
:depends-on ("types" "libgsl"))
(:file "funcallable" :depends-on ("init" "utility"))
(:file "interface"
:depends-on ("init" "conditions"))
(:file "defmfun" :depends-on ("init" "forms" "interface"))
(:file "defmfun-array"
:depends-on ("init" "defmfun" "callback-included"))
(:file "defmfun-single"
:depends-on ("init" "defmfun" "mobject" "callback"))
(:file "body-expand" :depends-on ("init" "defmfun" "mobject" "callback"))
(:file "generate-examples" :depends-on ("init"))))
(:module floating-point
:depends-on (init)
:components
((:file "ieee-modes")
(:file "floating-point")))
:depends-on (init)
:components
((:file "ieee-modes")
(:file "floating-point")))
(:module mathematical
:depends-on (init)
:components
((:file "mathematical")
#+fsbv
(:file "complex")))
:depends-on (init)
:components
((:file "mathematical")
#+fsbv
(:file "complex")))
(:module data
:depends-on (init)
:components
((cffi-grovel:grovel-file "array-structs")
(:file "foreign-array" :depends-on ("array-structs"))
(:file "vector" :depends-on ("foreign-array" "array-structs"))
(:file "matrix" :depends-on ("foreign-array" "vector" "array-structs"))
(:file "both" :depends-on ("foreign-array" "vector" "matrix"))
(:file "array-tests" :depends-on ("both"))
(:file "permutation" :depends-on ("foreign-array" "array-structs"))
(:file "combination" :depends-on ("foreign-array" "array-structs"))))
:depends-on (init)
:components
((cffi-grovel:grovel-file "array-structs")
(:file "foreign-array" :depends-on ("array-structs"))
(:file "vector" :depends-on ("foreign-array" "array-structs"))
(:file "matrix" :depends-on ("foreign-array" "vector" "array-structs"))
(:file "both" :depends-on ("foreign-array" "vector" "matrix"))
(:file "array-tests" :depends-on ("both"))
(:file "permutation" :depends-on ("foreign-array" "array-structs"))
(:file "combination" :depends-on ("foreign-array" "array-structs"))))
(:file "polynomial" :depends-on (init data))
(:module special-functions
:depends-on (init mathematical)
:components
((cffi-grovel:grovel-file "sf-result")
(:file "return-structures" :depends-on ("sf-result"))
(:file "airy" :depends-on ("return-structures"))
(:file "bessel" :depends-on ("return-structures"))
(:file "clausen" :depends-on ("return-structures"))
(:file "coulomb" :depends-on ("return-structures"))
(:file "coupling" :depends-on ("return-structures"))
(:file "dawson" :depends-on ("return-structures"))
(:file "debye" :depends-on ("return-structures"))
(:file "dilogarithm" :depends-on ("return-structures"))
(:file "elementary" :depends-on ("return-structures"))
(:file "elliptic-integrals" :depends-on ("return-structures"))
(:file "elliptic-functions" :depends-on ("return-structures"))
(:file "error-functions" :depends-on ("return-structures"))
(:file "exponential-functions" :depends-on ("return-structures"))
(:file "exponential-integrals" :depends-on ("return-structures"))
(:file "fermi-dirac" :depends-on ("return-structures"))
(:file "gamma" :depends-on ("return-structures"))
(:file "gegenbauer" :depends-on ("return-structures"))
(:file "hypergeometric" :depends-on ("return-structures"))
(:file "laguerre" :depends-on ("return-structures"))
(:file "lambert" :depends-on ("return-structures"))
(:file "legendre" :depends-on ("return-structures"))
(:file "logarithm" :depends-on ("return-structures"))
(:file "mathieu" :depends-on ("return-structures"))
(:file "power" :depends-on ("return-structures"))
(:file "psi" :depends-on ("return-structures"))
(:file "synchrotron" :depends-on ("return-structures"))
(:file "transport" :depends-on ("return-structures"))
(:file "trigonometry" :depends-on ("return-structures"))
(:file "zeta" :depends-on ("return-structures"))))
:depends-on (init mathematical)
:components
((cffi-grovel:grovel-file "sf-result")
(:file "return-structures" :depends-on ("sf-result"))
(:file "airy" :depends-on ("return-structures"))
(:file "bessel" :depends-on ("return-structures"))
(:file "clausen" :depends-on ("return-structures"))
(:file "coulomb" :depends-on ("return-structures"))
(:file "coupling" :depends-on ("return-structures"))
(:file "dawson" :depends-on ("return-structures"))
(:file "debye" :depends-on ("return-structures"))
(:file "dilogarithm" :depends-on ("return-structures"))
(:file "elementary" :depends-on ("return-structures"))
(:file "elliptic-integrals" :depends-on ("return-structures"))
(:file "elliptic-functions" :depends-on ("return-structures"))
(:file "error-functions" :depends-on ("return-structures"))
(:file "exponential-functions" :depends-on ("return-structures"))
(:file "exponential-integrals" :depends-on ("return-structures"))
(:file "fermi-dirac" :depends-on ("return-structures"))
(:file "gamma" :depends-on ("return-structures"))
(:file "gegenbauer" :depends-on ("return-structures"))
(:file "hypergeometric" :depends-on ("return-structures"))
(:file "laguerre" :depends-on ("return-structures"))
(:file "lambert" :depends-on ("return-structures"))
(:file "legendre" :depends-on ("return-structures"))
(:file "logarithm" :depends-on ("return-structures"))
(:file "mathieu" :depends-on ("return-structures"))
(:file "power" :depends-on ("return-structures"))
(:file "psi" :depends-on ("return-structures"))
(:file "synchrotron" :depends-on ("return-structures"))
(:file "transport" :depends-on ("return-structures"))
(:file "trigonometry" :depends-on ("return-structures"))
(:file "zeta" :depends-on ("return-structures"))))
(:file "sorting" :depends-on (init data))
(:module linear-algebra
:depends-on (init data special-functions)
:components
((:file "blas1")
(:file "blas2")
(:file "blas3" :depends-on ("blas2"))
(:file "matrix-generation")
(:file "exponential")
(:file "lu")
(:file "qr")
(:file "qrpt")
(:file "svd")
(:file "cholesky")
(:file "diagonal")
(:file "householder")))
:depends-on (init data special-functions)
:components
((:file "blas1")
(:file "blas2")
(:file "blas3" :depends-on ("blas2"))
(:file "matrix-generation")
(:file "exponential")
(:file "lu")
(:file "qr")
(:file "qrpt")
(:file "svd")
(:file "cholesky")
(:file "diagonal")
(:file "householder")))
(:module eigensystems
:depends-on (init data)
:components
((:file "symmetric-hermitian")
(cffi-grovel:grovel-file "eigen-struct")
(:file "nonsymmetric" :depends-on ("eigen-struct"))
(:file "generalized")
(:file "nonsymmetric-generalized")))
:depends-on (init data)
:components
((:file "symmetric-hermitian")
(cffi-grovel:grovel-file "eigen-struct")
(:file "nonsymmetric" :depends-on ("eigen-struct"))
(:file "generalized")
(:file "nonsymmetric-generalized")))
(:module fast-fourier-transforms
:depends-on (init data)
:components
((:file "wavetable-workspace")
(:file "forward")
(:file "backward")
(:file "inverse")
(:file "select-direction")
(:file "unpack")
(:file "discrete")
(:file "extras")
(:file "example")))
:depends-on (init data)
:components
((:file "wavetable-workspace")
(:file "forward")
(:file "backward")
(:file "inverse")
(:file "select-direction")
(:file "unpack")
(:file "discrete")
(:file "extras")
(:file "example")))
(:module random
:depends-on (init data)
:components
((:file "rng-types")
(:file "generators" :depends-on ("rng-types"))
(:file "quasi" :depends-on ("rng-types" "generators"))
(:file "tests" :depends-on ("rng-types"))
(:file "gaussian" :depends-on ("rng-types"))
(:file "gaussian-tail" :depends-on ("rng-types"))
(:file "gaussian-bivariate" :depends-on ("rng-types"))
(:file "exponential" :depends-on ("rng-types"))
(:file "laplace" :depends-on ("rng-types"))
(:file "exponential-power" :depends-on ("rng-types"))
(:file "cauchy" :depends-on ("rng-types"))
(:file "rayleigh" :depends-on ("rng-types"))
(:file "rayleigh-tail" :depends-on ("rng-types"))
(:file "landau" :depends-on ("rng-types"))
(:file "levy" :depends-on ("rng-types"))
(:file "gamma" :depends-on ("rng-types"))
(:file "flat" :depends-on ("rng-types"))
(:file "lognormal" :depends-on ("rng-types"))
(:file "chi-squared" :depends-on ("rng-types"))
(:file "fdist" :depends-on ("rng-types"))
(:file "tdist" :depends-on ("rng-types"))
(:file "beta" :depends-on ("rng-types"))
(:file "logistic" :depends-on ("rng-types"))
(:file "pareto" :depends-on ("rng-types"))
(:file "spherical-vector" :depends-on ("rng-types"))
(:file "weibull" :depends-on ("rng-types"))
(:file "gumbel1" :depends-on ("rng-types"))
(:file "gumbel2" :depends-on ("rng-types"))
(:file "dirichlet" :depends-on ("rng-types"))
(:file "discrete" :depends-on ("rng-types"))
(:file "poisson" :depends-on ("rng-types"))
(:file "bernoulli" :depends-on ("rng-types"))
(:file "binomial" :depends-on ("rng-types"))
(:file "multinomial" :depends-on ("rng-types"))
(:file "negative-binomial" :depends-on ("rng-types"))
(:file "geometric" :depends-on ("rng-types"))
(:file "hypergeometric" :depends-on ("rng-types"))
(:file "logarithmic" :depends-on ("rng-types"))
(:file "shuffling-sampling" :depends-on ("rng-types"))))
:depends-on (init data)
:components
((:file "rng-types")
(:file "generators" :depends-on ("rng-types"))
(:file "quasi" :depends-on ("rng-types" "generators"))
(:file "tests" :depends-on ("rng-types"))
(:file "gaussian" :depends-on ("rng-types"))
(:file "gaussian-tail" :depends-on ("rng-types"))
(:file "gaussian-bivariate" :depends-on ("rng-types"))
(:file "exponential" :depends-on ("rng-types"))
(:file "laplace" :depends-on ("rng-types"))
(:file "exponential-power" :depends-on ("rng-types"))
(:file "cauchy" :depends-on ("rng-types"))
(:file "rayleigh" :depends-on ("rng-types"))
(:file "rayleigh-tail" :depends-on ("rng-types"))
(:file "landau" :depends-on ("rng-types"))
(:file "levy" :depends-on ("rng-types"))
(:file "gamma" :depends-on ("rng-types"))
(:file "flat" :depends-on ("rng-types"))
(:file "lognormal" :depends-on ("rng-types"))
(:file "chi-squared" :depends-on ("rng-types"))
(:file "fdist" :depends-on ("rng-types"))
(:file "tdist" :depends-on ("rng-types"))
(:file "beta" :depends-on ("rng-types"))
(:file "logistic" :depends-on ("rng-types"))
(:file "pareto" :depends-on ("rng-types"))
(:file "spherical-vector" :depends-on ("rng-types"))
(:file "weibull" :depends-on ("rng-types"))
(:file "gumbel1" :depends-on ("rng-types"))
(:file "gumbel2" :depends-on ("rng-types"))
(:file "dirichlet" :depends-on ("rng-types"))
(:file "discrete" :depends-on ("rng-types"))
(:file "poisson" :depends-on ("rng-types"))
(:file "bernoulli" :depends-on ("rng-types"))
(:file "binomial" :depends-on ("rng-types"))
(:file "multinomial" :depends-on ("rng-types"))
(:file "negative-binomial" :depends-on ("rng-types"))
(:file "geometric" :depends-on ("rng-types"))
(:file "hypergeometric" :depends-on ("rng-types"))
(:file "logarithmic" :depends-on ("rng-types"))
(:file "shuffling-sampling" :depends-on ("rng-types"))))
(:module statistics
:depends-on (init data)
:components
((:file "mean-variance")
(:file "absolute-deviation")
(:file "higher-moments")
(:file "autocorrelation")
(:file "covariance")
;; minimum and maximum values provided in vector.lisp
(:file "median-percentile")))
:depends-on (init data)
:components
((:file "mean-variance")
(:file "absolute-deviation")
(:file "higher-moments")
(:file "autocorrelation")
(:file "covariance")
;; minimum and maximum values provided in vector.lisp
(:file "median-percentile")))
(:module histogram
:depends-on (init linear-algebra random)
:components
((:file "histogram")
(:file "updating-accessing" :depends-on ("histogram"))
(:file "statistics" :depends-on ("histogram"))
(:file "operations" :depends-on ("histogram"))
(:file "probability-distribution" :depends-on ("histogram"))
(:file "ntuple")))
:depends-on (init linear-algebra random)
:components
((:file "histogram")
(:file "updating-accessing" :depends-on ("histogram"))
(:file "statistics" :depends-on ("histogram"))
(:file "operations" :depends-on ("histogram"))
(:file "probability-distribution" :depends-on ("histogram"))
(:file "ntuple")))
(:module calculus
:depends-on (init mathematical data random)
:components
((:file "numerical-integration")
(:file "numerical-integration-with-tables"
:depends-on ("numerical-integration"))
(cffi-grovel:grovel-file "monte-carlo-structs")
(:file "monte-carlo")
(:file "numerical-differentiation")))
:depends-on (init mathematical data random)
:components
((:file "numerical-integration")
(:file "numerical-integration-with-tables"
:depends-on ("numerical-integration"))
(cffi-grovel:grovel-file "monte-carlo-structs")
(:file "monte-carlo")
(:file "numerical-differentiation")))
(:module ordinary-differential-equations
:depends-on (init)
:components
((:file "ode-system")
(cffi-grovel:grovel-file "ode-struct")
(:file "stepping" :depends-on ("ode-struct"))
(:file "control")
(:file "evolution")
(:file "ode-example" :depends-on ("ode-system" "stepping"))))
:depends-on (init)
:components
((:file "ode-system")
(cffi-grovel:grovel-file "ode-struct")
(:file "stepping" :depends-on ("ode-struct"))
(:file "control")
(:file "evolution")
(:file "ode-example" :depends-on ("ode-system" "stepping"))))
(:module interpolation
:depends-on (init mathematical)
:components
((:file "interpolation")
(:file "types" :depends-on ("interpolation"))
(:file "lookup")
(:file "evaluation")
(:file "spline-example" :depends-on ("types"))))
:depends-on (init mathematical)
:components
((:file "interpolation")
(:file "types" :depends-on ("interpolation"))
(:file "lookup")
(:file "evaluation")
(:file "spline-example" :depends-on ("types"))))
(:file "chebyshev" :depends-on (init))
(cffi-grovel:grovel-file "series-struct")
(:file "series-acceleration" :depends-on (init mathematical "series-struct"))
(:file "wavelet" :depends-on (init data))
(:file "hankel" :depends-on (init data))
(:module solve-minimize-fit
:depends-on (init mathematical data random)
:components
((:file "generic")
(cffi-grovel:grovel-file "solver-struct")
(:file "roots-one" :depends-on ("generic"))
(:file "minimization-one" :depends-on ("generic"))
(:file "roots-multi" :depends-on ("roots-one" "generic" "solver-struct"))
(:file "minimization-multi" :depends-on ("generic"))
(:file "linear-least-squares")
(:file "nonlinear-least-squares"
:depends-on ("generic" "solver-struct"))
#+fsbv
(:file "simulated-annealing")))
:depends-on (init mathematical data random)
:components
((:file "generic")
(cffi-grovel:grovel-file "solver-struct")
(:file "roots-one" :depends-on ("generic"))
(:file "minimization-one" :depends-on ("generic"))
(:file "roots-multi" :depends-on ("roots-one" "generic" "solver-struct"))
(:file "minimization-multi" :depends-on ("generic"))
(:file "linear-least-squares")
(:file "nonlinear-least-squares"
:depends-on ("generic" "solver-struct"))
#+fsbv
(:file "simulated-annealing")))
(:file "basis-splines" :depends-on (init data random))
(:module physical-constants
:depends-on (init)
:components
((cffi-grovel:grovel-file "mksa")
(cffi-grovel:grovel-file "cgsm")
(cffi-grovel:grovel-file "num")
(:file export)))))
(asdf:defsystem-connection GSLL-tests
:name "GSLL-tests"
:description "Regression (unit) tests for GNU Scientific Library for Lisp."
:version "0"
:author "Liam M. Healy"
:licence "GPL v3"
:requires (gsll lisp-unit)
:components
((:module test-unit
:components
((cffi-grovel:grovel-file "machine")
(:file "augment" :depends-on ("machine"))))
:depends-on (init)
:components
((cffi-grovel:grovel-file "mksa")
(cffi-grovel:grovel-file "cgsm")
(cffi-grovel:grovel-file "num")
(:file export)))
(:module test-unit
:components
((cffi-grovel:grovel-file "machine")
(:file "augment" :depends-on ("machine"))))
(:module tests
:depends-on (test-unit)
:components
((:file "absolute-deviation")
(:file "absolute-sum")
(:file "airy")
(:file "autocorrelation")
(:file "axpy")
(:file "basis-spline")
(:file "bernoulli")
(:file "bessel")
(:file "beta")
(:file "binomial")
(:file "blas-copy")
(:file "blas-swap")
(:file "cauchy")
(:file "cdot")
(:file "chebyshev")
(:file "chi-squared")
(:file "cholesky")
(:file "clausen")
(:file "column")
(:file "combination")
(:file "coulomb")
(:file "coupling")
(:file "correlation")
(:file "covariance")
(:file "dawson")
(:file "debye")
(:file "dilogarithm")
(:file "dirichlet")
(:file "discrete")
(:file "dot")
(:file "eigensystems")
(:file "elementary")
(:file "elliptic-functions")
(:file "elliptic-integrals")
(:file "error-functions")
(:file "euclidean-norm")
(:file "exponential-functions")
(:file "exponential-integrals")
(:file "exponential")
(:file "exponential-power")
(:file "fast-fourier-transform")
(:file "fdist")
(:file "fermi-dirac")
(:file "flat")
(:file "gamma")
(:file "gamma-randist")
(:file "gaussian-bivariate")
(:file "gaussian")
(:file "gaussian-tail")
(:file "gegenbauer")
(:file "geometric")
(:file "givens")
(:file "gumbel1")
(:file "gumbel2")
(:file "hankel")
(:file "higher-moments")
(:file "histogram")
(:file "householder")
(:file "hypergeometric")
(:file "hypergeometric-randist")
(:file "index-max")
(:file "interpolation")
(:file "inverse-matrix-product")
(:file "laguerre")
(:file "lambert")
(:file "landau")
(:file "laplace")
(:file "legendre")
(:file "levy")
(:file "linear-least-squares")
(:file "logarithmic")
(:file "logarithm")
(:file "logistic")
(:file "lognormal")
(:file "lu")
(:file "mathematical")
(:file "mathieu")
(:file "matrix-div")
(:file "matrix-max-index")
(:file "matrix-max")
(:file "matrix-mean")
(:file "matrix-min")
(:file "matrix-min-index")
(:file "matrix-minmax-index")
(:file "matrix-minmax")
(:file "matrix-sub")
(:file "matrix-add")
(:file "matrix-mult")
#+fsbv (:file "matrix-product-hermitian")
(:file "matrix-product")
(:file "matrix-product-nonsquare")
(:file "matrix-product-symmetric")
(:file "matrix-product-triangular")
(:file "matrix-set-all")
(:file "matrix-set-zero")
(:file "matrix-standard-deviation")
(:file "matrix-standard-deviation-with-fixed-mean")
(:file "matrix-standard-deviation-with-mean")
(:file "matrix-swap")
(:file "matrix-transpose-copy")
(:file "matrix-transpose")
(:file "matrix-variance")
(:file "matrix-variance-with-fixed-mean")
(:file "matrix-variance-with-mean")
(:file "median-percentile")
(:file "minimization-one")
(:file "minimization-multi")
(:file "monte-carlo")
(:file "multinomial")
(:file "negative-binomial")
(:file "nonlinear-least-squares")
(:file "ntuple")
(:file "numerical-differentiation")
(:file "numerical-integration")
(:file "ode")
(:file "pareto")
(:file "permutation")
(:file "poisson")
(:file "polynomial")
(:file "power")
(:file "psi")
(:file "qr")
(:file "qrpt")
(:file "quasi-random-number-generators")
(:file "random-number-generators")
(:file "rank-1-update")
(:file "rayleigh")
(:file "rayleigh-tail")
(:file "roots-multi")
(:file "roots-one")
(:file "row")
(:file "scale")
(:file "series-acceleration")
(:file "set-basis")
(:file "setf-column")
(:file "setf-row")
(:file "set-identity")
(:file "shuffling-sampling")
(:file "sort-matrix-largest")
(:file "sort-matrix")
(:file "sort-matrix-smallest")
(:file "sort-vector-index")
(:file "sort-vector-largest-index")
(:file "sort-vector-largest")
(:file "sort-vector")
(:file "sort-vector-smallest-index")
(:file "sort-vector-smallest")
(:file "spherical-vector")
(:file "svd")
(:file "swap-columns")
(:file "swap-elements")
(:file "swap-row-column")
(:file "swap-rows")
(:file "synchrotron")
(:file "tdist")
(:file "transport")
(:file "trigonometry")
(:file "vector-div")
(:file "vector-max-index")
(:file "vector-max")
(:file "vector-mean")
(:file "vector-min")
(:file "vector-min-index")
(:file "vector-minmax-index")
(:file "vector-minmax")
(:file "vector-sub")
(:file "vector-add")
(:file "vector-mult")
(:file "vector-reverse")
(:file "vector-set-all")
(:file "vector-set-zero")
(:file "vector-standard-deviation")
(:file "vector-standard-deviation-with-fixed-mean")
(:file "vector-standard-deviation-with-mean")
(:file "vector-swap")
(:file "vector-variance")
(:file "vector-variance-with-fixed-mean")
(:file "vector-variance-with-mean")
(:file "weibull")
(:file "zeta")))))
:depends-on (test-unit)
:components
((:file "absolute-deviation")
(:file "absolute-sum")
(:file "airy")
(:file "autocorrelation")
(:file "axpy")
(:file "basis-spline")
(:file "bernoulli")
(:file "bessel")
(:file "beta")
(:file "binomial")
(:file "blas-copy")
(:file "blas-swap")
(:file "cauchy")
(:file "cdot")
(:file "chebyshev")
(:file "chi-squared")
(:file "cholesky")
(:file "clausen")
(:file "column")
(:file "combination")
(:file "coulomb")
(:file "coupling")
(:file "correlation")
(:file "covariance")
(:file "dawson")
(:file "debye")
(:file "dilogarithm")
(:file "dirichlet")
(:file "discrete")
(:file "dot")
(:file "eigensystems")
(:file "elementary")
(:file "elliptic-functions")
(:file "elliptic-integrals")
(:file "error-functions")
(:file "euclidean-norm")
(:file "exponential-functions")
(:file "exponential-integrals")
(:file "exponential")
(:file "exponential-power")
(:file "fast-fourier-transform")
(:file "fdist")
(:file "fermi-dirac")
(:file "flat")
(:file "gamma")
(:file "gamma-randist")
(:file "gaussian-bivariate")
(:file "gaussian")
(:file "gaussian-tail")
(:file "gegenbauer")
(:file "geometric")
(:file "givens")
(:file "gumbel1")
(:file "gumbel2")
(:file "hankel")
(:file "higher-moments")
(:file "histogram")
(:file "householder")
(:file "hypergeometric")
(:file "hypergeometric-randist")
(:file "index-max")
(:file "interpolation")
(:file "inverse-matrix-product")
(:file "laguerre")
(:file "lambert")
(:file "landau")
(:file "laplace")
(:file "legendre")
(:file "levy")
(:file "linear-least-squares")
(:file "logarithmic")
(:file "logarithm")
(:file "logistic")
(:file "lognormal")
(:file "lu")
(:file "mathematical")
(:file "mathieu")
(:file "matrix-div")
(:file "matrix-max-index")
(:file "matrix-max")
(:file "matrix-mean")
(:file "matrix-min")
(:file "matrix-min-index")
(:file "matrix-minmax-index")
(:file "matrix-minmax")
(:file "matrix-sub")
(:file "matrix-add")
(:file "matrix-mult")
#+fsbv (:file "matrix-product-hermitian")
(:file "matrix-product")
(:file "matrix-product-nonsquare")
(:file "matrix-product-symmetric")
(:file "matrix-product-triangular")
(:file "matrix-set-all")
(:file "matrix-set-zero")
(:file "matrix-standard-deviation")
(:file "matrix-standard-deviation-with-fixed-mean")
(:file "matrix-standard-deviation-with-mean")
(:file "matrix-swap")
(:file "matrix-transpose-copy")
(:file "matrix-transpose")
(:file "matrix-variance")
(:file "matrix-variance-with-fixed-mean")
(:file "matrix-variance-with-mean")
(:file "median-percentile")
(:file "minimization-one")
(:file "minimization-multi")
(:file "monte-carlo")
(:file "multinomial")
(:file "negative-binomial")
(:file "nonlinear-least-squares")
(:file "ntuple")
(:file "numerical-differentiation")
(:file "numerical-integration")
(:file "ode")
(:file "pareto")
(:file "permutation")
(:file "poisson")
(:file "polynomial")
(:file "power")
(:file "psi")
(:file "qr")
(:file "qrpt")
(:file "quasi-random-number-generators")
(:file "random-number-generators")
(:file "rank-1-update")
(:file "rayleigh")
(:file "rayleigh-tail")
(:file "roots-multi")
(:file "roots-one")
(:file "row")
(:file "scale")
(:file "series-acceleration")
(:file "set-basis")
(:file "setf-column")
(:file "setf-row")
(:file "set-identity")
(:file "shuffling-sampling")
(:file "sort-matrix-largest")
(:file "sort-matrix")
(:file "sort-matrix-smallest")
(:file "sort-vector-index")
(:file "sort-vector-largest-index")
(:file "sort-vector-largest")
(:file "sort-vector")
(:file "sort-vector-smallest-index")
(:file "sort-vector-smallest")
(:file "spherical-vector")
(:file "svd")
(:file "swap-columns")
(:file "swap-elements")
(:file "swap-row-column")
(:file "swap-rows")
(:file "synchrotron")
(:file "tdist")
(:file "transport")
(:file "trigonometry")
(:file "vector-div")
(:file "vector-max-index")
(:file "vector-max")
(:file "vector-mean")
(:file "vector-min")
(:file "vector-min-index")
(:file "vector-minmax-index")
(:file "vector-minmax")
(:file "vector-sub")
(:file "vector-add")
(:file "vector-mult")
(:file "vector-reverse")
(:file "vector-set-all")
(:file "vector-set-zero")
(:file "vector-standard-deviation")
(:file "vector-standard-deviation-with-fixed-mean")
(:file "vector-standard-deviation-with-mean")
(:file "vector-swap")
(:file "vector-variance")
(:file "vector-variance-with-fixed-mean")
(:file "vector-variance-with-mean")
(:file "weibull")
(:file "zeta"))))
:perform (asdf:test-op
(o c)
(uiop:symbol-call :lisp-unit '#:run-tests :all :gsll)))
;; BLAS level 3, Matrix-matrix operations
;; Liam Healy, Wed Apr 26 2006 - 21:08
;; Time-stamp: <2013-12-25 12:10:44EST blas3.lisp>
;; Time-stamp: <2015-12-05 09:56:16EST blas3.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013 Liam M. Healy
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013, 2015 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
......@@ -71,8 +71,6 @@
(C (grid:make-foreign-array element-type :dimensions (matrix-product-dimensions A B)
:initial-element 0))
(alpha 1) (beta 1) (uplo :upper) (side :left))
;; This always signals an error because you can't pass a
;; struct in CFFI yet.
("gsl_blas_" :type "hemm")
((side cblas-side) (uplo cblas-uplo) (alpha :element-c-type)
((mpointer A) :pointer) ((mpointer B) :pointer)
......@@ -99,8 +97,6 @@
((A grid:matrix) (B grid:matrix)
&optional (alpha 1) (uplo :upper) (TransA :notrans)
(diag :nonunit) (side :left))
;; This signals an error for complex arguments because you can't pass a
;; struct in CFFI yet.
("gsl_blas_" :type "trsm")
((side cblas-side) (uplo cblas-uplo)
(TransA cblas-transpose) (diag cblas-diag)
......
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