From b30455c2cbfe64b816fab815a26c2bf0a9e5eeff Mon Sep 17 00:00:00 2001
From: liam <liam@a3d8a0fb-c1db-0310-ace7-a616afeb9e30>
Date: Sun, 19 Mar 2006 03:19:28 +0000
Subject: [PATCH] Minor changes; to do.

git-svn-id: svn+ssh://pop/opt/space/mathematics/gsl/trunk@2981 a3d8a0fb-c1db-0310-ace7-a616afeb9e30
---
 README                      |  4 ++++
 general/mathematical.lisp   |  5 ++---
 special-functions/airy.lisp | 31 +++++++++++++------------------
 3 files changed, 19 insertions(+), 21 deletions(-)

diff --git a/README b/README
index f121543f..bb08f375 100644
--- a/README
+++ b/README
@@ -17,3 +17,7 @@ is that the GSL library must be loaded and accessible.
 access to the functions.  Defining the functions you need yourself is
 very easy.
 
+======================
+Needs work
+bessel-sequence-Jnu in bessel.lisp.
+Why do sequence-returns crash on declination?
diff --git a/general/mathematical.lisp b/general/mathematical.lisp
index 46d7d19b..161bc98d 100644
--- a/general/mathematical.lisp
+++ b/general/mathematical.lisp
@@ -3,13 +3,12 @@
 ; description: Mathematical functions                    
 ; date:        Wed Mar  8 2006 - 22:09                   
 ; author:      Liam M. Healy
-; modified:    Thu Mar  9 2006 - 23:10
+; modified:    Sat Mar 18 2006 - 15:13
 ;********************************************************
 
 (in-package :gsl)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (export '(nanp infinityp finitep log+1 exp-1 hypotenuse approximately=)))
+(export '(nanp infinityp finitep log+1 exp-1 hypotenuse approximately=))
 
 ;;;;****************************************************************************
 ;;; Infinities and Not-a-number
diff --git a/special-functions/airy.lisp b/special-functions/airy.lisp
index 82fb9201..94fb4fcb 100644
--- a/special-functions/airy.lisp
+++ b/special-functions/airy.lisp
@@ -3,20 +3,16 @@
 ; description: Airy functions                            
 ; date:        Fri Mar 17 2006 - 18:41                   
 ; author:      Liam M. Healy
-; modified:    Sat Mar 18 2006 - 00:21
+; modified:    Sat Mar 18 2006 - 15:21
 ;********************************************************
 
 (in-package :gsl)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (export
-   '()))
-
 ;;;;****************************************************************************
 ;;;; Airy functions
 ;;;;****************************************************************************
 
-(defun-sf airy-ai ((x :double))
+(defun-sf airy-Ai ((x :double))
   "gsl_sf_airy_Ai_e"
   :return (sf-result)
   :documentation "The Airy function Ai(x)."
@@ -26,70 +22,69 @@
 ;;; 0.24308135437540998d0
 ;;; 6.288670879282072d-17
 
-(defun-sf airy-bi ((x :double))
+(defun-sf airy-Bi ((x :double))
   "gsl_sf_airy_Bi_e"
   :return (sf-result)
   :documentation "The Airy function Bi(x)."
   :mode t)
 
-(defun-sf airy-ai-scaled ((x :double))
+(defun-sf airy-Ai-scaled ((x :double))
   "gsl_sf_airy_Ai_scaled_e"
   :return (sf-result)
   :documentation "The scaled Airy function @math{S_A(x) Ai(x)}.  For @math{x>0} the scaling factor @math{S_A(x)} is @c{$\exp(+(2/3) x^{3/2})$} @math{\exp(+(2/3) x^(3/2))}, and is 1 for @math{x<0}."
   :mode t)
 
-(defun-sf airy-bi-scaled ((x :double))
+(defun-sf airy-Bi-scaled ((x :double))
   "gsl_sf_airy_Bi_scaled_e"
   :return (sf-result)
   :documentation "The scaled Airy function @math{S_B(x) Bi(x)}.  For @math{x>0} the scaling factor @math{S_B(x)} is @c{$\exp(-(2/3) x^{3/2})$} @math{exp(-(2/3) x^(3/2))}, and is 1 for @math{x<0}."
   :mode t)
 
-(defun-sf airy-ai-deriv ((x :double))
+(defun-sf airy-Ai-deriv ((x :double))
   "gsl_sf_airy_Ai_deriv_e"
   :return (sf-result)
   :documentation "The Airy function derivative Ai'(x)."
   :mode t)
 
-(defun-sf airy-bi-deriv ((x :double))
+(defun-sf airy-Bi-deriv ((x :double))
   "gsl_sf_airy_Bi_deriv_e"
   :return (sf-result)
   :documentation "The Airy function derivative Bi'(x)."
   :mode t)
 
-(defun-sf airy-ai-deriv-scaled ((x :double))
+(defun-sf airy-Ai-deriv-scaled ((x :double))
   "gsl_sf_airy_Ai_deriv_scaled_e"
   :return (sf-result)
   :documentation "The scaled Airy function derivative S_A(x) Ai'(x).  For @math{x>0} the scaling factor @math{S_A(x)} is @c{$\exp(+(2/3) x^{3/2})$} @math{\exp(+(2/3) x^(3/2))}, and is 1 for @math{x<0}."
   :mode t)
 
-(defun-sf airy-bi-deriv-scaled ((x :double))
+(defun-sf airy-Bi-deriv-scaled ((x :double))
   "gsl_sf_airy_Bi_deriv_scaled_e"
   :return (sf-result)
   :documentation "The scaled Airy function derivative S_B(x) Bi'(x).  For @math{x>0} the scaling factor @math{S_B(x)} is @c{$\exp(-(2/3) x^{3/2})$} @math{exp(-(2/3) x^(3/2))}, and is 1 for @math{x<0}."
   :mode t)
 
-(defun-sf airy-zero-ai ((s :unsigned-int))
+(defun-sf airy-zero-Ai ((s :unsigned-int))
   "gsl_sf_airy_zero_Ai_e"
   :return (sf-result)
   :documentation "The location of the @var{s}-th zero of the Airy function @math{Ai(x)}."
   :mode t)
 
-(defun-sf airy-zero-bi ((s :unsigned-int))
+(defun-sf airy-zero-Bi ((s :unsigned-int))
   "gsl_sf_airy_zero_Bi_e"
   :return (sf-result)
   :documentation "The location of the @var{s}-th zero of the Airy function @math{Bi(x)}."
   :mode t)
 
-(defun-sf airy-zero-ai-deriv ((s :unsigned-int))
+(defun-sf airy-zero-Ai-deriv ((s :unsigned-int))
   "gsl_sf_airy_zero_Ai_deriv_e"
   :return (sf-result)
   :documentation "The location of the @var{s}-th zero of the Airy
 function derivative @math{Ai'(x)}."
   :mode t)
 
-(defun-sf airy-zero-bi-deriv ((s :unsigned-int))
+(defun-sf airy-zero-Bi-deriv ((s :unsigned-int))
   "gsl_sf_airy_zero_Bi_deriv_e"
   :return (sf-result)
   :documentation "The location of the @var{s}-th zero of the Airy function derivative @math{Bi'(x)}."
   :mode t)
-
-- 
GitLab