From 4c9c711a56a237b9d708424f0e8bce4f21527074 Mon Sep 17 00:00:00 2001
From: Russell Kliese <russell@kliese.id.au>
Date: Thu, 7 Jan 2010 22:04:00 +1000
Subject: [PATCH] Export the symbols for selecting random number sample
 functions.

---
 random/bernoulli.lisp          | 1 +
 random/beta.lisp               | 1 +
 random/cauchy.lisp             | 1 +
 random/chi-squared.lisp        | 1 +
 random/dirichlet.lisp          | 1 +
 random/discrete.lisp           | 1 +
 random/exponential-power.lisp  | 1 +
 random/exponential.lisp        | 1 +
 random/fdist.lisp              | 1 +
 random/flat.lisp               | 1 +
 random/gamma.lisp              | 2 ++
 random/gaussian-bivariate.lisp | 1 +
 random/gaussian-tail.lisp      | 2 ++
 random/gaussian.lisp           | 5 +++++
 random/generators.lisp         | 3 +++
 random/geometric.lisp          | 1 +
 random/gumbel1.lisp            | 1 +
 random/gumbel2.lisp            | 1 +
 random/hypergeometric.lisp     | 1 +
 random/landau.lisp             | 1 +
 random/laplace.lisp            | 1 +
 random/levy.lisp               | 2 ++
 random/logarithmic.lisp        | 1 +
 random/logistic.lisp           | 1 +
 random/lognormal.lisp          | 1 +
 random/multinomial.lisp        | 1 +
 random/negative-binomial.lisp  | 2 ++
 random/pareto.lisp             | 1 +
 random/poisson.lisp            | 1 +
 random/rayleigh-tail.lisp      | 1 +
 random/rayleigh.lisp           | 1 +
 random/shuffling-sampling.lisp | 3 +++
 random/spherical-vector.lisp   | 4 ++++
 random/tdist.lisp              | 1 +
 random/weibull.lisp            | 1 +
 35 files changed, 50 insertions(+)

diff --git a/random/bernoulli.lisp b/random/bernoulli.lisp
index 5e6ba48c..e3259a7e 100644
--- a/random/bernoulli.lisp
+++ b/random/bernoulli.lisp
@@ -20,6 +20,7 @@
 
 (in-package :gsl)
 
+(export 'bernoulli)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'bernoulli))
      &key probability)
diff --git a/random/beta.lisp b/random/beta.lisp
index f830f505..e63ab29b 100644
--- a/random/beta.lisp
+++ b/random/beta.lisp
@@ -20,6 +20,7 @@
 
 (in-package :gsl)
 
+(export 'beta)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'beta)) &key a b)
   "gsl_ran_beta"
diff --git a/random/cauchy.lisp b/random/cauchy.lisp
index ef8c44db..88913a7e 100644
--- a/random/cauchy.lisp
+++ b/random/cauchy.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'cauchy)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'cauchy)) &key a)
   "gsl_ran_cauchy"
diff --git a/random/chi-squared.lisp b/random/chi-squared.lisp
index 4c0b2ccb..6f2ed09f 100644
--- a/random/chi-squared.lisp
+++ b/random/chi-squared.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'chi-squared)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'chi-squared)) &key nu)
   "gsl_ran_chisq"
diff --git a/random/dirichlet.lisp b/random/dirichlet.lisp
index 17a76687..1618e486 100644
--- a/random/dirichlet.lisp
+++ b/random/dirichlet.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'dirichlet)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'dirichlet))
      &key alpha (theta (vdf (dim0 alpha))))
diff --git a/random/discrete.lisp b/random/discrete.lisp
index c0bf6c06..c0dd53a8 100644
--- a/random/discrete.lisp
+++ b/random/discrete.lisp
@@ -35,6 +35,7 @@
   generally as ``weights'')---the preprocessor will normalize appropriately.
   This return value is used as an argument to #'discrete.")
 
+(export 'discrete)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'discrete))
      &key table)
diff --git a/random/exponential-power.lisp b/random/exponential-power.lisp
index bcc9eeea..a5f48448 100644
--- a/random/exponential-power.lisp
+++ b/random/exponential-power.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'exponential-power)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'exponential-power))
      &key a b)
