[cl-gsl-cvs] CVS update: cl-gsl/sf.lisp

[Edgar Denny]

Update of /project/cl-gsl/cvsroot/cl-gsl
In directory common-lisp.net:/tmp/cvs-serv21923

Modified Files:
	sf.lisp 
Log Message:
Fixes for airy functions.

Date: Mon Mar  7 03:05:23 2005
Author: edenny

Index: cl-gsl/sf.lisp
diff -u cl-gsl/sf.lisp:1.1.1.1 cl-gsl/sf.lisp:1.2
--- cl-gsl/sf.lisp:1.1.1.1	Wed Mar  2 02:04:53 2005
+++ cl-gsl/sf.lisp	Mon Mar  7 03:05:21 2005
@@ -123,7 +123,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 (defun-wrapper% "airy_Bi"
     ((x :double)
@@ -134,7 +134,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 (defun-wrapper% "airy_Ai_scaled"
     ((x :double)
@@ -145,7 +145,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 (defun-wrapper% "airy_Bi_scaled"
     ((x :double)
@@ -156,7 +156,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 (defun-wrapper% "airy_Ai_deriv"
     ((x :double)
@@ -167,7 +167,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 (defun-wrapper% "airy_Bi_deriv"
     ((x :double)
@@ -178,7 +178,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 (defun-wrapper% "airy_Ai_deriv_scaled"
     ((x :double)
@@ -189,7 +189,7 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 (defun-wrapper% "airy_Bi_deriv_scaled"
     ((x :double)
@@ -200,51 +200,43 @@
     ((x :double)
      (mode gsl-mode-t)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 (defun-wrapper% "airy_zero_Ai"
-    ((x :double)
-     (mode gsl-mode-t))
+    ((x :unsigned-int))
   :double)
 
 (defun-wrapper% "airy_zero_Ai_e"
-    ((x :double)
-     (mode gsl-mode-t)
+    ((x :unsigned-int)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 (defun-wrapper% "airy_zero_Bi"
-    ((x :double)
-     (mode gsl-mode-t))
+    ((x :unsigned-int))
   :double)
 
 (defun-wrapper% "airy_zero_Bi_e"
-    ((x :double)
-     (mode gsl-mode-t)
+    ((x :unsigned-int)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 (defun-wrapper% "airy_zero_Ai_deriv"
-    ((x :double)
-     (mode gsl-mode-t))
+    ((x :unsigned-int))
   :double)
 
 (defun-wrapper% "airy_zero_Ai_deriv_e"
-    ((x :double)
-     (mode gsl-mode-t)
+    ((x :unsigned-int)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 (defun-wrapper% "airy_zero_Bi_deriv"
-    ((x :double)
-     (mode gsl-mode-t))
+    ((x :unsigned-int))
   :double)
 
 (defun-wrapper% "airy_zero_Bi_deriv_e"
-    ((x :double)
-     (mode gsl-mode-t)
+    ((x :unsigned-int)
      (result gsl-sf-result-ptr))
-  :double)
+  :int)
 
 ;;; Bessel Functions