diff --git a/documentation/missing-features.text b/documentation/missing-features.text index 420f50147e403aa59c17cb0477db2f7c41584d28..dc9c92be33e2b4aa59228f21bdcb0bac1266e502 100644 --- a/documentation/missing-features.text +++ b/documentation/missing-features.text @@ -6,7 +6,6 @@ All file input and output (fread, fwrite) functions. All submatrix functions and views. Stride is always set to 1 in GSL functions that take a stride. - Some things that have been added to GSL since 1.8 that should be added to GSLL: @@ -55,3 +54,10 @@ http://lists.gnu.org/archive/html/info-gsl/2008-12/msg00001.html ** Added missing functions gsl_vector_complex_{isnonneg,add,sub,mul, div,scale,add_constant} and gsl_matrix_complex_float_isnonneg [bug #22478] + +******************* +Wishlist +Be able to set the real and imaginary parts of an array to a real +array. + + diff --git a/init/defmfun.lisp b/init/defmfun.lisp index 11901874755748e910208e7f2ee6f82064c957a8..11b5698ea97e3087dcde57a1110a832f6a506766 100644 --- a/init/defmfun.lisp +++ b/init/defmfun.lisp @@ -1,6 +1,6 @@ ;; Macro for defining GSL functions. ;; Liam Healy 2008-04-16 20:49:50EDT defmfun.lisp -;; Time-stamp: <2009-01-10 21:47:36EST defmfun.lisp> +;; Time-stamp: <2009-01-12 21:50:07EST defmfun.lisp> ;; $Id$ (in-package :gsl) @@ -79,7 +79,7 @@ (declare (ignorable c-return return definition element-types index export documentation inputs outputs before after enumeration qualifier - gsl-version switch indexed-functions) + gsl-version switch) (special indexed-functions)) ,@body)) diff --git a/simulated-annealing.lisp b/simulated-annealing.lisp index e3ee4406c424580d7ab0cff5c8e59569cee36d6c..15308cd6402e6b18312cfa5c382c211fad205bc6 100644 --- a/simulated-annealing.lisp +++ b/simulated-annealing.lisp @@ -1,6 +1,6 @@ ;; Simulated Annealing ;; Liam Healy Sun Feb 11 2007 - 17:23 -;; Time-stamp: <2008-12-26 19:51:20EST simulated-annealing.lisp> +;; Time-stamp: <2009-01-12 22:48:38EST simulated-annealing.lisp> ;; $Id$ (in-package :gsl) @@ -69,7 +69,7 @@ ;;((cffi:get-callback copy-function) :pointer) ;;((cffi:get-callback copy-constructor) :pointer) ;;((cffi:get-callback destructor) :pointer) - (element-size size) (parameters simulated-annealing-parameters)) + (element-size sizet) (parameters simulated-annealing-parameters)) :c-return :void :documentation ; FDL "Perform a simulated annealing search through a given @@ -110,7 +110,7 @@ (defmacro def-step-function (name) "Define a step fuction for simulated annealing." - (let ((mpointer (gensym "GEN")) + (let ((generator (gensym "GEN")) (arguments (gensym "ARGS")) (step-size (gensym "SS"))) `(cffi:defcallback ,name :void @@ -181,7 +181,7 @@ (with-simulated-annealing-parameters (params 200 10 10.0d0 1.0d0 0.002d0 1.005d0 2.0d-6) (simulated-annealing - (make-random-number-generator) initial + (make-random-number-generator *mt19937* 0) initial 'E2 'S2 'M2 'P2 (cffi:foreign-type-size :double) params)))))