diff --git a/random/exponential.lisp b/random/exponential.lisp
index 574a2af1..940497f2 100644
--- a/random/exponential.lisp
+++ b/random/exponential.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'exponential)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'exponential))
      &key mu)
diff --git a/random/fdist.lisp b/random/fdist.lisp
index 9710abf6..cfd22c2f 100644
--- a/random/fdist.lisp
+++ b/random/fdist.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'fdist)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'fdist)) &key nu1 nu2)
   "gsl_ran_fdist"
diff --git a/random/flat.lisp b/random/flat.lisp
index 5017d88c..4841913d 100644
--- a/random/flat.lisp
+++ b/random/flat.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'flat)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'flat)) &key a b)
   "gsl_ran_flat"
diff --git a/random/gamma.lisp b/random/gamma.lisp
index 0327a046..d02a4c40 100644
--- a/random/gamma.lisp
+++ b/random/gamma.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'gamma)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'gamma)) &key a b)
   "gsl_ran_gamma"
@@ -37,6 +38,7 @@
    is known as the Erlang distribution.  The variates are computed using
    the algorithms from Knuth (vol 2).")
 
+(export 'gamma-mt)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'gamma-mt)) &key a b)
   "gsl_ran_gamma_mt"
diff --git a/random/gaussian-bivariate.lisp b/random/gaussian-bivariate.lisp
index b00bf773..2c72ecd7 100644
--- a/random/gaussian-bivariate.lisp
+++ b/random/gaussian-bivariate.lisp
@@ -23,6 +23,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'gaussian-bivariate)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'gaussian-bivariate))
      &key sigma-x sigma-y rho)
diff --git a/random/gaussian-tail.lisp b/random/gaussian-tail.lisp
index e4881e5b..f2b0817b 100644
--- a/random/gaussian-tail.lisp
+++ b/random/gaussian-tail.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'gaussian-tail)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'gaussian-tail))
      &key a sigma)
@@ -50,6 +51,7 @@
   for a Gaussian tail distribution with standard deviation sigma and
   lower limit a, using the formula given for gaussian-tail.")
 
+(export 'ugaussian-tail)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'ugaussian-tail))
      &key a)
diff --git a/random/gaussian.lisp b/random/gaussian.lisp
index af4009d2..d714a3d2 100644
--- a/random/gaussian.lisp
+++ b/random/gaussian.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'gaussian)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'gaussian))
      &key sigma)
@@ -48,6 +49,7 @@
   "Compute the probability density p(x) at x
    for a Gaussian distribution with standard deviation sigma.")
 
+(export 'gaussian-ziggurat)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'gaussian-ziggurat))
      &key sigma)
@@ -60,6 +62,7 @@
    Marsaglia-Tsang ziggurat method. The Ziggurat algorithm
    is the fastest available algorithm in most cases.")
 
+(export 'gaussian-ratio-method)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'gaussian-ratio-method))
      &key sigma)
@@ -71,6 +74,7 @@
   "Compute a Gaussian random variate using the Kinderman-Monahan-Leva
    ratio method.")
 
+(export 'ugaussian)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'ugaussian)) &key)
   "gsl_ran_ugaussian" (((mpointer generator) :pointer))
@@ -89,6 +93,7 @@
    equivalent to the #'gaussian-pdf with a standard deviation of one,
    sigma = 1.")
 
+(export 'ugaussian-ratio-method)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'ugaussian-ratio-method))
      &key)
diff --git a/random/generators.lisp b/random/generators.lisp
index d0177fbb..5e2f9683 100644
--- a/random/generators.lisp
+++ b/random/generators.lisp
@@ -77,6 +77,7 @@
   (:documentation
    "Sample from the probability distribution."))
 
