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)