From 24eecac11d72434a8b953353b079318694ef3713 Mon Sep 17 00:00:00 2001 From: "Liam M. Healy" <lhealy@common-lisp.net> Date: Sat, 27 Dec 2014 08:38:56 -0500 Subject: [PATCH] Use Antik named readtable --- hankel.lisp | 5 +++-- linear-algebra/exponential.lisp | 5 +++-- polynomial.lisp | 5 +++-- random/dirichlet.lisp | 5 +++-- random/discrete.lisp | 5 +++-- random/multinomial.lisp | 5 +++-- random/shuffling-sampling.lisp | 5 +++-- special-functions/bessel.lisp | 5 +++-- statistics/absolute-deviation.lisp | 5 +++-- statistics/autocorrelation.lisp | 5 +++-- statistics/higher-moments.lisp | 6 ++++-- statistics/median-percentile.lisp | 5 +++-- wavelet.lisp | 5 +++-- 13 files changed, 40 insertions(+), 26 deletions(-) diff --git a/hankel.lisp b/hankel.lisp index 414e414e..68ddd87e 100644 --- a/hankel.lisp +++ b/hankel.lisp @@ -1,8 +1,8 @@ ;; Discrete Hankel Transforms. ;; Liam Healy, Sat Dec 8 2007 - 16:50 -;; Time-stamp: <2012-01-13 12:01:11EST hankel.lisp> +;; Time-stamp: <2014-12-26 13:18:38EST hankel.lisp> ;; -;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2007, 2008, 2009, 2011, 2012, 2014 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 @@ -20,6 +20,7 @@ ;; $Id$ (in-package :gsl) +(named-readtables:in-readtable :antik) ;;; /usr/include/gsl/gsl_dht.h diff --git a/linear-algebra/exponential.lisp b/linear-algebra/exponential.lisp index 828cce90..c2b55b50 100644 --- a/linear-algebra/exponential.lisp +++ b/linear-algebra/exponential.lisp @@ -1,8 +1,8 @@ ;; Exponential of a matrix ;; Liam Healy 2008-08-10 17:25:35EDT exponential.lisp -;; Time-stamp: <2010-07-07 14:25:00EDT exponential.lisp> +;; Time-stamp: <2014-12-26 13:18:34EST exponential.lisp> ;; -;; Copyright 2008, 2009 Liam M. Healy +;; Copyright 2008, 2009, 2010, 2014 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 @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) ;;; No documentation (defmfun matrix-exponential (matrix exponential &optional (mode :double)) diff --git a/polynomial.lisp b/polynomial.lisp index d809fae4..0bd2106e 100644 --- a/polynomial.lisp +++ b/polynomial.lisp @@ -1,8 +1,8 @@ ;; Polynomials ;; Liam Healy, Tue Mar 21 2006 - 18:33 -;; Time-stamp: <2012-01-13 12:01:12EST polynomial.lisp> +;; Time-stamp: <2014-12-26 13:18:34EST polynomial.lisp> ;; -;; Copyright 2009, 2011 Liam M. Healy +;; Copyright 2009, 2011, 2012, 2014 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 @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) ;;; /usr/include/gsl/gsl_poly.h diff --git a/random/dirichlet.lisp b/random/dirichlet.lisp index 872b6038..93fdf87c 100644 --- a/random/dirichlet.lisp +++ b/random/dirichlet.lisp @@ -1,8 +1,8 @@ ;; Dirichlet distribution ;; Liam Healy, Sun Oct 29 2006 -;; Time-stamp: <2012-01-13 12:01:22EST dirichlet.lisp> +;; Time-stamp: <2014-12-26 13:18:36EST dirichlet.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011, 2012, 2014 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 @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) ;;; /usr/include/gsl/gsl_randist.h diff --git a/random/discrete.lisp b/random/discrete.lisp index 9deabe5a..5e3f00cc 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: <2012-01-13 12:01:21EST discrete.lisp> +;; Time-stamp: <2014-12-26 13:18:36EST discrete.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011, 2012, 2014 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 @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) ;;; /usr/include/gsl/gsl_randist.h diff --git a/random/multinomial.lisp b/random/multinomial.lisp index fdf8b9bb..ecd2595f 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: <2012-01-13 12:01:21EST multinomial.lisp> +;; Time-stamp: <2014-12-26 13:24:44EST multinomial.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011, 2012, 2014 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 @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) ;;; /usr/include/gsl/gsl_randist.h diff --git a/random/shuffling-sampling.lisp b/random/shuffling-sampling.lisp index ac2bb326..b4e116b0 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: <2012-01-13 12:01:20EST shuffling-sampling.lisp> +;; Time-stamp: <2014-12-26 13:24:44EST shuffling-sampling.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011, 2012, 2014 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 @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) ;;; These are currently defined only for vectors. diff --git a/special-functions/bessel.lisp b/special-functions/bessel.lisp index aa0a040a..420a63bc 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: <2011-10-29 23:31:13EDT bessel.lisp> +;; Time-stamp: <2014-12-26 13:18:35EST bessel.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011, 2014 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 @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) ;;;;**************************************************************************** ;;;; Regular Cylindrical Bessel Functions diff --git a/statistics/absolute-deviation.lisp b/statistics/absolute-deviation.lisp index 0dd237f4..a466dc0e 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: <2012-01-13 12:01:14EST absolute-deviation.lisp> +;; Time-stamp: <2014-12-26 13:18:37EST absolute-deviation.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011, 2012, 2014 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 @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) ;;; To do: stride other than 1 when that information is availble from ;;; the vector. diff --git a/statistics/autocorrelation.lisp b/statistics/autocorrelation.lisp index 91a62e20..defe4bdc 100644 --- a/statistics/autocorrelation.lisp +++ b/statistics/autocorrelation.lisp @@ -1,8 +1,8 @@ ;; Autocorrelation ;; Liam Healy, Sun Dec 31 2006 - 13:19 -;; Time-stamp: <2012-01-13 12:01:14EST autocorrelation.lisp> +;; Time-stamp: <2014-12-26 13:18:38EST autocorrelation.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011, 2012, 2014 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 @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) ;;; To do: stride other than 1 when that information is availble from ;;; the vector. diff --git a/statistics/higher-moments.lisp b/statistics/higher-moments.lisp index 4efcab89..4e488fd6 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: <2012-01-13 12:01:13EST higher-moments.lisp> +;; Time-stamp: <2014-12-26 13:16:00EST higher-moments.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011, 2012, 2014 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 @@ -19,6 +19,8 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) + ;;; To do: stride other than 1 when that information is availble from ;;; the vector. diff --git a/statistics/median-percentile.lisp b/statistics/median-percentile.lisp index aa5eeeb1..54e0a5e8 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: <2012-01-13 12:01:12EST median-percentile.lisp> +;; Time-stamp: <2014-12-26 13:18:37EST median-percentile.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011, 2012, 2014 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 @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) ;;; To do: stride other than 1 when that information is availble from ;;; the vector. diff --git a/wavelet.lisp b/wavelet.lisp index 6b02bc6d..190b0f1b 100644 --- a/wavelet.lisp +++ b/wavelet.lisp @@ -1,8 +1,8 @@ ;; Wavelet transforms. ;; Liam Healy, Mon Nov 26 2007 - 20:43 -;; Time-stamp: <2012-01-13 12:01:10EST wavelet.lisp> +;; Time-stamp: <2014-12-26 13:18:35EST wavelet.lisp> ;; -;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy +;; Copyright 2006, 2007, 2008, 2009, 2011, 2012, 2014 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 @@ -19,6 +19,7 @@ ;; along with this program. If not, see <http://www.gnu.org/licenses/>. (in-package :gsl) +(named-readtables:in-readtable :antik) ;;; /usr/include/gsl/gsl_wavelet.h -- GitLab