+(export 'uniform)
 (defmfun sample ((source random-number-generator) (type (eql 'uniform)) &key)
   "gsl_rng_uniform" (((mpointer source) :pointer))
   :definition :method
@@ -91,6 +92,7 @@
    (the maximum number of bits that can be portably represented in a single
    :ulong.")
 
+(export 'uniform>0)
 (defmfun sample ((source random-number-generator) (type (eql 'uniform>0)) &key)
   "gsl_rng_uniform_pos" (((mpointer source) :pointer))
   :definition :method
@@ -102,6 +104,7 @@
    type 'uniform until a non-zero value is obtained.  You can use this
    function if you need to avoid a singularity at 0.0.")
 
+(export 'uniform-fixnum)
 (defmfun sample
     ((source random-number-generator) (type (eql 'uniform-fixnum))
      &key upperbound)
diff --git a/random/geometric.lisp b/random/geometric.lisp
index 26ba486d..e38106bd 100644
--- a/random/geometric.lisp
+++ b/random/geometric.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'geometric)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'geometric))
      &key probability)
diff --git a/random/gumbel1.lisp b/random/gumbel1.lisp
index 89b0ca0a..fe33b907 100644
--- a/random/gumbel1.lisp
+++ b/random/gumbel1.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'geometric)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'gumbel1)) &key a b)
   "gsl_ran_gumbel1"
diff --git a/random/gumbel2.lisp b/random/gumbel2.lisp
index 13eda471..ea692184 100644
--- a/random/gumbel2.lisp
+++ b/random/gumbel2.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'gumbel2)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'gumbel2)) &key a b)
   "gsl_ran_gumbel2"
diff --git a/random/hypergeometric.lisp b/random/hypergeometric.lisp
index 0771c725..a307cea4 100644
--- a/random/hypergeometric.lisp
+++ b/random/hypergeometric.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'hypergeometric)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'hypergeometric))
      &key n1 n2 tt)
diff --git a/random/landau.lisp b/random/landau.lisp
index 635c4de8..087775a7 100644
--- a/random/landau.lisp
+++ b/random/landau.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'landau)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'landau)) &key)
   "gsl_ran_landau"
diff --git a/random/laplace.lisp b/random/laplace.lisp
index e0089c97..a8d7d376 100644
--- a/random/laplace.lisp
+++ b/random/laplace.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'laplace)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'laplace)) &key a)
   "gsl_ran_laplace"
diff --git a/random/levy.lisp b/random/levy.lisp
index df849700..9a9589b8 100644
--- a/random/levy.lisp
+++ b/random/levy.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'levy)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'levy)) &key c alpha)
   "gsl_ran_levy"
@@ -40,6 +41,7 @@
    For \alpha < 1 the tails of the distribution become extremely wide.
    The algorithm only works for 0 < alpha <= 2.")
 
+(export 'levy-skew)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'levy-skew))
      &key c alpha beta)
diff --git a/random/logarithmic.lisp b/random/logarithmic.lisp
index dcdc3ffd..d8999ef6 100644
--- a/random/logarithmic.lisp
+++ b/random/logarithmic.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'logarithmic)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'logarithmic))
      &key probability)
diff --git a/random/logistic.lisp b/random/logistic.lisp
index fed88829..b2ec5b52 100644
--- a/random/logistic.lisp
+++ b/random/logistic.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'logistic)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'logistic)) &key a)
   "gsl_ran_logistic"
diff --git a/random/lognormal.lisp b/random/lognormal.lisp
index eeacb13e..65945320 100644
--- a/random/lognormal.lisp
+++ b/random/lognormal.lisp
@@ -20,6 +20,7 @@
 
 (in-package :gsl)
 
+(export 'lognormal)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'lognormal))
      &key zeta sigma)
diff --git a/random/multinomial.lisp b/random/multinomial.lisp
index 56777675..24336b8c 100644
--- a/random/multinomial.lisp
+++ b/random/multinomial.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'multinomial)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'multinomial))
      &key sum probabilities
diff --git a/random/negative-binomial.lisp b/random/negative-binomial.lisp
index 4e7350a6..bddcb66f 100644
--- a/random/negative-binomial.lisp
+++ b/random/negative-binomial.lisp
@@ -26,6 +26,7 @@
 ;;;; Negative binomial
 ;;;;****************************************************************************
 
+(export 'negative-binomial)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'negative-binomial))
      &key probability n)
@@ -70,6 +71,7 @@
 ;;;; Pascal
 ;;;;****************************************************************************
 
