[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-serv25644

Modified Files:
	sf.lisp 
Log Message:
Fix bugs detected by unit tests.

Date: Wed Mar  9 04:10:29 2005
Author: edenny

Index: cl-gsl/sf.lisp
diff -u cl-gsl/sf.lisp:1.3 cl-gsl/sf.lisp:1.4
--- cl-gsl/sf.lisp:1.3	Tue Mar  8 04:33:41 2005
+++ cl-gsl/sf.lisp	Wed Mar  9 04:10:28 2005
@@ -900,12 +900,16 @@
   :int)
 
 (defun-wrapper% ("hydrogenicR" hydrogenic-r)
-    ((z :double)
+    ((n :int)
+     (l :int)
+     (z :double)
      (r :double))
   :double)
 
 (defun-wrapper% ("hydrogenicR_e" hydrogenic-r-e)
-    ((z :double)
+    ((n :int)
+     (l :int)
+     (z :double)
      (r :double)
      (result gsl-sf-result-ptr))
   :int)
@@ -1728,12 +1732,14 @@
 
 (defun-wrapper% "beta_inc"
     ((a :double)
-     (b :double))
+     (b :double)
+     (x :double))
   :double)
 
 (defun-wrapper% "beta_inc_e"
     ((a :double)
      (b :double)
+     (x :double)
      (result gsl-sf-result-ptr))
   :int)