Commit 19174775 authored by liam's avatar liam

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
......@@ -3,7 +3,7 @@
; description: BLAS level 1, Vector operations
; date: Wed Apr 26 2006 - 15:23
; author: Liam Healy
; modified: Wed Jul 12 2006 - 12:32
; modified: Mon Oct 8 2007 - 11:32
;********************************************************
;;; $Id: $
......@@ -105,7 +105,7 @@
(defun-gsl rot
((vec1 gsl-vector-single) (vec2 gsl-vector-single)
(c single-float) (s single-float))
(c float) (s float))
"gsl_blas_srot"
(((pointer vec1) :pointer) ((pointer vec2) :pointer) (c :float) (s :float))
:type :method
......@@ -159,7 +159,7 @@
(defun-gsl rot
((vec1 gsl-vector-double) (vec2 gsl-vector-double)
(c double-float) (s double-float))
(c float) (s float))
"gsl_blas_drot"
(((pointer vec1) :pointer) ((pointer vec2) :pointer) (c :double) (s :double))
:type :method
......
......@@ -3,7 +3,7 @@
; description: BLAS level 3, Matrix-matrix operations
; date: Wed Apr 26 2006 - 21:08
; author: Liam M. Healy
; modified: Mon Jul 3 2006 - 23:45
; modified: Mon Oct 8 2007 - 11:32
;********************************************************
;;; $Id: $
......@@ -187,7 +187,7 @@
:type :method)
(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))
"gsl_blas_dsyr2k"
((uplo cblas-uplo) (trans cblas-transpose) (alpha :double)
......
......@@ -3,7 +3,7 @@
; description: Dilogarithm
; date: Fri Mar 17 2006 - 18:44
; author: Liam M. Healy
; modified: Mon Jun 12 2006 - 23:43
; modified: Mon Oct 8 2007 - 11:27
;********************************************************
(in-package :gsl)
......@@ -12,7 +12,7 @@
(defgeneric dilogarithm (x)
(:documentation "The dilogarithm."))
(defun-gsl dilogarithm ((x double-float))
(defun-gsl dilogarithm ((x float))
"gsl_sf_dilog_e" ((x :double) (ret sf-result))
:type :method)
......
......@@ -3,7 +3,7 @@
; description: Hypergeometric function
; date: Fri Apr 28 2006 - 23:00
; author: Liam M. Healy
; modified: Fri Jun 16 2006 - 21:05
; modified: Mon Oct 8 2007 - 11:30
;********************************************************
;;; $Id: $
......@@ -17,14 +17,14 @@
(:documentation "The confluent hypergeometric function
@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))
:type :method
:export t
:documentation "The confluent hypergeometric function
@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))
:type :method
:documentation "The confluent hypergeometric function
......@@ -34,14 +34,14 @@
(:documentation "The confluent hypergeometric function
@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))
:type :method
:export t
:documentation "The confluent hypergeometric function
@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))
:type :method
:documentation "The confluent hypergeometric function @math{U(a,b,x)}.")
......@@ -51,7 +51,7 @@
@math{U(m,n,x)} using the @code{gsl_sf_result_e10} type
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"
((m :int) (n :int) (x :double) (ret sf-result-e10))
:type :method
......@@ -60,7 +60,7 @@
@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.")
(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"
((a :double) (b :double) (x :double) (ret sf-result-e10))
:type :method
......
......@@ -3,7 +3,7 @@
; description: Logarithm
; date: Sun Apr 30 2006 - 22:08
; author: Liam M. Healy
; modified: Fri Jun 16 2006 - 22:20
; modified: Mon Oct 8 2007 - 11:27
;********************************************************
;;; $Id: $
......@@ -13,7 +13,7 @@
(:documentation
"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))
:type :method
:export t)
......
......@@ -3,7 +3,7 @@
; description: Psi (digamma) functions
; date: Mon May 1 2006 - 22:11
; author: Liam M. Healy
; modified: Sat Jun 17 2006 - 22:30
; modified: Mon Oct 8 2007 - 11:30
;********************************************************
;;; $Id: $
......@@ -16,13 +16,13 @@
(defgeneric psi (x)
(: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))
:type :method
:export t
: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))
:type :method
:documentation "Domain: x /= 0.0, -1.0, -2.0, ...")
......@@ -39,12 +39,12 @@
(defgeneric psi-1 (x)
(: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))
:type :method
: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))
:type :method
:documentation "Domain: x /= 0.0, -1.0, -2.0, ...")
......
......@@ -3,7 +3,7 @@
; description: Trigonometry
; date: Thu May 4 2006 - 22:58
; author: Liam M. Healy
; modified: Sat Jun 17 2006 - 22:59
; modified: Mon Oct 8 2007 - 11:27
;********************************************************
;;; $Id: $
......@@ -19,7 +19,7 @@
(defgeneric gsl-cos (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))
:type :method
:export t)
......@@ -32,7 +32,7 @@
:return ((complex (val re-ret) (val 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))
:type :method
:export t)
......
......@@ -3,7 +3,7 @@
; description: Zeta functions
; date: Sat May 13 2006 - 23:27
; author: Liam M. Healy
; modified: Sat Jun 17 2006 - 23:02
; modified: Mon Oct 8 2007 - 11:30
;********************************************************
;;; $Id: $
......@@ -19,14 +19,14 @@
(defgeneric zeta (x)
(: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))
:type :method
:export t
:documentation "The Riemann zeta function @math{\zeta(n)}
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))
:documentation "The Riemann zeta function @math{\zeta(s)}
for arbitrary @var{s}, @math{s \ne 1}."
......@@ -39,14 +39,14 @@
(defgeneric zeta-1 (x)
(: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))
:documentation "The Riemann zeta function @math{\zeta(n)}
for integer @var{n}, @math{n \ne 1}."
:type :method
:export t)
(defun-gsl zeta-1 ((s double-float))
(defun-gsl zeta-1 ((s float))
"gsl_sf_zetam1_e" ((s :double) (ret sf-result))
:documentation "The Riemann zeta function @math{\zeta(s)}
for arbitrary @var{s}, @math{s \ne 1}."
......
......@@ -3,7 +3,7 @@
; description: Mean, standard deviation, and variance
; date: Sat Dec 2 2006 - 22:15
; author: Liam M. Healy
; modified: Sun Dec 31 2006 - 21:45
; modified: Mon Oct 8 2007 - 10:34
;********************************************************
;;; $Id: $
......@@ -106,7 +106,7 @@
;;;;****************************************************************************
(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)
"gsl_stats_wvariance"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment