Skip to content
Snippets Groups Projects
Commit 19174775 authored by liam's avatar liam
Browse files

Change all method specializers that are type names but not class names

into ones that are actual class names.  SBCL does not care, but CLISP
does.


git-svn-id: svn+ssh://pop/opt/space/mathematics/gsl/trunk@3236 a3d8a0fb-c1db-0310-ace7-a616afeb9e30
parent f844645d
No related branches found
No related tags found
No related merge requests found
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
; description: BLAS level 1, Vector operations ; description: BLAS level 1, Vector operations
; date: Wed Apr 26 2006 - 15:23 ; date: Wed Apr 26 2006 - 15:23
; author: Liam Healy ; author: Liam Healy
; modified: Wed Jul 12 2006 - 12:32 ; modified: Mon Oct 8 2007 - 11:32
;******************************************************** ;********************************************************
;;; $Id: $ ;;; $Id: $
...@@ -105,7 +105,7 @@ ...@@ -105,7 +105,7 @@
(defun-gsl rot (defun-gsl rot
((vec1 gsl-vector-single) (vec2 gsl-vector-single) ((vec1 gsl-vector-single) (vec2 gsl-vector-single)
(c single-float) (s single-float)) (c float) (s float))
"gsl_blas_srot" "gsl_blas_srot"
(((pointer vec1) :pointer) ((pointer vec2) :pointer) (c :float) (s :float)) (((pointer vec1) :pointer) ((pointer vec2) :pointer) (c :float) (s :float))
:type :method :type :method
...@@ -159,7 +159,7 @@ ...@@ -159,7 +159,7 @@
(defun-gsl rot (defun-gsl rot
((vec1 gsl-vector-double) (vec2 gsl-vector-double) ((vec1 gsl-vector-double) (vec2 gsl-vector-double)
(c double-float) (s double-float)) (c float) (s float))
"gsl_blas_drot" "gsl_blas_drot"
(((pointer vec1) :pointer) ((pointer vec2) :pointer) (c :double) (s :double)) (((pointer vec1) :pointer) ((pointer vec2) :pointer) (c :double) (s :double))
:type :method :type :method
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
; description: BLAS level 3, Matrix-matrix operations ; description: BLAS level 3, Matrix-matrix operations
; date: Wed Apr 26 2006 - 21:08 ; date: Wed Apr 26 2006 - 21:08
; author: Liam M. Healy ; author: Liam M. Healy
; modified: Mon Jul 3 2006 - 23:45 ; modified: Mon Oct 8 2007 - 11:32
;******************************************************** ;********************************************************
;;; $Id: $ ;;; $Id: $
...@@ -187,7 +187,7 @@ ...@@ -187,7 +187,7 @@
:type :method) :type :method)
(defun-gsl syr2k (defun-gsl syr2k
(uplo trans (alpha double-float) (A gsl-matrix-double) (B gsl-matrix-double) (uplo trans (alpha float) (A gsl-matrix-double) (B gsl-matrix-double)
beta (C gsl-matrix-double)) beta (C gsl-matrix-double))
"gsl_blas_dsyr2k" "gsl_blas_dsyr2k"
((uplo cblas-uplo) (trans cblas-transpose) (alpha :double) ((uplo cblas-uplo) (trans cblas-transpose) (alpha :double)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
; description: Dilogarithm ; description: Dilogarithm
; date: Fri Mar 17 2006 - 18:44 ; date: Fri Mar 17 2006 - 18:44
; author: Liam M. Healy ; author: Liam M. Healy
; modified: Mon Jun 12 2006 - 23:43 ; modified: Mon Oct 8 2007 - 11:27
;******************************************************** ;********************************************************
(in-package :gsl) (in-package :gsl)
...@@ -12,7 +12,7 @@ ...@@ -12,7 +12,7 @@
(defgeneric dilogarithm (x) (defgeneric dilogarithm (x)
(:documentation "The dilogarithm.")) (:documentation "The dilogarithm."))
(defun-gsl dilogarithm ((x double-float)) (defun-gsl dilogarithm ((x float))
"gsl_sf_dilog_e" ((x :double) (ret sf-result)) "gsl_sf_dilog_e" ((x :double) (ret sf-result))
:type :method) :type :method)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
; description: Hypergeometric function ; description: Hypergeometric function
; date: Fri Apr 28 2006 - 23:00 ; date: Fri Apr 28 2006 - 23:00
; author: Liam M. Healy ; author: Liam M. Healy
; modified: Fri Jun 16 2006 - 21:05 ; modified: Mon Oct 8 2007 - 11:30
;******************************************************** ;********************************************************
;;; $Id: $ ;;; $Id: $
...@@ -17,14 +17,14 @@ ...@@ -17,14 +17,14 @@
(:documentation "The confluent hypergeometric function (:documentation "The confluent hypergeometric function
@math{1F1(m,n,x) = M(m,n,x)}.")) @math{1F1(m,n,x) = M(m,n,x)}."))
(defun-gsl hypergeometric-1F1 ((m fixnum) (n fixnum) x) (defun-gsl hypergeometric-1F1 ((m integer) (n integer) x)
"gsl_sf_hyperg_1F1_int_e" ((m :int) (n :int) (x :double) (ret sf-result)) "gsl_sf_hyperg_1F1_int_e" ((m :int) (n :int) (x :double) (ret sf-result))
:type :method :type :method
:export t :export t
:documentation "The confluent hypergeometric function :documentation "The confluent hypergeometric function
@math{1F1(m,n,x) = M(m,n,x)} for integer parameters @var{m}, @var{n}.") @math{1F1(m,n,x) = M(m,n,x)} for integer parameters @var{m}, @var{n}.")
(defun-gsl hypergeometric-1F1 ((a double-float) (b double-float) x) (defun-gsl hypergeometric-1F1 ((a float) (b float) x)
"gsl_sf_hyperg_1F1_e" ((a :double) (b :double) (x :double) (ret sf-result)) "gsl_sf_hyperg_1F1_e" ((a :double) (b :double) (x :double) (ret sf-result))
:type :method :type :method
:documentation "The confluent hypergeometric function :documentation "The confluent hypergeometric function
...@@ -34,14 +34,14 @@ ...@@ -34,14 +34,14 @@
(:documentation "The confluent hypergeometric function (:documentation "The confluent hypergeometric function
@math{U(m,n,x)}.")) @math{U(m,n,x)}."))
(defun-gsl hypergeometric-U ((m fixnum) (n fixnum) x) (defun-gsl hypergeometric-U ((m integer) (n integer) x)
"gsl_sf_hyperg_U_int_e" ((m :int) (n :int) (x :double) (ret sf-result)) "gsl_sf_hyperg_U_int_e" ((m :int) (n :int) (x :double) (ret sf-result))
:type :method :type :method
:export t :export t
:documentation "The confluent hypergeometric function :documentation "The confluent hypergeometric function
@math{U(m,n,x)} for integer parameters @var{m}, @var{n}.") @math{U(m,n,x)} for integer parameters @var{m}, @var{n}.")
(defun-gsl hypergeometric-U ((a double-float) (b double-float) x) (defun-gsl hypergeometric-U ((a float) (b float) x)
"gsl_sf_hyperg_U_e" ((a :double) (b :double) (x :double) (ret sf-result)) "gsl_sf_hyperg_U_e" ((a :double) (b :double) (x :double) (ret sf-result))
:type :method :type :method
:documentation "The confluent hypergeometric function @math{U(a,b,x)}.") :documentation "The confluent hypergeometric function @math{U(a,b,x)}.")
...@@ -51,7 +51,7 @@ ...@@ -51,7 +51,7 @@
@math{U(m,n,x)} using the @code{gsl_sf_result_e10} type @math{U(m,n,x)} using the @code{gsl_sf_result_e10} type
to return a result with extended range.")) to return a result with extended range."))
(defun-gsl hypergeometric-U-e10 ((m fixnum) (n fixnum) x) (defun-gsl hypergeometric-U-e10 ((m integer) (n integer) x)
"gsl_sf_hyperg_U_int_e10_e" "gsl_sf_hyperg_U_int_e10_e"
((m :int) (n :int) (x :double) (ret sf-result-e10)) ((m :int) (n :int) (x :double) (ret sf-result-e10))
:type :method :type :method
...@@ -60,7 +60,7 @@ ...@@ -60,7 +60,7 @@
@math{U(m,n,x)} for integer parameters @var{m}, @var{n} using the @math{U(m,n,x)} for integer parameters @var{m}, @var{n} using the
@code{gsl_sf_result_e10} type to return a result with extended range.") @code{gsl_sf_result_e10} type to return a result with extended range.")
(defun-gsl hypergeometric-U-e10 ((a double-float) (b double-float) x) (defun-gsl hypergeometric-U-e10 ((a float) (b float) x)
"gsl_sf_hyperg_U_e10_e" "gsl_sf_hyperg_U_e10_e"
((a :double) (b :double) (x :double) (ret sf-result-e10)) ((a :double) (b :double) (x :double) (ret sf-result-e10))
:type :method :type :method
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
; description: Logarithm ; description: Logarithm
; date: Sun Apr 30 2006 - 22:08 ; date: Sun Apr 30 2006 - 22:08
; author: Liam M. Healy ; author: Liam M. Healy
; modified: Fri Jun 16 2006 - 22:20 ; modified: Mon Oct 8 2007 - 11:27
;******************************************************** ;********************************************************
;;; $Id: $ ;;; $Id: $
...@@ -13,7 +13,7 @@ ...@@ -13,7 +13,7 @@
(:documentation (:documentation
"The natural logarithm of @var{x}, @math{\log(x)}, for @math{x > 0}.")) "The natural logarithm of @var{x}, @math{\log(x)}, for @math{x > 0}."))
(defun-gsl gsl-log ((x double-float)) (defun-gsl gsl-log ((x float))
"gsl_sf_log_e" ((x :double) (ret sf-result)) "gsl_sf_log_e" ((x :double) (ret sf-result))
:type :method :type :method
:export t) :export t)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
; description: Psi (digamma) functions ; description: Psi (digamma) functions
; date: Mon May 1 2006 - 22:11 ; date: Mon May 1 2006 - 22:11
; author: Liam M. Healy ; author: Liam M. Healy
; modified: Sat Jun 17 2006 - 22:30 ; modified: Mon Oct 8 2007 - 11:30
;******************************************************** ;********************************************************
;;; $Id: $ ;;; $Id: $
...@@ -16,13 +16,13 @@ ...@@ -16,13 +16,13 @@
(defgeneric psi (x) (defgeneric psi (x)
(:documentation "The psi, or digamma, function.")) (:documentation "The psi, or digamma, function."))
(defun-gsl psi ((n fixnum)) (defun-gsl psi ((n integer))
"gsl_sf_psi_int_e" ((n :int) (ret sf-result)) "gsl_sf_psi_int_e" ((n :int) (ret sf-result))
:type :method :type :method
:export t :export t
:documentation "Domain: n integer, n > 0.") :documentation "Domain: n integer, n > 0.")
(defun-gsl psi ((x double-float)) (defun-gsl psi ((x float))
"gsl_sf_psi_e" ((x :double) (ret sf-result)) "gsl_sf_psi_e" ((x :double) (ret sf-result))
:type :method :type :method
:documentation "Domain: x /= 0.0, -1.0, -2.0, ...") :documentation "Domain: x /= 0.0, -1.0, -2.0, ...")
...@@ -39,12 +39,12 @@ ...@@ -39,12 +39,12 @@
(defgeneric psi-1 (x) (defgeneric psi-1 (x)
(:documentation "The Trigamma function.")) (:documentation "The Trigamma function."))
(defun-gsl psi-1 ((n fixnum)) (defun-gsl psi-1 ((n integer))
"gsl_sf_psi_1_int_e" ((n :int) (ret sf-result)) "gsl_sf_psi_1_int_e" ((n :int) (ret sf-result))
:type :method :type :method
:documentation "Domain: n integer, n > 0.") :documentation "Domain: n integer, n > 0.")
(defun-gsl psi-1 ((x double-float)) (defun-gsl psi-1 ((x float))
"gsl_sf_psi_1_e" ((x :double) (ret sf-result)) "gsl_sf_psi_1_e" ((x :double) (ret sf-result))
:type :method :type :method
:documentation "Domain: x /= 0.0, -1.0, -2.0, ...") :documentation "Domain: x /= 0.0, -1.0, -2.0, ...")
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
; description: Trigonometry ; description: Trigonometry
; date: Thu May 4 2006 - 22:58 ; date: Thu May 4 2006 - 22:58
; author: Liam M. Healy ; author: Liam M. Healy
; modified: Sat Jun 17 2006 - 22:59 ; modified: Mon Oct 8 2007 - 11:27
;******************************************************** ;********************************************************
;;; $Id: $ ;;; $Id: $
...@@ -19,7 +19,7 @@ ...@@ -19,7 +19,7 @@
(defgeneric gsl-cos (x) (defgeneric gsl-cos (x)
(:documentation "The cosine function @math{\sin(x)}.")) (:documentation "The cosine function @math{\sin(x)}."))
(defun-gsl gsl-sin ((x double-float)) (defun-gsl gsl-sin ((x float))
"gsl_sf_sin_e" ((x :double) (ret sf-result)) "gsl_sf_sin_e" ((x :double) (ret sf-result))
:type :method :type :method
:export t) :export t)
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
:return ((complex (val re-ret) (val im-ret)) :return ((complex (val re-ret) (val im-ret))
(complex (err re-ret) (err im-ret)))) (complex (err re-ret) (err im-ret))))
(defun-gsl gsl-cos ((x double-float)) (defun-gsl gsl-cos ((x float))
"gsl_sf_cos_e" ((x :double) (ret sf-result)) "gsl_sf_cos_e" ((x :double) (ret sf-result))
:type :method :type :method
:export t) :export t)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
; description: Zeta functions ; description: Zeta functions
; date: Sat May 13 2006 - 23:27 ; date: Sat May 13 2006 - 23:27
; author: Liam M. Healy ; author: Liam M. Healy
; modified: Sat Jun 17 2006 - 23:02 ; modified: Mon Oct 8 2007 - 11:30
;******************************************************** ;********************************************************
;;; $Id: $ ;;; $Id: $
...@@ -19,14 +19,14 @@ ...@@ -19,14 +19,14 @@
(defgeneric zeta (x) (defgeneric zeta (x)
(:documentation "The Riemann zeta function @math{\zeta(n)}.")) (:documentation "The Riemann zeta function @math{\zeta(n)}."))
(defun-gsl zeta ((n fixnum)) (defun-gsl zeta ((n integer))
"gsl_sf_zeta_int_e" ((n :int) (ret sf-result)) "gsl_sf_zeta_int_e" ((n :int) (ret sf-result))
:type :method :type :method
:export t :export t
:documentation "The Riemann zeta function @math{\zeta(n)} :documentation "The Riemann zeta function @math{\zeta(n)}
for integer @var{n}, @math{n \ne 1}.") for integer @var{n}, @math{n \ne 1}.")
(defun-gsl zeta ((s double-float)) (defun-gsl zeta ((s float))
"gsl_sf_zeta_e" ((s :double) (ret sf-result)) "gsl_sf_zeta_e" ((s :double) (ret sf-result))
:documentation "The Riemann zeta function @math{\zeta(s)} :documentation "The Riemann zeta function @math{\zeta(s)}
for arbitrary @var{s}, @math{s \ne 1}." for arbitrary @var{s}, @math{s \ne 1}."
...@@ -39,14 +39,14 @@ ...@@ -39,14 +39,14 @@
(defgeneric zeta-1 (x) (defgeneric zeta-1 (x)
(:documentation "zeta - 1.")) (:documentation "zeta - 1."))
(defun-gsl zeta-1 ((n fixnum)) (defun-gsl zeta-1 ((n integer))
"gsl_sf_zetam1_int_e" ((n :int) (ret sf-result)) "gsl_sf_zetam1_int_e" ((n :int) (ret sf-result))
:documentation "The Riemann zeta function @math{\zeta(n)} :documentation "The Riemann zeta function @math{\zeta(n)}
for integer @var{n}, @math{n \ne 1}." for integer @var{n}, @math{n \ne 1}."
:type :method :type :method
:export t) :export t)
(defun-gsl zeta-1 ((s double-float)) (defun-gsl zeta-1 ((s float))
"gsl_sf_zetam1_e" ((s :double) (ret sf-result)) "gsl_sf_zetam1_e" ((s :double) (ret sf-result))
:documentation "The Riemann zeta function @math{\zeta(s)} :documentation "The Riemann zeta function @math{\zeta(s)}
for arbitrary @var{s}, @math{s \ne 1}." for arbitrary @var{s}, @math{s \ne 1}."
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
; description: Mean, standard deviation, and variance ; description: Mean, standard deviation, and variance
; date: Sat Dec 2 2006 - 22:15 ; date: Sat Dec 2 2006 - 22:15
; author: Liam M. Healy ; author: Liam M. Healy
; modified: Sun Dec 31 2006 - 21:45 ; modified: Mon Oct 8 2007 - 10:34
;******************************************************** ;********************************************************
;;; $Id: $ ;;; $Id: $
...@@ -106,7 +106,7 @@ ...@@ -106,7 +106,7 @@
;;;;**************************************************************************** ;;;;****************************************************************************
(defgeneric weighted-variance-nom (gsl-vector weights) (defgeneric weighted-variance-nom (gsl-vector weights)
(:documentation nil)) (:documentation "Compute the weighted variance with the mean unknown."))
(defun-gsl-stats weighted-variance-nom ((vector gsl-vector) weights) (defun-gsl-stats weighted-variance-nom ((vector gsl-vector) weights)
"gsl_stats_wvariance" "gsl_stats_wvariance"
......
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