+(export 'pascal)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'pascal))
      &key probability n)
diff --git a/random/pareto.lisp b/random/pareto.lisp
index e1753e20..d5dea2be 100644
--- a/random/pareto.lisp
+++ b/random/pareto.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'pareto)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'pareto)) &key a b)
   "gsl_ran_pareto"
diff --git a/random/poisson.lisp b/random/poisson.lisp
index 3bb2f2d0..36c512d2 100644
--- a/random/poisson.lisp
+++ b/random/poisson.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'poisson)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'poisson)) &key mu)
   "gsl_ran_poisson"
diff --git a/random/rayleigh-tail.lisp b/random/rayleigh-tail.lisp
index a8484569..34166069 100644
--- a/random/rayleigh-tail.lisp
+++ b/random/rayleigh-tail.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'rayleigh-tail)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'rayleigh-tail))
      &key a sigma)
diff --git a/random/rayleigh.lisp b/random/rayleigh.lisp
index 4855b22e..e68fefa8 100644
--- a/random/rayleigh.lisp
+++ b/random/rayleigh.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'rayleigh)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'rayleigh))
      &key sigma)
diff --git a/random/shuffling-sampling.lisp b/random/shuffling-sampling.lisp
index 541e2cad..fc26b09d 100644
--- a/random/shuffling-sampling.lisp
+++ b/random/shuffling-sampling.lisp
@@ -22,6 +22,7 @@
 
 ;;; These are currently defined only for vectors.
 
+(export 'shuffle)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'shuffle))
      &key base)
@@ -40,6 +41,7 @@
    permutations with equal probability, assuming a perfect source of random
    numbers.")
 
+(export 'choose-random)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'choose-random))
      &key src (dest (dim0 src))
@@ -68,6 +70,7 @@
    same relative order as those in src.  You will need to call
    with 'shuffle if you want to randomize the order.")
 
+(export 'random-sample)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'random-sample))
      &key src (dest (dim0 src))
diff --git a/random/spherical-vector.lisp b/random/spherical-vector.lisp
index c55ea862..0fa5533a 100644
--- a/random/spherical-vector.lisp
+++ b/random/spherical-vector.lisp
@@ -24,6 +24,7 @@
 
 ;;; No test for #'direction-Nd yet.
 
+(export 'direction-2d)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'direction-2d)) &key)
   "gsl_ran_dir_2d"
@@ -36,6 +37,7 @@
    two dimensions.  The vector is normalized such that
    |v|^2 = x^2 + y^2 = 1.")
 
+(export 'direction-2d-trig-method)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'direction-2d-trig-method)) &key)
   "gsl_ran_dir_2d_trig_method"
@@ -48,6 +50,7 @@
    two dimensions.  The vector is normalized such that
    |v|^2 = x^2 + y^2 = 1.  Uses trigonometric functions.")
 
+(export 'direction-3d)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'direction-3d)) &key)
   "gsl_ran_dir_3d"
@@ -64,6 +67,7 @@
   projected along any axis is actually uniform (this is only true for 3
   dimensions).")
 
+(export 'direction-Nd)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'direction-Nd)) &key vector)
   "gsl_ran_dir_nd"
diff --git a/random/tdist.lisp b/random/tdist.lisp
index aa530d54..804b7311 100644
--- a/random/tdist.lisp
+++ b/random/tdist.lisp
@@ -22,6 +22,7 @@
 
 ;;; /usr/include/gsl/gsl_randist.h
 
+(export 'tdist)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'tdist)) &key nu)
   "gsl_ran_tdist"
diff --git a/random/weibull.lisp b/random/weibull.lisp
index ea00a797..82dce05a 100644
--- a/random/weibull.lisp
+++ b/random/weibull.lisp
@@ -23,6 +23,7 @@
 ;;; /usr/include/gsl/gsl_randist.h
 ;;; /usr/include/gsl/gsl_cdf.h
 
+(export 'weibull)
 (defmfun sample
     ((generator random-number-generator) (type (eql 'weibull)) &key a b)
   "gsl_ran_weibull"
-- 
GitLab